loncom/interface/lonannounce.pm - diff

Return to lonannounce.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.20, 2003/09/17 19:45:39	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})
Line 212 ENDDIA	Line 212 ENDDIA

sub handler {	sub handler {
my $r = shift;	my $r = shift;
$r->content_type('text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;