[GRASS-CVS] moritz: grass6/lib/init gis_set.tcl,1.54,1.55

[grass at intevation.de]

Author: moritz

Update of /grassrepository/grass6/lib/init
In directory doto:/tmp/cvs-serv30109

Modified Files:
	gis_set.tcl 
Log Message:
location is invalid if it doesn't have DEFAULT_WIND in PERMANENT, not WIND


Index: gis_set.tcl
===================================================================
RCS file: /grassrepository/grass6/lib/init/gis_set.tcl,v
retrieving revision 1.54
retrieving revision 1.55
diff -u -d -r1.54 -r1.55
--- gis_set.tcl	20 Sep 2007 14:18:01 -0000	1.54
+++ gis_set.tcl	9 Dec 2007 10:19:13 -0000	1.55
@@ -141,7 +141,7 @@
         foreach filename [lsort [glob -nocomplain *]] {
             if {[string compare $filename "PERMANENT"] == 0} {
                 # All good locations have valid PERMANENT mapset.
-                if {[file exists "$dir/PERMANENT/WIND"] != 0} {
+                if {[file exists "$dir/PERMANENT/DEFAULT_WIND"] != 0} {
                     set found 1
                     .frame0.frameNMS.second.entry configure -state normal
                 }