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.4 -r1.5
--- openacs-4/contrib/packages/bcms/tcl/bcms-template-procs.tcl	13 Nov 2003 15:17:55 -0000	1.4
+++ openacs-4/contrib/packages/bcms/tcl/bcms-template-procs.tcl	9 Feb 2004 14:50:08 -0000	1.5
@@ -137,6 +137,25 @@
 
 }
 
+ad_proc -public bcms::template::register_template {
+	{-content_type:required}
+	{-template_id:required}
+	{-context} 
+	{-is_default_p "f"}
+} {
+	Registers a template for a content_type within specified context
+
+	@param content_type     content_type template is for
+	@param tempalte_id      the template to use
+	@context                context to use template
+} {
+	if {![exists_and_not_null context]} {
+		set context [parameter::get -parameter context]
+	}
+
+	db_exec_plsql register_template {}
+}
+	
 ad_proc -public bcms::template::unregister_template {
     {-item_id:required}
     {-template_id ""}