"
+ }
+ foreach o [$pages children] {
+ $o instvar page_order title page_id name title
+ set level [expr {[regsub {[.]} $page_order . page_order] + 1}]
+ set p [::Generic::CrItem instantiate -item_id 0 -revision_id $page_id]
+ $p destroy_on_cleanup
+ #$p set render_adp 0
+ set content [$p get_content]
+ set content [string map [list "\{\{" "\\\{\{"] $content]
+ append output "
" \
+
$title
\n \
+ $content \
+
\n
+ }
+ return $output
+ }
+
+ s5 instproc render_overview {pages cnames menu_buttons} {
+ my instvar package_id page
+ set output ""
+ if {$cnames ne ""} {
+ append output "
Filtered by categories: $cnames
"
+ }
+ set return_url [::xo::cc url]
+
+ foreach o [$pages children] {
+ $o instvar page_order title page_id name title
+ set level [expr {[regsub {[.]} $page_order . page_order] + 1}]
+ set p [::Generic::CrItem instantiate -item_id 0 -revision_id $page_id]
+ $p destroy_on_cleanup
+
+ set menu [list]
+ foreach b $menu_buttons {
+ set html [$p include_portlet $b]
+ if {$html ne ""} {lappend menu $html}
+ }
+ set menu "
[join $menu { }]
"
+ $p set unresolved_references 0
+ #$p set render_adp 0
+ set content [$p get_content]
+ set content [string map [list "\{\{" "\\\{\{" "\\@" "\\\\@"] $content]
+ my log content=$content
+ regexp {^.*:([^:]+)$} $name _ anchor
+ append output "" \
+ $menu \
+ "$page_order $title" \
+ $content
+ }
+ return $output
+ }
+}
Index: openacs-4/packages/s5/www/index.vuh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/s5/www/index.vuh,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/s5/www/index.vuh 4 Sep 2007 11:33:29 -0000 1.1
@@ -0,0 +1,20 @@
+# -*- tcl -*-
+::s5::Package initialize -ad_doc {
+
+ This is the resolver for this package. It turns a request into
+ an object and executes the object with the computed method
+
+ @author Gustaf Neumann (gustaf.neumann@wu-wien.ac.at)
+ @creation-date July, 2006
+ @cvs-id $Id: index.vuh,v 1.1 2007/09/04 11:33:29 gustafn Exp $
+
+} -parameter {
+ {-m view}
+ {-folder_id:integer 0}
+}
+
+::$package_id log "--starting... [ns_conn url] [ns_conn query] \
+ form vars = [ns_set array [ns_getform]]"
+::$package_id reply_to_user [::$package_id invoke -method $m]
+::$package_id log "--i ::$package_id DONE"
+ad_script_abort
Index: openacs-4/packages/s5/www/admin/index.vuh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/s5/www/admin/index.vuh,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/s5/www/admin/index.vuh 4 Sep 2007 11:33:29 -0000 1.1
@@ -0,0 +1,4 @@
+# -*- tcl -*-
+set l [expr {[lsearch -exact [ns_conn urlv] admin] + 1 }]
+set path [join [lrange [ns_conn urlv] $l end] /]
+rp_internal_redirect /packages/xowiki/www/admin/$path
Index: openacs-4/packages/s5/www/prototypes/cover.page
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/s5/www/prototypes/cover.page,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/s5/www/prototypes/cover.page 4 Sep 2007 11:33:29 -0000 1.1
@@ -0,0 +1,6 @@
+::xowiki::Page new -title "Title of Your Presentation" -creator "Your Name here" -page_order 1.0 -text {
+Subtitle of your Presentation
+
+@creator@
+Your Affiliation
+}
Index: openacs-4/packages/s5/www/prototypes/footer.page
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/s5/www/prototypes/footer.page,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/s5/www/prototypes/footer.page 4 Sep 2007 11:33:29 -0000 1.1
@@ -0,0 +1,6 @@
+::xowiki::Page new -title "Footer" -text {
+
+This is the default start page of S5 slide manager, showing you the contents of this folder.
+Typically, you can see here listed the sildes and some helper pages to manage the slide contents.
+This page can be edited to provide a personalized look of the start page.
+The defined slides are shown on the slides page,
+where you will find as well a link to start the slide presentation.
+
+For more details, consult the [[http://media.wu-wien.ac.at/download/xowiki-doc/|XoWiki documentation]].
+
The title and creator of this presentation should be provided on the
+cover page.
+The footer of every slide can be provided on the
+footer page.
+Use new page to create a new slide and provide
+a section numbering for ordering the slides and including it in this slide set.
+Below are the currently defined slides of this presentation.
+
{{presentation}}
+>><<
+
+}
Index: openacs-4/packages/s5/www/resources/s5-xinha.css
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/s5/www/resources/s5-xinha.css,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/s5/www/resources/s5-xinha.css 4 Sep 2007 11:33:30 -0000 1.1
@@ -0,0 +1,11 @@
+ul.incremental {
+ color: #222222;
+ background-color: #FFFFC4;
+}
+ul.show-first {
+ color: #222222;
+ background-color: #FFFF4C;
+}
+ul.non-incremental {
+ background-color: #FFFFFF;
+}
\ No newline at end of file
Index: openacs-4/packages/s5/www/resources/flower/COPYRIGHT
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/s5/www/resources/flower/COPYRIGHT,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/s5/www/resources/flower/COPYRIGHT 4 Sep 2007 11:33:30 -0000 1.1
@@ -0,0 +1,6 @@
+* The purely CSS and JavaScript based S5 package was under
+* Creative Commons Attribution-ShareAlike 2.0 license
+* before Version 1.1, starting with version 1.1 it was placed
+* in the public domain. The original S5 files, to which this
+* paragraph refers to are under www/resources/flower and
+* www/resources/standard.
Index: openacs-4/packages/s5/www/resources/flower/ui/bg-shade.png
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/s5/www/resources/flower/ui/bg-shade.png,v
diff -u
Binary files differ
Index: openacs-4/packages/s5/www/resources/flower/ui/s5-notes.html
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/s5/www/resources/flower/ui/s5-notes.html,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/s5/www/resources/flower/ui/s5-notes.html 4 Sep 2007 11:33:30 -0000 1.1
@@ -0,0 +1,64 @@
+
+
+
+
+Notes
+
+
+
+
+
+
+
+