Index: openacs-4/packages/cms/www/modules/items/rename.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/items/rename.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/cms/www/modules/items/rename.tcl	20 Apr 2001 20:51:10 -0000	1.1
+++ openacs-4/packages/cms/www/modules/items/rename.tcl	24 May 2001 01:30:52 -0000	1.2
@@ -5,12 +5,11 @@
 request set_param item_id -datatype integer
 request set_param mount_point -datatype keyword -value sitemap
 
-set db [template::get_db_handle]
 
 # permissions check - cm_write required to rename an item
 content::check_access $item_id cm_write -user_id [User::getID]
 
-template::query item_name onevalue "
+template::query get_item_name item_name onevalue "
   select 
     name
   from 
@@ -19,12 +18,6 @@
     item_id = :item_id
 "
 
-template::query item_name onevalue "
-  select name from cr_items where item_id = :item_id
-"
-
-template::release_db_handle
-
 set page_title "Rename $item_name"
 
 form create rename_item
@@ -56,26 +49,24 @@
 	  mount_point item_id name
 
   set db [template::begin_db_transaction]
-  template::query rename_item dml "
+  db_transaction {
+      db_exec_plsql rename_item "
     begin 
     content_item.rename (
         item_id => :item_id, 
         name    => :name 
     ); 
     end;"
 
-  template::query parent_id onevalue "
+      template::query get_parent_id parent_id onevalue "
     select
       parent_id
     from
       cr_items
     where
-      item_id = :item_id
-  " 
+      item_id = :item_id" 
+  }
 
-  template::end_db_transaction
-  template::release_db_handle
-
   # flush cache
   cms_folder::flush $mount_point $parent_id