Index: openacs.org-dev/packages/wp-slim/www/serve-slide-revision.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs.org-dev/packages/wp-slim/www/serve-slide-revision.tcl,v diff -u -r1.1.1.1 -r1.1.1.2 --- openacs.org-dev/packages/wp-slim/www/serve-slide-revision.tcl 9 Jul 2002 17:35:19 -0000 1.1.1.1 +++ openacs.org-dev/packages/wp-slim/www/serve-slide-revision.tcl 8 Oct 2002 15:47:46 -0000 1.1.1.2 @@ -20,6 +20,7 @@ page_signature href_back_forward attach_list:multirow + context:onevalue subsite_name } @@ -50,6 +51,8 @@ and ao.object_id = s.slide_id } +set context [list [list "$subsite_name/display/$pres_item_id" "one presentation"] "one slide"] + db_1row get_presentation_page_signature { select p.page_signature, p.show_modified_p @@ -65,5 +68,3 @@ where i.parent_id = :slide_item_id and i.live_revision = x.attach_id } - -ad_return_template