|
version 1.21, 2003/09/29 13:38:43
|
version 1.22, 2003/10/04 20:49:40
|
|
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}) |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonannounce.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface