--- loncom/homework/lonhomework.pm 2000/12/21 15:34:44 1.23 +++ 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; @@ -11,6 +12,7 @@ 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") { @@ -91,6 +93,11 @@ sub check_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; }