Index: openacs-4/packages/cms/www/modules/sitemap/type-register.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/sitemap/type-register.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/cms/www/modules/sitemap/type-register.tcl	20 Apr 2001 20:51:10 -0000	1.1
+++ openacs-4/packages/cms/www/modules/sitemap/type-register.tcl	25 May 2001 02:15:56 -0000	1.2
@@ -7,21 +7,18 @@
 set clip [clipboard::parse_cookie]
 set marked_types [clipboard::get_items $clip "types"]
     
-set sql "begin
+db_transaction {
+    foreach type $marked_types {
+
+        db_exec_plsql register_type "begin
            content_folder.register_content_type(
                folder_id        => :folder_id,
                content_type     => :type,
                include_subtypes => 'f'
            );
          end;"
-
-set db [template::begin_db_transaction]
-foreach type $marked_types {
-
-    ns_ora dml $db $sql
+    }
 }
-template::end_db_transaction
-template::release_db_handle
 
 cms_folder::flush_registered_types $folder_id