Index: openacs-4/packages/cms/www/modules/sitemap/type-unregister.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/sitemap/type-unregister.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/cms/www/modules/sitemap/type-unregister.tcl	20 Apr 2001 20:51:10 -0000	1.1
+++ openacs-4/packages/cms/www/modules/sitemap/type-unregister.tcl	25 May 2001 02:15:56 -0000	1.2
@@ -5,19 +5,19 @@
 request set_param type_key -datatype keyword
 
 
-set sql "begin
+
+set db [template::begin_db_transaction]
+db_transaction {
+    db_exec_plsql unregister "
+         begin
            content_folder.unregister_content_type(
                folder_id        => :folder_id,
                content_type     => :type_key,
                include_subtypes => 'f' 
            );
          end;"
+}
 
-set db [template::begin_db_transaction]
-ns_ora dml $db $sql
-template::end_db_transaction
-template::release_db_handle
-
 cms_folder::flush_registered_types $folder_id
 
 forward "attributes?folder_id=$folder_id"