version 1.61, 2001/03/26 15:42:05
|
version 1.66, 2001/03/29 20:47:06
|
Line 5
|
Line 5
|
# 11/6 Gerd Kortemeyer |
# 11/6 Gerd Kortemeyer |
# 6/1/1 Gerd Kortemeyer |
# 6/1/1 Gerd Kortemeyer |
# 2/21,3/13 Guy |
# 2/21,3/13 Guy |
|
# 3/29 Gerd Kortemeyer |
|
|
package Apache::lonxml; |
package Apache::lonxml; |
use vars |
use vars |
Line 249 sub callsub {
|
Line 250 sub callsub {
|
$safeeval,$style); |
$safeeval,$style); |
} |
} |
if (my $space=$Apache::lonxml::alltags{$token->[1]}) { |
if (my $space=$Apache::lonxml::alltags{$token->[1]}) { |
#&Apache::lonxml::debug("Calling sub $sub in $space<br />\n"); |
# &Apache::lonxml::debug("Calling sub $sub in $space $metamode<br />\n"); |
$sub1="$space\:\:$sub"; |
$sub1="$space\:\:$sub"; |
$Apache::lonxml::curdepth=join('_',@Apache::lonxml::depthcounter); |
$Apache::lonxml::curdepth=join('_',@Apache::lonxml::depthcounter); |
$currentstring .= &$sub1($target,$token,$parstack,$parser, |
$currentstring .= &$sub1($target,$token,$parstack,$parser, |
$safeeval,$style); |
$safeeval,$style); |
} else { |
} else { |
#&Apache::lonxml::debug("NOT Calling sub $sub in $space<br />\n"); |
# &Apache::lonxml::debug("NOT Calling sub $sub in $space $metamode<br />\n"); |
if (defined($token->[4]) && ($metamode < '1')) { |
if ($metamode <1) { |
$currentstring .= $token->[4]; |
if (defined($token->[4]) && ($metamode < 1)) { |
} else { |
$currentstring .= $token->[4]; |
$currentstring .= $token->[2]; |
} else { |
|
$currentstring .= $token->[2]; |
|
} |
} |
} |
} |
} |
if ($target eq 'edit' && $token->[0] eq 'E') { |
if ($target eq 'edit' && $token->[0] eq 'E') { |
Line 405 sub writeallows {
|
Line 408 sub writeallows {
|
&Apache::lonnet::appenv(%httpref); |
&Apache::lonnet::appenv(%httpref); |
} |
} |
|
|
|
# |
|
# Afterburner handles anchors, highlights and links |
|
# |
|
|
|
sub afterburn { |
|
my $result=shift; |
|
map { |
|
my ($name, $value) = split(/=/,$_); |
|
$value =~ tr/+/ /; |
|
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
|
if (($name eq 'highlight')||($name eq 'anchor')||($name eq 'link')) { |
|
unless ($ENV{'form.'.$name}) { |
|
$ENV{'form.'.$name}=$value; |
|
} |
|
} |
|
} (split(/&/,$ENV{'QUERY_STRING'})); |
|
if ($ENV{'form.highlight'}) { |
|
map { |
|
my $anchorname=$_; |
|
my $matchthis=$anchorname; |
|
$matchthis=~s/\_+/\\s\+/g; |
|
$result=~s/($matchthis)/\<font color=\"red\"\>$1\<\/font\>/gs; |
|
} split(/\,/,$ENV{'form.highlight'}); |
|
} |
|
if ($ENV{'form.link'}) { |
|
map { |
|
my ($anchorname,$linkurl)=split(/\>/,$_); |
|
my $matchthis=$anchorname; |
|
$matchthis=~s/\_+/\\s\+/g; |
|
$result=~s/($matchthis)/\<a href=\"$linkurl\"\>$1\<\/a\>/gs; |
|
} split(/\,/,$ENV{'form.link'}); |
|
} |
|
if ($ENV{'form.anchor'}) { |
|
my $anchorname=$ENV{'form.anchor'}; |
|
my $matchthis=$anchorname; |
|
$matchthis=~s/\_+/\\s\+/g; |
|
$result=~s/($matchthis)/\<a name=\"$anchorname\"\>$1\<\/a\>/s; |
|
$result.=(<<"ENDSCRIPT"); |
|
<script> |
|
document.location.hash='$anchorname'; |
|
</script> |
|
ENDSCRIPT |
|
} |
|
return $result; |
|
} |
|
|
sub handler { |
sub handler { |
my $request=shift; |
my $request=shift; |
|
|
Line 415 sub handler {
|
Line 464 sub handler {
|
} else { |
} else { |
$request->content_type('text/html'); |
$request->content_type('text/html'); |
} |
} |
|
|
# $request->print(<<ENDHEADER); |
# $request->print(<<ENDHEADER); |
#<html> |
#<html> |
#<head> |
#<head> |
Line 425 sub handler {
|
Line 474 sub handler {
|
#ENDHEADER |
#ENDHEADER |
# &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()); |
if ($target eq 'web') { |
|
$request->print(&Apache::lontexconvert::header()); |
$request->print('<body bgcolor="#FFFFFF">'."\n"); |
$request->print('<body bgcolor="#FFFFFF">'."\n"); |
|
} |
|
|
my $file=&Apache::lonnet::filelocation("",$request->uri); |
my $file=&Apache::lonnet::filelocation("",$request->uri); |
my %mystyle; |
my %mystyle; |
Line 442 sub handler {
|
Line 492 sub handler {
|
} else { |
} else { |
$result = &Apache::lonxml::xmlparse($target,$filecontents,'',%mystyle); |
$result = &Apache::lonxml::xmlparse($target,$filecontents,'',%mystyle); |
} |
} |
|
# |
|
# Afterburner |
|
# |
|
if ($ENV{'QUERY_STRING'}) { |
|
$result=&afterburn($result); |
|
} |
$request->print($result); |
$request->print($result); |
|
|
|
|
$request->print('</body>'); |
if ($target eq 'tex') { |
$request->print(&Apache::lontexconvert::footer()); |
# $request->print('\end{document}'."\n"); |
|
} elsif ($target eq 'web') { |
|
$request->print('</body>'); |
|
$request->print(&Apache::lontexconvert::footer()); |
|
} |
|
|
writeallows($request->uri); |
writeallows($request->uri); |
return OK; |
return OK; |
} |
} |