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.3 -r1.3.2.1
--- openacs-4/packages/lorsm/www/delivery/menu.tcl	17 May 2005 17:03:40 -0000	1.3
+++ openacs-4/packages/lorsm/www/delivery/menu.tcl	23 Jun 2005 15:44:27 -0000	1.3.2.1
@@ -18,8 +18,11 @@
 }
 
 
-set org_id [db_string get_org_id { } ]
-set items_list [lorsm::get_items_indent -org_id $org_id]
+set orgs_id [db_list_of_lists get_org_id { } ]
+set items_list [list]
+foreach org_id $orgs_id {
+    append items_list " [lorsm::get_items_indent -org_id $org_id]"
+}
 template::util::list_of_lists_to_array $items_list items_array
 set fs_package_id [db_string get_fs_package_id { } -default "" ]