--- loncom/interface/lonannounce.pm 2002/08/09 20:39:13 1.5 +++ loncom/interface/lonannounce.pm 2002/09/11 15:01:43 1.7 @@ -1,7 +1,7 @@ # The LearningOnline Network # Announce # -# $Id: lonannounce.pm,v 1.5 2002/08/09 20:39:13 www Exp $ +# $Id: lonannounce.pm,v 1.7 2002/09/11 15:01:43 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -175,10 +175,8 @@ sub handler { } - -

Announcements

ENDDOCUMENT - + $r->print(&Apache::loncommon::bodytag("Announcements and Calendar")); # does this user have privileges to post, etc? my $allowed=0; if ($ENV{'request.course.id'}) { @@ -245,7 +243,7 @@ ENDFORM 'Previous Month '. 'Next Month

'. ''. - ''); + ''); my $tk=&Apache::loncommon::maketime(%firstday); my $outp; @@ -270,8 +268,9 @@ ENDFORM $r->print(''); } # ------------------------------------------------------------------- End table + $r->print('
SunMonTueWedThuFriSatTueWedThuFriSat
'); if ($allowed) { $r->print(''); } - $r->print('

'. + $r->print('

'. 'Previous Month '. 'Next Month

'. '');