loncom/interface/lonannounce.pm - diff

Return to lonannounce.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.37, 2005/11/18 13:35:30	version 1.39, 2006/01/12 22:45:19
Line 63 $help	Line 63 $help
<tr><td>$lt{'end'}:</td><td>$enddateform</td></tr></table>	<tr><td>$lt{'end'}:</td><td>$enddateform</td></tr></table>
<textarea name="msg" rows="4" cols="60">$text</textarea>	<textarea name="msg" rows="4" cols="60">$text</textarea>
<br />	<br />
<label><input type="checkbox" name="rsspost" /> $lt{'incrss'}</label>	<!-- <label><input type="checkbox" name="rsspost" /> $lt{'incrss'}</label> -->
<br /><input type="button" onClick="trysubmit()" value="$lt{'post'}" /><hr />	<br /><input type="button" onClick="trysubmit()" value="$lt{'post'}" /><hr />
ENDFORM	ENDFORM
}	}
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{$_};
}	}