--- loncom/interface/lonmenu.pm 2009/11/30 21:29:47 1.308
+++ loncom/interface/lonmenu.pm 2009/12/22 14:35:25 1.311
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines to control the menu
#
-# $Id: lonmenu.pm,v 1.308 2009/11/30 21:29:47 raeburn Exp $
+# $Id: lonmenu.pm,v 1.311 2009/12/22 14:35:25 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -150,6 +150,9 @@ sub prep_menuitem {
} else { # textual Link
$link = &mt($$menuitem[3]);
}
+ if($$menuitem[4] eq 'newmsg'){ #special style for New Messages
+ return '
'.$link.'';
+ }
return ''.$link.'';
}
@@ -290,7 +293,7 @@ sub initlittle {
'roles' => (&Apache::loncommon::show_course()?
'Courses':'Roles'),
'other' => 'Other Roles',
- 'docs' => 'Edit Course',
+ 'docs' => 'Course Editor',
'exit' => 'Logout',
'login' => 'Log In',
'launch' => 'Launch Remote Control',
@@ -1336,15 +1339,15 @@ sub inlinemenu {
undef(%category_members);
# calling rawconfig with "1" will evaluate mydesk.tab, even if there is no active remote control
&rawconfig(1);
- my $output='';
+ 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.=' ';
- $output.='';
- $output.=' '.&mt($category_names{$cat}).'';
+ $output.=' ';
+ $output.=' '.&mt($category_names{$cat}).'';
$output.=' ';
my %active=();
foreach my $menu_item (split(/\:/,$category_members{$cat})) {
|