Index: openacs-4/packages/cms/www/modules/types/unregister-template.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/types/unregister-template.tcl,v
diff -u -N -r1.3 -r1.3.2.1
--- openacs-4/packages/cms/www/modules/types/unregister-template.tcl	16 May 2005 22:59:25 -0000	1.3
+++ openacs-4/packages/cms/www/modules/types/unregister-template.tcl	20 Nov 2006 21:56:05 -0000	1.3.2.1
@@ -1,16 +1,14 @@
 # modules/types/unregister-template.tcl
 #  unregisters a template
 
-
 request create
 request set_param template_id -datatype integer
 request set_param context -datatype keyword
 request set_param content_type -datatype keyword
 request set_param type_props_tab -datatype text -optional -value templates
 request set_param mount_point -datatype text -optional -value types
 
-db_transaction {
-    db_exec_plsql unregister_template {}
-}
+content::type::unregister_template -content_type $content_type \
+    -template_id $template_id -use_context $context
 
 ad_returnredirect [export_vars -base index {content_type mount_point type_props_tab}]