Index: openacs-4/contrib/packages/bcms/tcl/bcms-template-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/bcms/tcl/bcms-template-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/contrib/packages/bcms/tcl/bcms-template-procs.tcl	13 Nov 2003 15:12:37 -0000	1.3
+++ openacs-4/contrib/packages/bcms/tcl/bcms-template-procs.tcl	13 Nov 2003 15:17:55 -0000	1.4
@@ -43,18 +43,15 @@
     @param description             description of the template
     @param content                 content of the template
     @param creation_user_id        user_id creating this item
-    @param creation_user_ip        ip address which this item is created
+    @param creation_ip        ip address which this item is created
 
     @returns the revision_id of the new template 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] }
 
-    set revision_id [bcms::revision::add_revision -item_id $template_id -title $title \
-                         -mime_type "text/html" -description $description \
-                         -content $content -creation_user_id $creation_user_id \
-                         -creation_user_ip $creation_user_ip]
+    set revision_id [db_exec_plsql add_template {}]
     return $revision_id
 }