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{$_}; |
} | } |