--- loncom/interface/lonparmset.pm	2006/02/09 22:11:54	1.276
+++ loncom/interface/lonparmset.pm	2006/03/04 22:17:36	1.277
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.276 2006/02/09 22:11:54 raeburn Exp $
+# $Id: lonparmset.pm,v 1.277 2006/03/04 22:17:36 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -293,6 +293,25 @@ sub preset_defaults {
 }
 
 ##################################################
+
+sub date_sanity_info {
+   my $checkdate=shift;
+   unless ($checkdate) { return ''; }
+   my $result='';
+   my $crsprefix='course.'.$env{'request.course.id'}.'.';
+   if ($env{$crsprefix.'default_enrollment_end_date'}) {
+      if ($checkdate>$env{$crsprefix.'default_enrollment_end_date'}) {
+         $result.='<br />'.&mt('After course enrollment end!');
+      }
+   }
+   if ($env{$crsprefix.'default_enrollment_start_date'}) {
+      if ($checkdate<$env{$crsprefix.'default_enrollment_start_date'}) {
+         $result.='<br />'.&mt('Before course enrollment start!');
+      }
+   }
+   return $result;
+}
+##################################################
 ##################################################
 #
 # Store a parameter by ID
@@ -516,7 +535,7 @@ sub valout {
             }
             $result=~s/\s+$//;
         } elsif (&isdateparm($type)) {
-            $result = localtime($value);
+            $result = localtime($value).&date_sanity_info($value);
         } else {
             $result = $value;
         }
@@ -2560,7 +2579,8 @@ sub listdata {
 							      $jskey,
 						      $$resourcedata{$thiskey},
 							      '',1,'','',$hour,$min,$sec).
-'<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />'
+'<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />'.
+&date_sanity_info($$resourcedata{$thiskey})
 			  );
 	    } elsif ($thistype eq 'string_yesno') {
 		my $showval;