Index: openacs-4/packages/s5/tcl/s5-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/s5/tcl/s5-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/s5/tcl/s5-procs.tcl 28 Jan 2008 13:01:00 -0000 1.6
+++ openacs-4/packages/s5/tcl/s5-procs.tcl 29 Jan 2008 12:03:35 -0000 1.7
@@ -82,14 +82,14 @@
}
}
- s5 instproc slideshow_header {-title -creator -footer -s5dir} {
+ s5 instproc slideshow_header {-title -creator -footer -s5dir -presdate} {
return [subst {
$title
-
+
@@ -141,13 +141,15 @@
my instvar package_id style page
::xo::cc set_parameter master 0
- set output {
-
+ set coverpage [my resolve_page_name en:cover]
+ if {$coverpage eq ""} {
+ set coverpage $page
}
set output [my slideshow_header \
- -title [$page set title] \
- -creator [$page set creator] \
+ -title [$coverpage set title] \
+ -creator [$coverpage set creator] \
+ -presdate [lindex [$coverpage set last_modified] 0] \
-footer [$page include "footer -decoration none"] \
-s5dir "/resources/s5/$style/ui/default"]