--- loncom/interface/lonannounce.pm 2003/04/30 15:49:45 1.8 +++ 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.8 2003/04/30 15:49:45 matthew Exp $ +# $Id: lonannounce.pm,v 1.10 2003/05/21 19:15:41 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -33,6 +33,26 @@ 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; my $coursenum=$ENV{'course.'.$courseid.'.num'}; @@ -121,45 +141,14 @@ sub handler { 'dlsav' => $todayhash{'dlsav'} )); my $weekday=$firstday{'weekday'}; # ------------------------------------------------------------ Print the screen - my $pjump_function = &Apache::lonhtmlcommon::pjump_javascript_definition(); + $r->print(< The LearningOnline Network with CAPA