Index: openacs-4/packages/acs-content-repository/tcl/content-symlink-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-symlink-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-content-repository/tcl/content-symlink-procs.tcl	7 Dec 2004 08:28:20 -0000	1.3
+++ openacs-4/packages/acs-content-repository/tcl/content-symlink-procs.tcl	21 Jan 2005 14:25:07 -0000	1.4
@@ -62,7 +62,7 @@
     -target_id:required
     -parent_id:required
     {-symlink_id ""}
-    {-creation_date ""}
+    -creation_date
     {-creation_user ""}
     {-creation_ip ""}
 } {
@@ -77,16 +77,19 @@
 
     @return NUMBER(38)
 } {
-    return [package_exec_plsql -var_list [list \
+    set var_list [list \
         [list name $name ] \
         [list label $label ] \
         [list target_id $target_id ] \
         [list parent_id $parent_id ] \
         [list symlink_id $symlink_id ] \
-        [list creation_date $creation_date ] \
         [list creation_user $creation_user ] \
         [list creation_ip $creation_ip ] \
-    ] content_symlink new]
+    ]
+    if {[exists_and_not_null creation_date]} {
+        lappend var_list [list creation_date $creation_date ]
+    }
+    return [package_exec_plsql -var_list $var_list content_symlink new]
 }