loncom/interface/lonrelrequtils.pm - diff

Return to lonrelrequtils.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1, 2014/06/07 19:13:42	version 1.2, 2014/06/13 01:48:26
Line 323 sub parameter_constraints {	Line 323 sub parameter_constraints {
my ($cnum,$cdom) = @_;	my ($cnum,$cdom) = @_;
my ($reqdmajor,$reqdminor);	my ($reqdmajor,$reqdminor);
my $resourcedata=&read_paramdata($cnum,$cdom);	my $resourcedata=&read_paramdata($cnum,$cdom);
	my $now = time;
if (ref($resourcedata) eq 'HASH') {	if (ref($resourcedata) eq 'HASH') {
foreach my $key (keys(%{$resourcedata})) {	foreach my $key (keys(%{$resourcedata})) {
foreach my $item (keys(%Apache::lonrelrequtils::checkparms)) {	foreach my $item (keys(%Apache::lonrelrequtils::checkparms)) {
Line 335 sub parameter_constraints {	Line 336 sub parameter_constraints {
} else {	} else {
$value = '';	$value = '';
}	}
	} elsif ($item eq 'printstartdate') {
	if ($value =~ /^\d+$/) {
	if ($value > $now) {
	$value = 'future';
	}
	}
	} elsif ($item eq 'printenddate') {
	if ($value =~ /^\d+$/) {
	if ($value < $now) {
	$value = 'past';
	}
	}
}	}
if (grep(/^\Q$value\E$/,@{$Apache::lonrelrequtils::checkparms{$item}})) {	if (grep(/^\Q$value\E$/,@{$Apache::lonrelrequtils::checkparms{$item}})) {
my ($major,$minor) = split(/\./,$Apache::lonnet::needsrelease{'parameter:'.$item.':'.$value});	my ($major,$minor) = split(/\./,$Apache::lonnet::needsrelease{'parameter:'.$item.':'.$value});