Index: openacs-4/packages/acs-templating/acs-templating.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/acs-templating.info,v
diff -u -r1.39 -r1.40
--- openacs-4/packages/acs-templating/acs-templating.info	25 Jul 2007 12:18:04 -0000	1.39
+++ openacs-4/packages/acs-templating/acs-templating.info	29 Aug 2007 14:01:33 -0000	1.40
@@ -41,6 +41,7 @@
             <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="ShowDataDictionariesP"  default="0" description="Offer data dictionaries on .dat/.fmt URL."/>
             <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="SpellcheckDialectsP"  default="0" description="Do you care about dialects or not? If this is set to '1' all available dictionary dialects for all available languages will appear as choices in the pull-down menu. If the param is set to '0', only the base-language(s) will be shown. However, it only works with aspell - on ispell you'll simply get a 'yes' and 'no' option, no matter how this param is set, where 'yes' will use ispell's default dictionary. NOTE! You'll need to restart the server for this param to take effect."/>
             <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="SpellcheckFormWidgets"  default="textarea 0 richtext 0" description="The widgets that you specify here will be spellcheck enabled in all forms (that use ad_form / form builder). Adding a 'nospell' flag to a form element overrides this parameter and disables spellchecking of that element. The format of this parameter is such: 'widget 1 widget 0 ...', where 'widget' stands for one of the form widgets that are possible to spellcheck enable: text, textarea, richtext. '1' after 'widget' indicates that the default should be to spellcheck; '0' means the user has to manually state that spellchecking should be performed on the form element. In order to enable spellchecking via this parameter either the aspell or ispell binary (or both, in which case aspell takes precedence) must be installed on the server. The path to the binary is auto-detected on server startup. If the parameter is left blank, spellchecking will be disabled altogether."/>
+            <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="SpellcheckUseDictsP"  default="0" description="If set to 1 (i.e. true) the dictionaries returned by aspell will be displayed in the spell check drop down."/>
             <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="UseHtmlAreaForRichtextP"  default="1" description="Should the richtext widget use the htmlArea widget for richtext editing. 1 = yes, 0 = no. We will also check the browser's User-Agent header to find out if htmlArea works with the given browser."/>
             <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="XinhaDefaultPlugins"  default="GetHtml CharacterMap ContextMenu FullScreen ListType TableOperations EditTag LangMarks Abbreviation" description="When xinha is specified as richtext editor (see parameter RichTextEditor) then use the following xinha plugins per default."/>
         </parameters>
Index: openacs-4/packages/acs-templating/tcl/data-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/data-procs.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/acs-templating/tcl/data-procs.tcl	10 Jan 2007 21:22:12 -0000	1.14
+++ openacs-4/packages/acs-templating/tcl/data-procs.tcl	29 Aug 2007 14:01:33 -0000	1.15
@@ -21,8 +21,10 @@
     @see template::data::validate::date 
     @see template::data::validate::email 
     @see template::data::validate::filename 
+    @see template::data::validate::float
     @see template::data::validate::integer 
     @see template::data::validate::keyword 
+    @see template::data::validate::naturalnum 
     @see template::data::validate::search 
     @see template::data::validate::string 
     @see template::data::validate::text 
Index: openacs-4/packages/acs-templating/tcl/date-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/date-procs.tcl,v
diff -u -r1.39 -r1.40
--- openacs-4/packages/acs-templating/tcl/date-procs.tcl	14 May 2007 20:30:27 -0000	1.39
+++ openacs-4/packages/acs-templating/tcl/date-procs.tcl	29 Aug 2007 14:01:33 -0000	1.40
@@ -80,11 +80,13 @@
 ad_proc -public template::util::date::monthName { month length } {
     Return the specified month name (short or long)
 } {
-  if {$length eq "long"} {
-    return [lc_time_fmt "2002-[format "%02d" $month]-01" "%B"]
-  } else {
-    return [lc_time_fmt "2002-[format "%02d" $month]-01" "%b"]
-  }
+    # trim leading zeros to avoid octal problem
+    set month [template::util::leadingTrim $month]
+    if {$length eq "long"} {
+        return [lc_time_fmt "2002-[format "%02d" $month]-01" "%B"]
+    } else {
+        return [lc_time_fmt "2002-[format "%02d" $month]-01" "%b"]
+    }
 }
 
 
@@ -698,6 +700,7 @@
   if {$value eq {}} {
     return 0
   } else {
+    return [expr [template::util::leadingTrim $value] < 0]
     return [expr {$value < 0}]
   }
 }
@@ -744,14 +747,14 @@
   }
 
   if { $month ne {} } {
-    if { $month < 1 || $month > 12 } {
-	lappend error_msg [_ acs-templating.Month_must_be_between_1_and_12]
+    if { [string trimleft $month "0"] < 1 || [string trimleft $month "0"] > 12 } {
+      lappend error_msg [_ acs-templating.Month_must_be_between_1_and_12]
     } else {
       if { $year > 0 } { 
         if { $day ne {} } {
           set maxdays [get_property days_in_month $date]
-          if { $day < 1 || $day > $maxdays } {
-	      set month_pretty [template::util::date::get_property long_month_name $date]
+          if { [string trimleft $day "0"] < 1 || [string trimleft $day "0"] > $maxdays } {
+            set month_pretty [template::util::date::get_property long_month_name $date]
 	      if { $month == "2" } {
 		  # February has a different number of days depending on the year
 		  append month_pretty " ${year}"
Index: openacs-4/packages/acs-templating/tcl/spellcheck-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/spellcheck-init.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/acs-templating/tcl/spellcheck-init.tcl	10 Jan 2007 21:22:12 -0000	1.12
+++ openacs-4/packages/acs-templating/tcl/spellcheck-init.tcl	29 Aug 2007 14:01:33 -0000	1.13
@@ -58,6 +58,16 @@
     set default_lang ""
 } 
 
+#Do we include all availabale dicts or not ?
+set use_dicts_p [parameter::get_from_package_key \
+		    -package_key acs-templating \
+		    -parameter SpellcheckUseDictsP \
+		    -default 0]
+
+if {$use_dicts_p == 0} {
+	set dicts ""
+}	    
+		    
 # Build the select options list and filter out unwanted dictionaries.
 set wanted_dicts [list {"No" :nospell:}]
 
Index: openacs-4/packages/acs-templating/tcl/widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/widget-procs.tcl,v
diff -u -r1.46 -r1.47
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl	30 Jul 2007 20:30:51 -0000	1.46
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl	29 Aug 2007 14:01:33 -0000	1.47
@@ -654,7 +654,7 @@
 
                     append output " <input type=\"$widget_type\" name=\"$widget_name\" value=\"[template::util::quote_html $value]\""
                     if { [info exists values($value)] } {
-                        append output " checked=\"checked\""
+                        append output " selected=\"selected\""
                     }
 
                     append output ">$label<br>\n"