loncom/interface/lonannounce.pm - diff

Return to lonannounce.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.58, 2006/07/03 03:11:07	version 1.59, 2006/07/03 15:30:52
Line 80 sub readcalendar {	Line 80 sub readcalendar {
$returnhash{$courseid.'@'.$item}=$thiscal{$item};	$returnhash{$courseid.'@'.$item}=$thiscal{$item};
}	}
}	}

return %returnhash if ($courseid ne $env{'request.course.id'});

my $can_see_hidden = $env{'request.role.adv'};	my $can_see_hidden = $env{'request.role.adv'};
my $navmap;# = Apache::lonnavmaps::navmap->new();	my $navmap;# = Apache::lonnavmaps::navmap->new();
my %resourcedata=	my %resourcedata=
Line 281 sub display_msg {	Line 278 sub display_msg {

my $output = $msg->{'datetype'}. ': '.$msg->{'realm'};	my $output = $msg->{'datetype'}. ': '.$msg->{'realm'};
if (exists($msg->{'url'})) {	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'})) {	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'}.') ';	$output .= ' ('.$msg->{'section'}.') ';
return $output;	return $output;