version 1.88.2.2, 2018/04/29 00:31:25
|
version 1.88.2.3, 2018/12/16 03:19:47
|
Line 1623 sub get_valid_classes {
|
Line 1623 sub get_valid_classes {
|
\%possclasses); |
\%possclasses); |
if (keys(%okclasses)) { |
if (keys(%okclasses)) { |
foreach my $sec (@sections) { |
foreach my $sec (@sections) { |
my $class = $crscode.$sec; |
|
if ($okclasses{$crscode.$sec}) { |
if ($okclasses{$crscode.$sec}) { |
if (!grep(/^\Q$sec$\E/,@{$validations{'sections'}})) { |
if (!grep(/^\Q$sec$\E/,@{$validations{'sections'}})) { |
push(@{$validations{'sections'}},$sec); |
push(@{$validations{'sections'}},$sec); |