Index: openacs.org-dev/packages/cms/www/modules/items/rename.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/cms/www/modules/items/rename.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/cms/www/modules/items/rename.tcl	9 Jul 2002 17:35:03 -0000	1.1.1.1
+++ openacs.org-dev/packages/cms/www/modules/items/rename.tcl	8 Oct 2002 15:47:02 -0000	1.1.1.2
@@ -9,14 +9,7 @@
 # permissions check - cm_write required to rename an item
 content::check_access $item_id cm_write -user_id [User::getID]
 
-template::query get_item_name item_name onevalue "
-  select 
-    name
-  from 
-    cr_items
-  where 
-    item_id = :item_id
-"
+set item_name [db_string get_item_name ""]
 
 set page_title "Rename $item_name"
 
@@ -57,13 +50,7 @@
     ); 
     end;"
 
-      template::query get_parent_id parent_id onevalue "
-    select
-      parent_id
-    from
-      cr_items
-    where
-      item_id = :item_id" 
+      set parent_id [db_string get_parent_id ""]
   }
 
   # flush cache