--- loncom/homework/lonhomework.pm 2000/12/15 20:31:30 1.21 +++ loncom/homework/lonhomework.pm 2001/01/06 15:32:22 1.25 @@ -1,6 +1,7 @@ # The LON-CAPA Homework handler # Guy Albertelli # 11/30 Gerd Kortemeyer +# 6/1 Gerd Kortemeyer package Apache::lonhomework; use strict; @@ -10,7 +11,8 @@ use Apache::lonnet; use Apache::inputtags; use Apache::structuretags; use Apache::response; - +use Apache::hint; +use Apache::Constants(:common); sub get_target { if ( $ENV{'request.state'} eq "published") { @@ -88,9 +90,14 @@ sub check_date { $datemsg = "is due at $date"; } elsif ($type eq 'answerdate') { $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:"); + if ($ENV{'request.state'} eq "construct") { + &Apache::lonxml::debug("in construction ignoring dates"); + $status='CAN_ANSWER'; + $datemsg='is in under construction'; + } return ($status,$datemsg); } @@ -107,7 +114,7 @@ sub handler { $request->content_type('text/html'); } $request->send_http_header; - return 'OK' if $request->header_only; + return OK if $request->header_only; &Apache::lonhomework::send_header($request); @@ -170,7 +177,7 @@ sub handler { } &Apache::lonhomework::send_footer($request); - return 'OK'; + return OK; }