Index: openacs-4/packages/cms/tcl/clipboard-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/clipboard-procs.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/cms/tcl/clipboard-procs.tcl 1 Nov 2003 08:45:38 -0000 1.3 +++ openacs-4/packages/cms/tcl/clipboard-procs.tcl 16 Nov 2004 22:32:46 -0000 1.4 @@ -82,6 +82,24 @@ } } +ad_proc -public clipboard::render_bookmark { mount_point id package_url} { + + Compile and eval a chunk of ADP for the bookmark + +} { + set img_checked "[ad_conn package_url]resources/checked.gif" + set img_unchecked "[ad_conn package_url]resources/unchecked.gif" + + set clipboardfloats_p [clipboard::floats_p] + + set code " + " + + set compiled_code [template::adp_compile -string $code] + return [template::adp_eval compiled_code] +} + ad_proc -public clipboard::get_bookmark_icon { clip mount_point item_id {row_ref row} } { Use this function as part of the multirow query to