--- loncom/interface/lonmenu.pm 2007/04/11 19:38:59 1.211
+++ loncom/interface/lonmenu.pm 2007/04/13 20:22:15 1.214
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines to control the menu
#
-# $Id: lonmenu.pm,v 1.211 2007/04/11 19:38:59 www Exp $
+# $Id: lonmenu.pm,v 1.214 2007/04/13 20:22:15 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -445,7 +445,7 @@ sub innerregister {
# Finally, turn the button on or off
if ($cfile && !$const_space) {
$editbutton=&switch
- ('','',6,1,'cstr.gif','edit[_1]','resource[_2]',
+ ('','',6,1,'pcstr.gif','edit[_1]','resource[_2]',
"go('".$cfile."');","Edit this resource");
} elsif ($editbutton eq '') {
$editbutton=&clear(6,1);
@@ -842,6 +842,9 @@ sub switch {
}
} else {
# Inline Remote
+ if ($env{'environment.icons'} ne 'classic') {
+ $img=~s/\.gif$/\.png/;
+ }
if ($nobreak==2) { return ''; }
my $text=$top.' '.$bot;
$text=~s/\s*\-\s*//gs;
@@ -907,13 +910,13 @@ sub inlinemenu {
undef(@inlineremote);
undef(%category_members);
&rawconfig(1);
- my $output='
';
+ my $output='';
for (my $col=1; $col<=2; $col++) {
- $output.='';
+ $output.=' | ';
for (my $row=1; $row<=8; $row++) {
foreach my $cat (keys(%category_members)) {
if ($category_positions{$cat} ne "$col,$row") { next; }
- $output.=' ';
+ $output.=' ';
my %active=();
foreach my $menu_item (split(/\:/,$category_members{$cat})) {
if ($inlineremote[$menu_item]) {
|