loncom/misc/refresh_courseids_db.pl - diff

Return to refresh_courseids_db.pl CVS log

Up to [LON-CAPA] / loncom / misc

version 1.15, 2013/05/27 17:24:11	version 1.16, 2013/06/26 21:22:42
Line 376 sub parameter_constraints {	Line 376 sub parameter_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 = '';
	}
	}
if (grep(/^\Q$value\E$/,@{$checkparms{$item}})) {	if (grep(/^\Q$value\E$/,@{$checkparms{$item}})) {
my ($major,$minor) = split(/\./,$Apache::lonnet::needsrelease{'parameter:'.$item.':'.$value});	my ($major,$minor) = split(/\./,$Apache::lonnet::needsrelease{'parameter:'.$item.':'.$value});
($reqdmajor,$reqdminor) =	($reqdmajor,$reqdminor) =