version 1.24, 2000/12/21 18:13:33
|
version 1.25, 2001/01/06 15:32:22
|
Line 1
|
Line 1
|
# The LON-CAPA Homework handler |
# The LON-CAPA Homework handler |
# Guy Albertelli |
# Guy Albertelli |
# 11/30 Gerd Kortemeyer |
# 11/30 Gerd Kortemeyer |
|
# 6/1 Gerd Kortemeyer |
|
|
package Apache::lonhomework; |
package Apache::lonhomework; |
use strict; |
use strict; |
Line 11 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::Constants(:common); |
|
|
sub get_target { |
sub get_target { |
if ( $ENV{'request.state'} eq "published") { |
if ( $ENV{'request.state'} eq "published") { |
Line 112 sub handler {
|
Line 114 sub handler {
|
$request->content_type('text/html'); |
$request->content_type('text/html'); |
} |
} |
$request->send_http_header; |
$request->send_http_header; |
return 'OK' if $request->header_only; |
return OK if $request->header_only; |
|
|
&Apache::lonhomework::send_header($request); |
&Apache::lonhomework::send_header($request); |
|
|
Line 175 sub handler {
|
Line 177 sub handler {
|
} |
} |
&Apache::lonhomework::send_footer($request); |
&Apache::lonhomework::send_footer($request); |
|
|
return 'OK'; |
return OK; |
|
|
} |
} |
|
|