Index: openacs-4/packages/cms/www/modules/sitemap/copy.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/sitemap/copy.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/cms/www/modules/sitemap/copy.tcl	30 Aug 2001 03:41:34 -0000	1.4
+++ openacs-4/packages/cms/www/modules/sitemap/copy.tcl	19 Aug 2002 03:42:26 -0000	1.5
@@ -26,27 +26,10 @@
     set no_items_on_clipboard "f"
 }
 
-template::query get_path path onevalue "
-  select
-    content_item.get_path( :folder_id )
-  from 
-    dual
-" 
+set path [db_string get_path ""]
 
 # get relevant marked items
-template::query get_marked marked_items multirow "
-  select
-    content_item.get_title(item_id) title, 
-    content_item.get_path(item_id,:root_id) name, 
-    item_id, parent_id
-  from
-    cr_items
-  where
-    item_id in ([join $clip_items ","])
-  and
-    -- only for those items which user has cm_examine
-    cms_permission.permission_p(item_id, :user_id, 'cm_examine') = 't'
-"
+db_multirow marked_items get_marked ""
 
 form create copy
 element create copy mount_point \