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.16 -r1.17
--- openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.tcl	12 Nov 2003 17:05:06 -0000	1.16
+++ openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.tcl	9 Feb 2004 14:48:44 -0000	1.17
@@ -20,8 +20,8 @@
     {-mime_type "text/plain"}
     {-description ""}
     {-content ""}
-    {-creation_user_id}
-    {-creation_ip}
+    {-creation_user ""}
+    {-creation_ip ""}
     {-additional_properties}
 } {
     Adds a new revision, you pass additional properties/columns for your custom
@@ -33,16 +33,14 @@
     @param mime_type               mime type of this revision
     @param description             description of the revision
     @param content                 content of the revision
-    @param creation_user_id        user_id creating this item
-    @param creation_user_ip        ip address which this item is created
+    @param creation_user        user_id creating this item
+    @param creation_ip        ip address which this item is created
     @param additional_properites   A list of properties / columns to insert   format: { { property value } ... { property value } }
                                    {property:noquote value} will directly use what is in value. 
                                    Use [list [list prop1 $val1] [list $prop2 $val2]] to generate.
 
     @returns revision_id of newly created revision
 } {
-    if {![info exists creation_user_id]} { set creation_user_id [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]"
@@ -74,7 +72,7 @@
     {-description ""}
     {-upload_file:required}
     {-mime_type}
-    {-creation_user_id}
+    {-creation_user}
     {-creation_ip}
     {-additional_properties}
 } {
@@ -87,12 +85,12 @@
     @param mime_type               mime type of this revision
     @param description             description of the revision
     @param upload_file             a 'file' form builder datatype
-    @param creation_user_id        user_id creating this item
-    @param creation_user_ip        ip address which this item is created
+    @param creation_user        user_id creating this item
+    @param creation_ip        ip address which this item is created
     @param additional_properites   a list of additional properties / columns to insert   format: {property value ... property value}
                                    {property:noquote value} will directly use what is value
 } {
-    if { ![info exists creation_user_id] } { set creation_user_id [ad_conn user_id] }
+    if { ![info exists creation_user] } { set creation_user_id [ad_conn user_id] }
     if { ![info exists creation_ip] } { set creation_ip [ad_conn peeraddr] }
 
     if { ![info exists content_type] } {
@@ -295,7 +293,6 @@
     @param revision_id     revision id to change the status
     @param status          the the status to this value, currently accepted are live and production
 } {
-
     switch -exact $status {
         "live" {db_exec_plsql set_live {}}
         "production" {db_exec_plsql unset_live {}}