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.8 -r1.9
--- openacs-4/packages/s5/tcl/s5-procs.tcl 29 Jan 2008 23:00:12 -0000 1.8
+++ openacs-4/packages/s5/tcl/s5-procs.tcl 5 Feb 2008 15:21:02 -0000 1.9
@@ -12,12 +12,6 @@
-package_key "s5" -pretty_name "S5" \
-superclass ::xowiki::Package
- # To provide downward compatibility with e.g. xowiki form oacs-5-3,
- # we set the package_key via instvar.
- # TODO: The package-key should be set via "-package_key s5"
- # during the above create statement
- ::s5::Package set package_key s5
-
Package instproc init {} {
set rich_text_spec {richtext(richtext),nospell,optional
{label Content}
@@ -83,6 +77,7 @@
}
s5 instproc slideshow_header {-title -creator -footer -s5dir -presdate} {
+ set header_stuff [::xo::Page header_stuff]
return [subst {<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>$title</title>
@@ -109,7 +104,7 @@
img#me04 {top: 44px;}
img#me05 {top: 43px;left: 36px;}
</style>
-
+$header_stuff
<!--
<script type="text/javascript" src="http://yui.yahooapis.com/2.4.1/build/yahoo-dom-event/yahoo-dom-event.js" ></script>
-->
@@ -145,14 +140,8 @@
if {$coverpage eq ""} {
set coverpage $page
}
+ set outtput ""
- set output [my slideshow_header \
- -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"]
-
if {$cnames ne ""} {
#append output "<div class='filter'>Filtered by categories: $cnames</div>"
}
@@ -171,7 +160,15 @@
<h1> $title </h1> \n \
$content \
</div> \n
- }
+ }
+ # eval header here to get required header stuff
+ set header [my slideshow_header \
+ -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"]
+
# use YAHOO event management to allow multiple event listener, and ensure, this ones is after s5's
append output "<script type='text/javascript'>
var pagenr = $pagenr;
@@ -181,7 +178,7 @@
YAHOO.util.Event.addListener(window, 'load', ngo);
</script>\n"
- return $output
+ return $header$output
}
s5 instproc render_overview {pages cnames menu_buttons} {
Index: openacs-4/packages/s5/www/resources/standard/ui/default/print.css
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/s5/www/resources/standard/ui/default/print.css,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/s5/www/resources/standard/ui/default/print.css 29 Jan 2008 23:00:12 -0000 1.4
+++ openacs-4/packages/s5/www/resources/standard/ui/default/print.css 5 Feb 2008 15:21:02 -0000 1.5
@@ -51,5 +51,5 @@
*/
div.slide pre.code {
- font-size: 60%;
+ font-size: 80%;
}
\ No newline at end of file