Index: openacs-4/packages/wp-slim/www/attach-detail.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/attach-detail.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/wp-slim/www/attach-detail.tcl 4 Oct 2001 04:29:01 -0000 1.2 +++ openacs-4/packages/wp-slim/www/attach-detail.tcl 15 Nov 2001 01:47:13 -0000 1.3 @@ -16,9 +16,10 @@ slide_item_id attach_item_id revisions:multirow - live_revision + revision_id display file_name + attachment_type } @@ -51,13 +52,10 @@ set postamble_selected "" set bottom_selected "" -db_1row info_get { - select i.live_revision, x.display - from cr_items i, cr_wp_attachments x - where x.attach_id = i.live_revision - and i.item_id = :attach_item_id -} +db_1row info_get "" +set attachment_type [cr_registered_type_for_mime_type $mime_type] + set ${display}_selected "selected" set return_url [ns_urlencode "attach-detail?[export_url_vars slide_item_id attach_item_id file_name]"]