loncom/interface/lonannounce.pm - diff

Return to lonannounce.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.86, 2013/05/25 21:45:42	version 1.88, 2017/02/16 18:17:49
Line 117 sub readcalendar {	Line 117 sub readcalendar {
foreach my $thiskey (keys(%$resourcedata)) {	foreach my $thiskey (keys(%$resourcedata)) {
if ($resourcedata->{$thiskey.'.type'}=~/^date/) {	if ($resourcedata->{$thiskey.'.type'}=~/^date/) {
my ($course,$middle,$part,$name)=	my ($course,$middle,$part,$name)=
($thiskey=~/^(\Q$courseid\E)\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);	($thiskey=~/^(\Q$courseid\E)\.(?:(.+)\.)*([\w\s\-]+)\.(\w+)$/);

my %data = ( 'section' => &mt('All Students'));	my %data = ( 'section' => &mt('All Students'));
if ($middle=~/^\[(.*)\]\./) {	if ($middle=~/^\[(.*)\]\./) {
Line 228 sub normalcell {	Line 228 sub normalcell {
&& ($env{'form.pickdate'} ne 'yes')	&& ($env{'form.pickdate'} ne 'yes')
&& (!$internalflag)) {	&& (!$internalflag)) {
$output.='<input type="checkbox" name="remove_'.$start.'_'.	$output.='<input type="checkbox" name="remove_'.$start.'_'.
$end.'">';	$end.'" />';
$showedcheck{$start.'_'.$end}=1;	$showedcheck{$start.'_'.$end}=1;
}	}
}	}