Index: openacs.org-dev/packages/cms/www/modules/sitemap/copy.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/cms/www/modules/sitemap/copy.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/cms/www/modules/sitemap/copy.tcl	9 Jul 2002 17:35:04 -0000	1.1.1.1
+++ openacs.org-dev/packages/cms/www/modules/sitemap/copy.tcl	8 Oct 2002 15:47:02 -0000	1.1.1.2
@@ -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 \