version 1.43, 2001/01/04 19:16:16
|
version 1.48, 2001/01/12 20:38:05
|
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 22 sub register {
|
Line 24 sub register {
|
$Apache::lonxml::alltags{$temptag}=$space; |
$Apache::lonxml::alltags{$temptag}=$space; |
} |
} |
} |
} |
|
|
|
sub printalltags { |
|
my $temp; |
|
foreach $temp (sort keys %Apache::lonxml::alltags) { |
|
&Apache::lonxml::debug("$temp -- $Apache::lonxml::alltags{$temp}"); |
|
} |
|
} |
|
|
use Apache::style; |
use Apache::style; |
use Apache::lontexconvert; |
use Apache::lontexconvert; |
Line 42 sub xmlparse {
|
Line 51 sub xmlparse {
|
if ($target eq 'meta') { |
if ($target eq 'meta') { |
$Apache::lonxml::textredirection = 0; |
$Apache::lonxml::textredirection = 0; |
$Apache::lonxml::on_offimport = 1; |
$Apache::lonxml::on_offimport = 1; |
|
} elsif ($target eq 'grade') { |
|
$Apache::lonxml::textredirection = 0; |
|
$Apache::lonxml::on_offimport = 0; |
|
} else { |
|
$Apache::lonxml::textredirection = 1; |
|
$Apache::lonxml::on_offimport = 0; |
} |
} |
|
#&printalltags(); |
my @pars = (); |
my @pars = (); |
@Apache::lonxml::pwd=(); |
@Apache::lonxml::pwd=(); |
my $pwd=$ENV{'request.filename'}; |
my $pwd=$ENV{'request.filename'}; |
Line 336 sub writeallows {
|
Line 352 sub writeallows {
|
|
|
sub handler { |
sub handler { |
my $request=shift; |
my $request=shift; |
|
|
my $target='web'; |
my $target='web'; |
# $Apache::lonxml::debug=1; |
$Apache::lonxml::debug=0; |
if ($ENV{'browser.mathml'}) { |
if ($ENV{'browser.mathml'}) { |
$request->content_type('text/xml'); |
$request->content_type('text/xml'); |
} else { |
} else { |
Line 355 sub handler {
|
Line 371 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 370 sub handler {
|
Line 386 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; |
Line 380 sub debug {
|
Line 396 sub debug {
|
} |
} |
} |
} |
sub error { |
sub error { |
print "ERROR:".$_[0]."<br>\n"; |
# print "ERROR:".$_[0]."<br>\n"; |
} |
} |
sub warning { |
sub warning { |
if ($Apache::lonxml::debug eq 1) { |
if ($Apache::lonxml::debug eq 1) { |