Index: openacs-4/packages/cms/www/modules/clipboard/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/clipboard/index.tcl,v diff -u -r1.6.2.2 -r1.6.2.3 --- openacs-4/packages/cms/www/modules/clipboard/index.tcl 31 Aug 2006 19:59:05 -0000 1.6.2.2 +++ openacs-4/packages/cms/www/modules/clipboard/index.tcl 19 Feb 2007 22:17:43 -0000 1.6.2.3 @@ -55,31 +55,35 @@ label "Type" } path { - label "Path" + label "URL" } } template::multirow create marked_items item_id title type path item_url + set content_root [cm::modules::sitemap::getRootFolderID [ad_conn subsite_id]] + set template_root [cm::modules::templates::getRootFolderID [ad_conn subsite_id]] set item_list [cms::clipboard::get_items $clip $id] - ns_log notice " ------------------> $item_list" + foreach item $item_list { switch $id { sitemap - templates { set title [content::item::get_title -item_id $item] set type [content::item::content_type -item_id $item] - set path [content::item::get_path -item_id $item] switch $type { content_folder { set base_url "../${id}/index" set item_var folder_id + set path "/[content::item::get_path -item_id $item -root_folder_id $content_root]" } content_template { set base_url "../templates/properties" set item_var item_id + set path "/[content::item::get_path -item_id $item -root_folder_id $template_root]" } default { set base_url "../items/index" set item_var item_id + set path "/[content::item::get_path -item_id $item -root_folder_id $content_root]" } } }