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; |
} |
} |
} |
} |