version 1.26, 2000/10/11 21:07:59
|
version 1.27, 2000/10/11 21:12:42
|
Line 291 sub parstring {
|
Line 291 sub parstring {
|
} @{$token->[3]}; |
} @{$token->[3]}; |
return $temp; |
return $temp; |
} |
} |
#<<<<<<< lonxml.pm |
|
|
|
sub handler { |
sub handler { |
my $request=shift; |
my $request=shift; |
|
|
my $target='web'; |
my $target='web'; |
$Apache::lonxml::debug=1; |
$Apache::lonxml::debug=1; |
$request->content_type('text/html'); |
|
# $request->send_http_header; |
|
if ($ENV{'browser.mathml'}) { |
if ($ENV{'browser.mathml'}) { |
$request->print( '<?xml version="1.0"?>' |
$request->content_type('text/xml'); |
.'<?xml-stylesheet type="text/css" href="/adm/MathML/mathml.css"?>' |
} else { |
.'<!DOCTYPE html SYSTEM "/adm/MathML/mathml.dtd" ' |
$request->content_type('text/html'); |
.'[<!ENTITY mathns "http://www.w3.org/1998/Math/MathML">]>' |
|
.'<html xmlns:math="http://www.w3.org/1998/Math/MathML" ' |
|
.'xmlns="http://www.w3.org/TR/REC-html40">' |
|
.'<body bgcolor="#FFFFFF">'."\n"); |
|
} else { |
|
my $headerstring='<html>'; |
|
if ($ENV{'browser.os'} eq 'mac') { |
|
$headerstring.="<head>\n" |
|
.'<meta Content-Type="text/html; charset=x-mac-roman">' |
|
."\n</head>\n"; |
|
} |
|
$request->print($headerstring.'<body bgcolor="#FFFFFF">'."\n"); |
|
} |
} |
# $request->print(<<ENDHEADER); |
$request->send_http_header; |
#<html> |
|
#<head> |
return OK if $request->header_only; |
#<title>Just test</title> |
|
#</head> |
$request->print(&Apache::lontexconvert::header()); |
#<body bgcolor="#FFFFFF"> |
|
#ENDHEADER |
$request->print($headerstring.'<body bgcolor="#FFFFFF">'."\n"); |
# &Apache::lonhomework::send_header($request); |
|
my $file = "/home/httpd/html".$request->uri; |
my $file = "/home/httpd/html".$request->uri; |
my %mystyle; |
my %mystyle; |
my $result = ''; |
my $result = ''; |
$result = Apache::lonxml::xmlparse($target, &Apache::lonnet::getfile($file),'',%mystyle); |
$result = Apache::lonxml::xmlparse($target, &Apache::lonnet::getfile($file),'',%mystyle); |
# $request->print("Result follows:"); |
|
$request->print($result); |
$request->print($result); |
# $request->print(":Result ends"); |
$r->print('</body>'); |
|
$r->print(&Apache::lontexconvert::footer()); |
|
return OK; |
} |
} |
|
|
$Apache::lonxml::debug=0; |
$Apache::lonxml::debug=0; |