![[BACK]](/icons/back.gif){kind=icon}
Return to lonannounce.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
Return to lonannounce.pm CVS log | Up to [LON-CAPA] / loncom / interface |
| version 1.38, 2005/11/22 16:16:53 | version 1.39, 2006/01/12 22:45:19 |
|---|---|
| Line 244 sub showday { | Line 244 sub showday { |
| } | } |
| foreach (keys %allcal) { | foreach (keys %allcal) { |
| my ($course,$startdate,$enddate)=($_=~/^(\w+)\@(\d+)\_(\d+)$/); | my ($course,$startdate,$enddate)=($_=~/^(\w+)\@(\d+)\_(\d+)$/); |
| if (($startdate<$nextday) && ($enddate>$tk)) { | if (($startdate<$nextday) && ($enddate>=$tk)) { |
| $outp.='___&&&___'.$course.'@'.$startdate.'@'.$enddate.'@'. | $outp.='___&&&___'.$course.'@'.$startdate.'@'.$enddate.'@'. |
| $allcal{$_}; | $allcal{$_}; |
| } | } |