--- loncom/interface/lonannounce.pm 2003/09/03 01:53:46 1.19 +++ loncom/interface/lonannounce.pm 2003/10/04 20:49:40 1.22 @@ -1,7 +1,7 @@ # The LearningOnline Network # Announce # -# $Id: lonannounce.pm,v 1.19 2003/09/03 01:53:46 www Exp $ +# $Id: lonannounce.pm,v 1.22 2003/10/04 20:49:40 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -32,6 +32,7 @@ use strict; use Apache::Constants qw(:common); use Apache::loncommon; use Apache::lonhtmlcommon(); +use Apache::lonlocal; use HTML::Entities(); my %todayhash; @@ -83,7 +84,7 @@ sub normalcell { my ($courseid,$start,$end,@msg)=split(/\@/,$_); my $msg=join('@',@msg); 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 ((&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) && (!$showedcheck{$start.'_'.$end}) @@ -211,7 +212,7 @@ ENDDIA sub handler { my $r = shift; - $r->content_type('text/html'); + &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; return OK if $r->header_only; @@ -367,9 +368,12 @@ SERVERANNOUNCE if ($pm<1) { ($pm,$py)=(12,$year-1); } if ($fm>12){ ($fm,$fy)=(1,$year+1); } - $r->print('
'. + ($pickdatemode?$pickinfo:'').'">'.&mt('Current Month').'
'. '
'. -&tfont('Sun') +&tfont(&mt('Sun')) .' | '. -&tfont('Mon') +&tfont(&mt('Mon')) .' | '. -&tfont('Tue') +&tfont(&mt('Tue')) .' | '. -&tfont('Wed') +&tfont(&mt('Wed')) .' | '. -&tfont('Thu') +&tfont(&mt('Thu')) .' | '. -&tfont('Fri') +&tfont(&mt('Fri')) .' | '. -&tfont('Sat') +&tfont(&mt('Sat')) .' |
---|