--- loncom/interface/lonmenu.pm 2008/07/05 23:21:23 1.239
+++ loncom/interface/lonmenu.pm 2008/09/04 22:47:20 1.240
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines to control the menu
#
-# $Id: lonmenu.pm,v 1.239 2008/07/05 23:21:23 raeburn Exp $
+# $Id: lonmenu.pm,v 1.240 2008/09/04 22:47:20 riegler Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -993,6 +993,35 @@ sub inlinemenu {
undef(@inlineremote);
undef(%category_members);
&rawconfig(1);
+ my $output='
';
+ for (my $col=1; $col<=2; $col++) {
+ $output.='';
+ for (my $row=1; $row<=8; $row++) {
+ foreach my $cat (keys(%category_members)) {
+ if ($category_positions{$cat} ne "$col,$row") { next; }
+ $output.=' ';
+ my %active=();
+ foreach my $menu_item (split(/\:/,$category_members{$cat})) {
+ if ($inlineremote[$menu_item]) {
+ $active{$menu_item}=1;
+ }
+ }
+ foreach my $item (sort(keys(%active))) {
+ $output.=$inlineremote[$item];
+ }
+ $output.=' ';
+ }
+ }
+ $output.=" | ";
+ }
+ $output.="
";
+ return $output;
+}
+
+sub inlinemenu_new {
+ undef(@inlineremote);
+ undef(%category_members);
+ &rawconfig(1);
my $output='