version 1.44, 2001/01/05 19:45:03
|
version 1.46, 2001/01/06 16:22:55
|
Line 3
|
Line 3
|
# |
# |
# last modified 06/26/00 by Alexander Sakharuk |
# last modified 06/26/00 by Alexander Sakharuk |
# 11/6 Gerd Kortemeyer |
# 11/6 Gerd Kortemeyer |
|
# 6/1/1 Gerd Kortemeyer |
|
|
package Apache::lonxml; |
package Apache::lonxml; |
use vars |
use vars |
Line 12 use HTML::TokeParser;
|
Line 13 use HTML::TokeParser;
|
use Safe; |
use Safe; |
use Safe::Hole; |
use Safe::Hole; |
use Opcode; |
use Opcode; |
|
use Apache::Constants qw(:common); |
|
|
sub register { |
sub register { |
my $space; |
my $space; |
Line 358 sub handler {
|
Line 360 sub handler {
|
# &Apache::lonhomework::send_header($request); |
# &Apache::lonhomework::send_header($request); |
$request->send_http_header; |
$request->send_http_header; |
|
|
return 'OK' if $request->header_only; |
return OK if $request->header_only; |
|
|
$request->print(&Apache::lontexconvert::header()); |
$request->print(&Apache::lontexconvert::header()); |
|
|
Line 373 sub handler {
|
Line 375 sub handler {
|
$request->print('</body>'); |
$request->print('</body>'); |
$request->print(&Apache::lontexconvert::footer()); |
$request->print(&Apache::lontexconvert::footer()); |
writeallows($request->uri); |
writeallows($request->uri); |
return 'OK'; |
return OK; |
} |
} |
|
|
$Apache::lonxml::debug=0; |
$Apache::lonxml::debug=0; |