--- loncom/interface/lonannounce.pm 2003/09/03 01:53:46 1.19 +++ loncom/interface/lonannounce.pm 2003/09/17 19:45:39 1.20 @@ -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.20 2003/09/17 19:45:39 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; @@ -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')) .' |
---|