Index: openacs-4/contrib/packages/bcms/tcl/bcms-template-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/bcms/tcl/bcms-template-procs-postgresql.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/packages/bcms/tcl/bcms-template-procs-postgresql.xql	13 Nov 2003 15:12:37 -0000	1.3
+++ openacs-4/contrib/packages/bcms/tcl/bcms-template-procs-postgresql.xql	13 Nov 2003 15:17:55 -0000	1.4
@@ -10,6 +10,12 @@
 		</querytext>
 	</fullquery>
 
+	<fullquery name="bcms::template::add_template.add_template">
+		<querytext>
+			select content_revision__new(:title, :description, now(), 'text/html', null, :content, :template_id, null, now(), :creation_user_id, :creation_ip)
+		</querytext>
+	</fullquery>
+
 	<fullquery name="bcms::template::delete_template.delete_template">
 		<querytext>
 			select content_template__delete(:template_id)
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 -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
 }