version 1.96, 2018/09/18 02:18:43
|
version 1.97, 2018/12/16 03:17:07
|
Line 1776 sub get_valid_classes {
|
Line 1776 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); |