--- loncom/interface/lonannounce.pm 2002/08/21 17:18:08 1.6 +++ loncom/interface/lonannounce.pm 2003/05/21 19:15:41 1.10 @@ -1,7 +1,7 @@ # The LearningOnline Network # Announce # -# $Id: lonannounce.pm,v 1.6 2002/08/21 17:18:08 www Exp $ +# $Id: lonannounce.pm,v 1.10 2003/05/21 19:15:41 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -31,6 +31,27 @@ package Apache::lonannounce; use strict; use Apache::Constants qw(:common); use Apache::loncommon; +use Apache::lonhtmlcommon(); + +sub editfield { + my ($r,$start,$end,$text)=@_; + # Deal with date forms + my $startdateform = &Apache::lonhtmlcommon::date_setter('anno', + 'startdate', + $start); + my $enddateform = &Apache::lonhtmlcommon::date_setter('anno', + 'enddate', + $end); + + $r->print(< + + +
Starting date:$startdateform
Ending date:$enddateform
+ +
+ENDFORM +} sub readcalendar { my $courseid=shift; @@ -120,51 +141,14 @@ sub handler { 'dlsav' => $todayhash{'dlsav'} )); my $weekday=$firstday{'weekday'}; # ------------------------------------------------------------ Print the screen + $r->print(< The LearningOnline Network with CAPA