[GRASS-SVN] r37257 - grass/branches/develbranch_6/gui/tcltk/gis.m

[svn_grass at osgeo.org]

Author: hamish
Date: 2009-05-18 06:46:50 -0400 (Mon, 18 May 2009)
New Revision: 37257

Modified:
   grass/branches/develbranch_6/gui/tcltk/gis.m/mapcanvas.tcl
Log:
fix so gis.m will work in a XY location

Modified: grass/branches/develbranch_6/gui/tcltk/gis.m/mapcanvas.tcl
===================================================================
--- grass/branches/develbranch_6/gui/tcltk/gis.m/mapcanvas.tcl	2009-05-18 08:42:27 UTC (rev 37256)
+++ grass/branches/develbranch_6/gui/tcltk/gis.m/mapcanvas.tcl	2009-05-18 10:46:50 UTC (rev 37257)
@@ -426,6 +426,7 @@
 	    while {[gets $input line] >= 0} {
 	    	if { [string equal "XY location (unprojected)" "$line"] } {
 	    	    set mapunits "map units"
+		    set ll_proj 0
 	    	    break
 	    	}
 	    	regexp -nocase {^(.*):(.*)$} $line trash key value
@@ -443,13 +444,14 @@
 	# May already be set above if locn was XY.
 	if { ! [ info exist mapunits ] } {
 	    set mapunits $prj(units)
-	}
-	
-	set ll_proj 0
-	if { [string eq "Lat/Lon" "$prj(name)"] } {
+
+	    if { [string eq "Lat/Lon" "$prj(name)"] } {
 		set ll_proj 1
+	    } else {
+		set ll_proj 0
+	    }
 	}
-	
+
 	return $mapunits
 }