--- loncom/interface/lonannounce.pm 2006/06/29 15:23:59 1.56 +++ loncom/interface/lonannounce.pm 2006/07/03 15:30:52 1.59 @@ -1,7 +1,7 @@ # The LearningOnline Network # Announce # -# $Id: lonannounce.pm,v 1.56 2006/06/29 15:23:59 albertel Exp $ +# $Id: lonannounce.pm,v 1.59 2006/07/03 15:30:52 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -80,7 +80,6 @@ sub readcalendar { $returnhash{$courseid.'@'.$item}=$thiscal{$item}; } } - my $can_see_hidden = $env{'request.role.adv'}; my $navmap;# = Apache::lonnavmaps::navmap->new(); my %resourcedata= @@ -241,7 +240,6 @@ sub listcell { foreach my $item (@items) { if (ref($item)) { my ($courseid,$start,$end,$msg)=@$item; - &Apache::lonnet::logthis(" msg2 is ".ref($msg)." $msg "); my $fullmsg=&Apache::lonlocal::locallocaltime($start); if ($start!=$end) { $fullmsg.=&mt(' to '). @@ -280,10 +278,16 @@ sub display_msg { my $output = $msg->{'datetype'}. ': '.$msg->{'realm'}; if (exists($msg->{'url'})) { - $output .= ': '.&Apache::lonnet::gettitle($msg->{'url'}); + my $displayurl=&Apache::lonnet::gettitle($msg->{'url'}); + if ($msg->{'url'}!~/\Q$displayurl\E$/) { + $output .= ' - '.$displayurl; + } } if (exists($msg->{'symb'})) { - $output .= ': '.&Apache::lonnet::gettitle($msg->{'symb'}); + my $displaysymb=&Apache::lonnet::gettitle($msg->{'symb'}); + if ($msg->{'symb'}!~/\Q$displaysymb\E$/) { + $output .= ' - '.$displaysymb; + } } $output .= ' ('.$msg->{'section'}.') '; return $output;