--- loncom/interface/lonannounce.pm 2006/06/29 16:44:49 1.57
+++ loncom/interface/lonannounce.pm 2006/09/02 20:47:11 1.60
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Announce
#
-# $Id: lonannounce.pm,v 1.57 2006/06/29 16:44:49 albertel Exp $
+# $Id: lonannounce.pm,v 1.60 2006/09/02 20:47:11 albertel 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=
@@ -279,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;
@@ -485,9 +490,9 @@ SERVERANNOUNCE
# list servers
foreach my $host (sort(keys(%Apache::lonnet::hostname))) {
if (&Apache::lonnet::allowed('psa',$Apache::lonnet::hostdom{$host})) {
- $r->print ('
'.
+ $r->print ('