Index: openacs-4/packages/s5/s5.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/s5/s5.info,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/s5/s5.info 4 Sep 2007 11:33:29 -0000 1.1
+++ openacs-4/packages/s5/s5.info 4 Sep 2007 11:41:20 -0000 1.2
@@ -8,14 +8,14 @@
f
s5
-
+
Gustaf Neumann
2007-09-04
Gustaf Neumann
0
-
-
+
+
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.1 -r1.2
--- openacs-4/packages/s5/tcl/s5-procs.tcl 4 Sep 2007 11:33:29 -0000 1.1
+++ openacs-4/packages/s5/tcl/s5-procs.tcl 4 Sep 2007 11:41:21 -0000 1.2
@@ -143,7 +143,7 @@
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]
+ set p [::xo::db::CrClass get_instance_from_db -item_id 0 -revision_id $page_id]
$p destroy_on_cleanup
#$p set render_adp 0
set content [$p get_content]
@@ -167,7 +167,7 @@
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]
+ set p [::xo::db::CrClass get_instance_from_db -item_id 0 -revision_id $page_id]
$p destroy_on_cleanup
set menu [list]