--- loncom/interface/lonrelrequtils.pm	2014/06/07 19:13:42	1.1
+++ loncom/interface/lonrelrequtils.pm	2014/06/13 01:48:26	1.2
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 # The LearningOnline Network
 #
-# $Id: lonrelrequtils.pm,v 1.1 2014/06/07 19:13:42 raeburn Exp $
+# $Id: lonrelrequtils.pm,v 1.2 2014/06/13 01:48:26 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -323,6 +323,7 @@ sub parameter_constraints {
     my ($cnum,$cdom) = @_;
     my ($reqdmajor,$reqdminor);
     my $resourcedata=&read_paramdata($cnum,$cdom);
+    my $now = time;
     if (ref($resourcedata) eq 'HASH') {
         foreach my $key (keys(%{$resourcedata})) {
             foreach my $item (keys(%Apache::lonrelrequtils::checkparms)) {
@@ -335,6 +336,18 @@ sub parameter_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';
+                                }
+                            }
                         }
                         if (grep(/^\Q$value\E$/,@{$Apache::lonrelrequtils::checkparms{$item}})) {
                             my ($major,$minor) = split(/\./,$Apache::lonnet::needsrelease{'parameter:'.$item.':'.$value});