[GRASS-SVN] r71638 - grass/trunk/imagery/i.ortho.photo/i.ortho.elev

[svn_grass at osgeo.org]

Author: ychemin
Date: 2017-11-04 18:49:33 -0700 (Sat, 04 Nov 2017)
New Revision: 71638

Modified:
   grass/trunk/imagery/i.ortho.photo/i.ortho.elev/main.c
Log:
fix bug: was writing to group file in target, not in source

Modified: grass/trunk/imagery/i.ortho.photo/i.ortho.elev/main.c
===================================================================
--- grass/trunk/imagery/i.ortho.photo/i.ortho.elev/main.c	2017-11-04 03:14:53 UTC (rev 71637)
+++ grass/trunk/imagery/i.ortho.photo/i.ortho.elev/main.c	2017-11-05 01:49:33 UTC (rev 71638)
@@ -196,9 +196,13 @@
 	    select_current_env();
 	    G_fatal_error(_("Raster map <%s> not found"), elev_opt->answer);
 	}
+	
+	/* return to current Location/mapset to write in the group file */
+	select_current_env();
+	
 	/* load information from the ELEVATION file in the GROUP */
 	I_get_group_elev(group, elev_layer, mapset_elev, location_elev, math_exp, units, nd);
-	/*Modify ELEVATION file in source GROUP */
+	/* Modify ELEVATION file in source GROUP */
 	I_put_group_elev(group,elev_opt->answer,mapset_opt->answer,loc_opt->answer, 
 			math_opt->answer, unit_opt->answer, nd_opt->answer);
 	/* select current location */