Index: openacs-4/packages/wp-slim/www/serve-slide.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/serve-slide.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/wp-slim/www/serve-slide.tcl 12 Sep 2013 20:47:20 -0000 1.11
+++ openacs-4/packages/wp-slim/www/serve-slide.tcl 23 Jun 2015 16:19:30 -0000 1.12
@@ -74,7 +74,7 @@
# Figure out what the previous slide link should be.
if {$sort_key == 1} {
- set href_back "[_ wp-slim.top] | "
+ set href_back [subst {[_ wp-slim.top] | }]
} else {
set previous_slide_item_id [db_string get_previous_slide_item_id {
select i.item_id
@@ -84,7 +84,7 @@
and s.sort_key = (:sort_key - 1)
}
]
- set href_back "[_ wp-slim.previous] | "
+ set href_back [subst {[_ wp-slim.previous] | }]
}
# Figure out what the next slide link should be.
@@ -105,9 +105,9 @@
# this is the only slide.
set href_back ""
}
- set href_forward "[_ wp-slim.top]"
+ set href_forward [subst {[_ wp-slim.top]}]
} else {
- set href_forward "[_ wp-slim.next]"
+ set href_forward [subst {[_ wp-slim.next]}]
}
@@ -122,10 +122,12 @@
set edit_slide 1
set extra ""
if {$edit_p == 1} {
- append extra "[_ wp-slim.edit] | "
+ set href [export_vars -base $subsite_name/add-edit-slide {slide_item_id pres_item_id edit_slide}]
+ append extra [subst {[_ wp-slim.edit] | }]
}
if {$delete_p == 1} {
- append extra "[_ wp-slim.delete] |"
+ set href [export_vars -base $subsite_name/delete-slide {slide_item_id pres_item_id slide_title}]
+ append extra [subst {[_ wp-slim.delete] |}]
}
set href_back_forward "$href_back $extra $href_forward"