loncom/interface/courseprefs.pm - diff

Return to courseprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.66, 2014/06/07 19:13:41	version 1.67, 2014/06/13 01:48:26
Line 2319 sub display_loncaparev_constraints {	Line 2319 sub display_loncaparev_constraints {
my (%fromparam,%rowspan,%bymap,%byresource,@scopeorder,%toshow,%allmaps,	my (%fromparam,%rowspan,%bymap,%byresource,@scopeorder,%toshow,%allmaps,
%byresponsetype,%bysubmission,%fromblocks);	%byresponsetype,%bysubmission,%fromblocks);
@scopeorder = ('all','section/group','user');	@scopeorder = ('all','section/group','user');
	my $now = time;
my $resourcedata = &Apache::lonparmset::readdata($cnum,$cdom);	my $resourcedata = &Apache::lonparmset::readdata($cnum,$cdom);
if (ref($resourcedata) eq 'HASH') {	if (ref($resourcedata) eq 'HASH') {
foreach my $key (keys(%{$resourcedata})) {	foreach my $key (keys(%{$resourcedata})) {
Line 2332 sub display_loncaparev_constraints {	Line 2333 sub display_loncaparev_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';
	}
	}
}	}
my ($middle,$scope,$which,$level,$map,$resource);	my ($middle,$scope,$which,$level,$map,$resource);
if (grep(/^\Q$value\E$/,@{$Apache::lonrelrequtils::checkparms{$item}})) {	if (grep(/^\Q$value\E$/,@{$Apache::lonrelrequtils::checkparms{$item}})) {