--- loncom/interface/courseprefs.pm 2014/06/09 20:36:56 1.49.2.14 +++ loncom/interface/courseprefs.pm 2014/06/13 02:03:41 1.49.2.15 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set configuration settings for a course # -# $Id: courseprefs.pm,v 1.49.2.14 2014/06/09 20:36:56 raeburn Exp $ +# $Id: courseprefs.pm,v 1.49.2.15 2014/06/13 02:03:41 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2319,6 +2319,7 @@ sub display_loncaparev_constraints { my (%fromparam,%rowspan,%bymap,%byresource,@scopeorder,%toshow,%allmaps, %byresponsetype,%bysubmission,%fromblocks); @scopeorder = ('all','section/group','user'); + my $now = time; my $resourcedata = &Apache::lonparmset::readdata($cnum,$cdom); if (ref($resourcedata) eq 'HASH') { foreach my $key (keys(%{$resourcedata})) { @@ -2332,6 +2333,19 @@ sub display_loncaparev_constraints { } else { $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); if (grep(/^\Q$value\E$/,@{$Apache::lonrelrequtils::checkparms{$item}})) {