Index: openacs-4/packages/simulation/tcl/template-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/tcl/template-procs.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/simulation/tcl/template-procs.tcl	16 Dec 2003 11:34:33 -0000	1.14
+++ openacs-4/packages/simulation/tcl/template-procs.tcl	16 Dec 2003 15:11:44 -0000	1.15
@@ -141,10 +141,10 @@
         }
 
         if { [info exists edit_array(suggested_duration)] } {
-            if { [empty_string_p $edit_array($col)] } {
-                lappend set_clauses "$col = null"
+            if { [empty_string_p $edit_array(suggested_duration)] } {
+                lappend set_clauses "suggested_duration = null"
             } else {
-                lappend set_clauses "$col = (interval '$edit_array($col)')"
+                lappend set_clauses "suggested_duration = (interval '$edit_array(suggested_duration)')"
             }
             
             set parties $edit_array(suggested_duration)