Index: openacs-4/packages/lorsm/www/delivery/menu.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/menu.adp,v
diff -u -r1.5 -r1.5.2.1
--- openacs-4/packages/lorsm/www/delivery/menu.adp 7 Jun 2006 14:05:44 -0000 1.5
+++ openacs-4/packages/lorsm/www/delivery/menu.adp 10 Jul 2007 16:42:39 -0000 1.5.2.1
@@ -1,323 +1,69 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-debug is: ON
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+debug is: ON
+delivery is: @deliverymethod@
+
+
+
+btn_abort
+
+
+btn_finish
+
+
+
+
+
+
+
Index: openacs-4/packages/lorsm/www/delivery/menu.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/menu.tcl,v
diff -u -r1.7.2.1 -r1.7.2.2
--- openacs-4/packages/lorsm/www/delivery/menu.tcl 19 Mar 2007 18:12:15 -0000 1.7.2.1
+++ openacs-4/packages/lorsm/www/delivery/menu.tcl 10 Jul 2007 16:42:39 -0000 1.7.2.2
@@ -12,14 +12,23 @@
man_id:integer,notnull
ims_id:integer,notnull,optional
menu_off:integer,notnull,optional
- track_id:integer,notnull
+ track_id:integer,notnull,optional
} -properties {
} -validate {
} -errors {
}
+if { ![info exists track_id] } {
+ set track_id 0 }
+
+if { ![info exists menu_off] } {
+ set menu_off 0 }
+
set debuglevel [ad_get_client_property lorsm debuglevel]
+set deliverymethod [ad_get_client_property lorsm deliverymethod]
+
set items_list [list]
+
foreach org_id [db_list get_org_id { } ] {
foreach item [lorsm::get_items_indent -org_id $org_id] {lappend items_list $item}
}
@@ -29,10 +38,8 @@
set community_id [dotlrn_community::get_community_id]
set counter 1
set user_id [ad_conn user_id]
-if { ![info exists menu_off] } {
- set menu_off 0
-}
+
proc generate_tree_menu { items index rlevel } {
# This function is recursive