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.18 -r1.19
--- openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.tcl	10 Feb 2004 16:03:52 -0000	1.18
+++ openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.tcl	17 Feb 2004 14:38:25 -0000	1.19
@@ -39,7 +39,7 @@
                                    {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
+    @return revision_id of newly created revision
 } {
 
     if { [exists_and_not_null additional_properties] } {
@@ -101,6 +101,7 @@
     # get the file properties
     set upload_filename [template::util::file::get_property filename $upload_file]
     set upload_tmpfile [template::util::file::get_property tmp_filename $upload_file]
+
     if { ![exists_and_not_null mime_type] } {
         set mime_type [template::util::file::get_property mime_type $upload_file]
     }
@@ -144,7 +145,7 @@
     @param return_list          if supplied a list of ns_sets otherwise it
                                 returns a multirow uses the multirow_name if given
 
-    @returns the revisions of a content item.  with the following data:
+    @return the revisions of a content item.  with the following data:
     revision_id, title, live_revision_id, creation_date, description and creation user's first_names and last_name
 } {
     # TODO: content_type is passed not sure if if need to,
@@ -165,12 +166,12 @@
     {-revision_id:required}
     {-additional_properties}
 } {
-    Get the revision info on a single revision
+    Get the revision info on a single revision in array-list format.
 
     @param revision_id            revision_id of the version you want to retrieve
     @param additional_properties  a list of property names that you add to the array returned
 
-    @returns an array that contains item_id, name, title, description,
+    @return an array that contains item_id, name, title, description,
     content, content_type, publish_status, latest_revision, live_revision, storage_type
     and whatever additional_properties is supplied
 } {
@@ -271,7 +272,7 @@
 
     @param revision_id    id of the revision to delete
 
-    @returns 1 if the deletion is successful, 0 if not.
+    @return 1 if the deletion is successful, 0 if not.
 } {
     set revision_count [db_string get_revision_count {}]
     if {$revision_count > 1} {
@@ -318,7 +319,7 @@
     @param creation_user   user performing the copy
     @param creation_ip     ip address of the user performing the copy
 
-    @returns the version id of the new revision
+    @return the version id of the new revision
 } {
 
     if {![info exists creation_user_id]} { set creation_user_id [ad_conn user_id] }