[GRASS-SVN] r46632 - grass/branches/releasebranch_6_4/lib/form

[svn_grass at osgeo.org]

Author: neteler
Date: 2011-06-09 01:01:11 -0700 (Thu, 09 Jun 2011)
New Revision: 46632

Modified:
   grass/branches/releasebranch_6_4/lib/form/form.tcl
Log:
Fix v.digit attribute entry if db path contains spaces (backport from 6.5, r38898)

Modified: grass/branches/releasebranch_6_4/lib/form/form.tcl
===================================================================
--- grass/branches/releasebranch_6_4/lib/form/form.tcl	2011-06-09 07:57:42 UTC (rev 46631)
+++ grass/branches/releasebranch_6_4/lib/form/form.tcl	2011-06-09 08:01:11 UTC (rev 46632)
@@ -1,9 +1,9 @@
-lappend auto_path $env(GISBASE)/bwidget
+lappend auto_path "$env(GISBASE)/bwidget"
 package require -exact BWidget 1.2.1 
 #package require http
 
-set formpath $env(GISBASE)/etc/form
-source $formpath/html_library.tcl
+set formpath [file normalize "$env(GISBASE)/etc/form"]
+source "$formpath/html_library.tcl"
 
 proc create_submit_msg { formid  }  {
     global submit_result submit_msg formf