Index: openacs-4/packages/acs-tcl/tcl/aolserver-3-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/aolserver-3-procs.tcl,v
diff -u -r1.2 -r1.2.4.1
--- openacs-4/packages/acs-tcl/tcl/aolserver-3-procs.tcl	24 Apr 2001 22:38:12 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/aolserver-3-procs.tcl	7 Jun 2003 01:47:32 -0000	1.2.4.1
@@ -5,7 +5,7 @@
 
     @creation-date 27 Feb 2000
     @author Jon Salz [jsalz@arsdigita.com]
-    @cvs-id $Id$
+    @cvs-id aolserver-3-procs.tcl,v 1.2 2001/04/24 22:38:12 donb Exp
 }
 
 # -1 = Not there or value was ""
@@ -23,7 +23,7 @@
 
     set value [ns_set get $formdata $column]
 
-    if [string match $value ""] {
+    if { [string match $value ""] } {
         switch $type {
 	    
 	    date      {
@@ -53,7 +53,7 @@
 	    }
 	}
     }
-    if [string match $value ""] {
+    if { [string match $value ""] } {
 	return -1
     } else {
 	return 1
@@ -110,15 +110,15 @@
 proc _ns_updatebutton {table var} {
     upvar $var updatebutton
 
-    if ![info exists updatebutton] {
+    if { ![info exists updatebutton] } {
 	set updatebutton ""
     }
-    if [string match "" $updatebutton] {
+    if { [string match "" $updatebutton] } {
 	db_with_handle db {
 	    set updatebutton [ns_table value $db $table update_button_label]
 	}
     }
-    if [string match "" $updatebutton] {
+    if { [string match "" $updatebutton] } {
 	set updatebutton "Update Record"
     }
 }