loncom/interface/courseprefs.pm - diff

Return to courseprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

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