version 1.21, 2000/12/15 20:31:30
|
version 1.24, 2000/12/21 18:13:33
|
Line 10 use Apache::lonnet;
|
Line 10 use Apache::lonnet;
|
use Apache::inputtags; |
use Apache::inputtags; |
use Apache::structuretags; |
use Apache::structuretags; |
use Apache::response; |
use Apache::response; |
|
use Apache::hint; |
|
|
sub get_target { |
sub get_target { |
if ( $ENV{'request.state'} eq "published") { |
if ( $ENV{'request.state'} eq "published") { |
Line 88 sub check_date {
|
Line 88 sub check_date {
|
$datemsg = "is due at $date"; |
$datemsg = "is due at $date"; |
} elsif ($type eq 'answerdate') { |
} elsif ($type eq 'answerdate') { |
$status='CLOSED'; |
$status='CLOSED'; |
$datemsg = "was due as $lastdate, and asnswers will be available at $date"; |
$datemsg = "was due as $lastdate, and answers will be available at $date"; |
} |
} |
&Apache::lonxml::debug("sending back :$status:$datemsg:"); |
&Apache::lonxml::debug("sending back :$status:$datemsg:"); |
|
if ($ENV{'request.state'} eq "construct") { |
|
&Apache::lonxml::debug("in construction ignoring dates"); |
|
$status='CAN_ANSWER'; |
|
$datemsg='is in under construction'; |
|
} |
return ($status,$datemsg); |
return ($status,$datemsg); |
} |
} |
|
|