version 1.29, 2001/01/09 19:50:14
|
version 1.31, 2001/01/11 15:20:58
|
Line 12 use Apache::inputtags;
|
Line 12 use Apache::inputtags;
|
use Apache::structuretags; |
use Apache::structuretags; |
use Apache::response; |
use Apache::response; |
use Apache::hint; |
use Apache::hint; |
|
use Apache::outputtags; |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
|
|
sub get_target { |
sub get_target { |
Line 74 sub check_date {
|
Line 75 sub check_date {
|
&Apache::lonxml::debug("found :$date: for :$temp:"); |
&Apache::lonxml::debug("found :$date: for :$temp:"); |
if ($date eq '') { |
if ($date eq '') { |
$date = "an unknown date"; $passed = 0; |
$date = "an unknown date"; $passed = 0; |
|
} elsif ($date eq 'con_lost') { |
|
$date = "an indeterminate date"; $passed = 0; |
} else { |
} else { |
if (time < $date) { $passed = 0; } else { $passed = 1; } |
if (time < $date) { $passed = 0; } else { $passed = 1; } |
$date = localtime $date; |
$date = localtime $date; |