version 1.2, 2006/08/29 21:20:05
|
version 1.3, 2006/08/31 12:30:30
|
Line 415 sub get_valid_classes {
|
Line 415 sub get_valid_classes {
|
if ($seclist) { |
if ($seclist) { |
foreach my $sec (split(',',$seclist)) { |
foreach my $sec (split(',',$seclist)) { |
my $class = $crscode.$sec; |
my $class = $crscode.$sec; |
if (&Apache::lonnet::autovalidate_class_sec($cdom,$cnum,$owner, |
if (&Apache::lonnet::auto_validate_class_sec($cdom,$cnum,$owner, |
$class) eq 'ok') { |
$class) eq 'ok') { |
if (!grep(/^\Q$sec$\E/,@{$validations{'sections'}})) { |
if (!grep(/^\Q$sec$\E/,@{$validations{'sections'}})) { |
push (@{$validations{'sections'}},$sec); |
push (@{$validations{'sections'}},$sec); |
$totalitems ++; |
$totalitems ++; |
Line 426 sub get_valid_classes {
|
Line 426 sub get_valid_classes {
|
} |
} |
if ($xlist_items) { |
if ($xlist_items) { |
foreach my $item (split(',',$xlist_items)) { |
foreach my $item (split(',',$xlist_items)) { |
if (&Apache::lonnet::autovalidate_class_sec($cdom,$cnum,$owner, |
if (&Apache::lonnet::auto_validate_class_sec($cdom,$cnum,$owner, |
$item) eq 'ok') { |
$item) eq 'ok') { |
if (!grep(/^\Q$item$\E/,@{$validations{'xlists'}})) { |
if (!grep(/^\Q$item$\E/,@{$validations{'xlists'}})) { |
push (@{$validations{'xlists'}},$item); |
push (@{$validations{'xlists'}},$item); |
$totalitems ++; |
$totalitems ++; |