Index: openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.tcl	17 Feb 2004 14:38:25 -0000	1.19
+++ openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.tcl	12 Mar 2004 14:01:42 -0000	1.20
@@ -20,8 +20,8 @@
     {-mime_type "text/plain"}
     {-description ""}
     {-content ""}
-    {-creation_user ""}
-    {-creation_ip ""}
+    {-creation_user}
+    {-creation_ip}
     {-additional_properties}
 } {
     Adds a new revision, you pass additional properties/columns for your custom
@@ -41,6 +41,8 @@
 
     @return revision_id of newly created revision
 } {
+    if {![info exists creation_user]} { set creation_user [ad_conn user_id] }
+    if {![info exists creation_ip]} { set creation_ip [ad_conn peeraddr] }
 
     if { [exists_and_not_null additional_properties] } {
         set addtnl_properties ", [bcms::parse_properties -properties $additional_properties -return_format insert_columns]"