--- 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.='
'.&mt('After course enrollment end!');
+ }
+ }
+ if ($env{$crsprefix.'default_enrollment_start_date'}) {
+ if ($checkdate<$env{$crsprefix.'default_enrollment_start_date'}) {
+ $result.='
'.&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).
-''
+''.
+&date_sanity_info($$resourcedata{$thiskey})
);
} elsif ($thistype eq 'string_yesno') {
my $showval;