Index: openacs-4/packages/acs-content-repository/tcl/content-template-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-template-procs.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/acs-content-repository/tcl/content-template-procs.tcl	7 Dec 2004 07:13:21 -0000	1.4
+++ openacs-4/packages/acs-content-repository/tcl/content-template-procs.tcl	29 Dec 2004 15:34:54 -0000	1.5
@@ -18,7 +18,7 @@
     {-parent_id ""}
     {-is_live ""}
     {-template_id ""}
-    {-creation_date ""}
+    -creation_date
     {-creation_user ""}
     {-creation_ip ""}
     {-package_id ""}
@@ -35,17 +35,20 @@
 
     @return template_id of created template
 } {
-    return [package_exec_plsql -var_list [list \
+    set arg_list [list \
         [list name $name ] \
         [list text $text ] \
         [list parent_id $parent_id ] \
         [list is_live $is_live ] \
         [list template_id $template_id ] \
-        [list creation_date $creation_date ] \
         [list creation_user $creation_user ] \
         [list creation_ip $creation_ip ] \
         [list package_id $package_id ] \
-    ] content_template new]
+    ]
+    if {[exists_and_not_null creation_date]} {
+        lappend arg_list [list creation_date $creation_date ]
+    }
+    return [package_exec_plsql -var_list  $arg_list content_template new]
 }