loncom/interface/lonannounce.pm - diff

Return to lonannounce.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.21, 2003/09/29 13:38:43	version 1.23, 2003/11/08 03:22:03
Line 84 sub normalcell {	Line 84 sub normalcell {
my ($courseid,$start,$end,@msg)=split(/\@/,$_);	my ($courseid,$start,$end,@msg)=split(/\@/,$_);
my $msg=join('@',@msg);	my $msg=join('@',@msg);
my $fullmsg=$ENV{'course.'.$courseid.'.description'}.	my $fullmsg=$ENV{'course.'.$courseid.'.description'}.
', '.localtime($start).' - '.localtime($end).': '.$msg;	', '.&Apache::lonlocal::locallocaltime($start).' - '.&Apache::lonlocal::locallocaltime($end).': '.$msg;
if ($courseid eq $ENV{'request.course.id'}) {	if ($courseid eq $ENV{'request.course.id'}) {
if ((&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))	if ((&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))
&& (!$showedcheck{$start.'_'.$end})	&& (!$showedcheck{$start.'_'.$end})
Line 418 SERVERANNOUNCE	Line 418 SERVERANNOUNCE
}	}
$r->print('</tr>');	$r->print('</tr>');

for (my $k=0;$k<=3;$k++) {	for (my $k=0;$k<=4;$k++) {
$r->print('<tr>');	$r->print('<tr>');
for (my $i=0;$i<=6;$i++) {	for (my $i=0;$i<=6;$i++) {
($tk,$nm,$outp)=&showday($tk,0,%allcal);	($tk,$nm,$outp)=&showday($tk,0,%allcal);