Index: openacs-4/packages/cms/www/modules/sitemap/create.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/sitemap/create.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/cms/www/modules/sitemap/create.tcl	20 Apr 2001 20:51:10 -0000	1.1
+++ openacs-4/packages/cms/www/modules/sitemap/create.tcl	25 May 2001 02:15:56 -0000	1.2
@@ -11,17 +11,15 @@
   set create_parent_id $parent_id
 } 
 
-set db [template::get_db_handle]
 
 # permissions check - user must have cm_new on parent
 content::check_access $create_parent_id cm_new -user_id [User::getID] 
 
 # Get the path
-query path onevalue "
+template::query get_path path onevalue "
   select content_item.get_path(:create_parent_id) from dual
 " 
 
-template::release_db_handle
 
 # Create the form
 
@@ -66,33 +64,33 @@
     set ip [ns_conn peeraddr]
   
     set db [template::begin_db_transaction]
+    db_transaction {
 
-    ns_ora exec_plsql_bind $db "
+        set folder_id [db_exec_plsql new_folder "
     begin 
-    :folder_id := content_folder.new(
+    :1 := content_folder.new(
         name          => :name, 
         label         => :label, 
         description   => :description,
         parent_id     => :create_parent_id, 
         creation_user => :user_id, 
         creation_ip   => :ip ); 
-    end;" folder_id
+    end;"]
 
-    if { [string equal $mount_point "templates"] } {
+        if { [string equal $mount_point "templates"] } {
 
-	template::query register_content_type dml "
+            db_exec_plsql register_content_type "
 	  begin
 	  content_folder.register_content_type(
 	      folder_id        => :folder_id,
 	      content_type     => 'content_template',
 	      include_subtypes => 'f' 
 	  );
 	  end;"
+        }
+
     }
 
-    template::end_db_transaction
-    template::release_db_handle
-
     # Flush the paginator cache
     cms_folder::flush $mount_point $parent_id