Index: openacs-4/packages/wp-slim/www/edit-slide-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/edit-slide-2.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/wp-slim/www/edit-slide-2.tcl	22 Sep 2003 18:41:27 -0000	1.7
+++ openacs-4/packages/wp-slim/www/edit-slide-2.tcl	29 Sep 2003 02:41:33 -0000	1.8
@@ -56,7 +56,8 @@
 }
 
 if {[regexp {Upload} $button]} {
-    set context [list [list "presentation-top?[export_url_vars pres_item_id]" "[_ wp-slim.Presentation_Top]"] [list "edit-slide?[export_url_vars slide_item_id pres_item_id]" "[_ wp-slim.Edit_Slide]"] "$slide_title"]
+    db_1row get_presentation {}
+    set context [list [list "presentation-top?[export_url_vars pres_item_id]" "$pres_title"] [list "edit-slide?[export_url_vars slide_item_id pres_item_id]" "[_ wp-slim.Edit_Slide]"] "$slide_title"]
     # get the number of attachments
     set attachment_count [db_string get_number_of_attachments {
 	select count(1)