Index: openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl,v
diff -u -N -r1.12 -r1.13
--- openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	15 Feb 2003 23:59:16 -0000	1.12
+++ openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	17 Mar 2003 20:21:32 -0000	1.13
@@ -8,6 +8,20 @@
 
 proc number_p { str } {
   return [regexp {^[-+]?[0-9]*(.[0-9]+)?$} $str]
+
+  # Note that this will return true for empty string!
+  # TODO: Presumably this is by design?  Probably better to use
+  # ad_var_type_check_number_p anyway.
+  #
+  # Note that ACS 3.2 defined number_p like this:
+  #
+  #   if { [empty_string_p $var] } {
+  #       return 0
+  #   } else {
+  #       return [regexp {^-?[0-9]*\.?[0-9]*$} $var match]
+  #   }
+  #
+  # --atp@piskorski.com, 2003/03/16 21:09 EST
 }
 
 proc empty_string_p { query_string } {