version 1.58, 2013/05/21 18:54:15
|
version 1.59, 2013/06/26 21:22:39
|
Line 2239 sub display_loncaparev_constraints {
|
Line 2239 sub display_loncaparev_constraints {
|
if ($key =~ /(\Q$item\E)$/) { |
if ($key =~ /(\Q$item\E)$/) { |
if (ref($checkparms{$item}) eq 'ARRAY') { |
if (ref($checkparms{$item}) eq 'ARRAY') { |
my $value = $resourcedata->{$key}; |
my $value = $resourcedata->{$key}; |
|
if ($item eq 'examcode') { |
|
if (&Apache::lonnet::validCODE($value)) { |
|
$value = 'valid'; |
|
} else { |
|
$value = ''; |
|
} |
|
} |
my ($middle,$scope,$which,$level,$map,$resource); |
my ($middle,$scope,$which,$level,$map,$resource); |
if (grep(/^\Q$value\E$/,@{$checkparms{$item}})) { |
if (grep(/^\Q$value\E$/,@{$checkparms{$item}})) { |
my $stdtype = &Apache::lonparmset::standard_parameter_types($item); |
my $stdtype = &Apache::lonparmset::standard_parameter_types($item); |