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 -r1.7.2.1
--- openacs-4/packages/lorsm/www/delivery/menu.tcl	13 Jun 2006 01:25:02 -0000	1.7
+++ openacs-4/packages/lorsm/www/delivery/menu.tcl	19 Mar 2007 18:12:15 -0000	1.7.2.1
@@ -19,9 +19,10 @@
 }
 
 set debuglevel [ad_get_client_property lorsm debuglevel]
-
-set org_id [db_string get_org_id { } ]
-set items_list [lorsm::get_items_indent -org_id $org_id]
+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}
+}
 template::util::list_of_lists_to_array $items_list items_array
 set fs_package_id [db_string get_fs_package_id { } -default "" ]