version 1.61, 2001/03/26 15:42:05
|
version 1.63, 2001/03/27 16:57:20
|
Line 29 sub register {
|
Line 29 sub register {
|
sub printalltags { |
sub printalltags { |
my $temp; |
my $temp; |
foreach $temp (sort keys %Apache::lonxml::alltags) { |
foreach $temp (sort keys %Apache::lonxml::alltags) { |
&Apache::lonxml::debug("$temp -- $Apache::lonxml::alltags{$temp}"); |
# &Apache::lonxml::debug("$temp -- $Apache::lonxml::alltags{$temp}"); |
} |
} |
} |
} |
use Apache::style; |
use Apache::style; |
Line 106 sub xmlparse {
|
Line 106 sub xmlparse {
|
# add parameters list to another stack |
# add parameters list to another stack |
push (@parstack,&parstring($token)); |
push (@parstack,&parstring($token)); |
&increasedepth($token); |
&increasedepth($token); |
|
# &Apache::lonxml::debug("Checking for $token->[1] style"); |
if (exists $style_for_target{$token->[1]}) { |
if (exists $style_for_target{$token->[1]}) { |
|
# &Apache::lonxml::debug("Found $token->[1] style"); |
if ($Apache::lonxml::redirection) { |
if ($Apache::lonxml::redirection) { |
$Apache::lonxml::outputstack['-1'] .= |
$Apache::lonxml::outputstack['-1'] .= |
&recurse($style_for_target{$token->[1]},$target,$safeeval, |
&recurse($style_for_target{$token->[1]},$target,$safeeval, |
Line 116 sub xmlparse {
|
Line 118 sub xmlparse {
|
$safeeval,\%style_for_target,@parstack); |
$safeeval,\%style_for_target,@parstack); |
} |
} |
} else { |
} else { |
|
# &Apache::lonxml::debug("No style for for $token->[1]"); |
$result = &callsub("start_$token->[1]", $target, $token,\@parstack, |
$result = &callsub("start_$token->[1]", $target, $token,\@parstack, |
\@pars, $safeeval, \%style_for_target); |
\@pars, $safeeval, \%style_for_target); |
} |
} |
Line 249 sub callsub {
|
Line 252 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 299 sub increasedepth {
|
Line 304 sub increasedepth {
|
$Apache::lonxml::olddepth=$Apache::lonxml::depth; |
$Apache::lonxml::olddepth=$Apache::lonxml::depth; |
} |
} |
my $curdepth=join('_',@Apache::lonxml::depthcounter); |
my $curdepth=join('_',@Apache::lonxml::depthcounter); |
&Apache::lonxml::debug("s $Apache::lonxml::depth : $Apache::lonxml::olddepth : $curdepth : $token->[1]\n"); |
# &Apache::lonxml::debug("s $Apache::lonxml::depth : $Apache::lonxml::olddepth : $curdepth : $token->[1]\n"); |
#print "<br />s $Apache::lonxml::depth : $Apache::lonxml::olddepth : $curdepth : $token->[1]\n"; |
#print "<br />s $Apache::lonxml::depth : $Apache::lonxml::olddepth : $curdepth : $token->[1]\n"; |
} |
} |
|
|
Line 315 sub decreasedepth {
|
Line 320 sub decreasedepth {
|
$Apache::lonxml::depth='-1'; |
$Apache::lonxml::depth='-1'; |
} |
} |
my $curdepth=join('_',@Apache::lonxml::depthcounter); |
my $curdepth=join('_',@Apache::lonxml::depthcounter); |
&Apache::lonxml::debug("e $Apache::lonxml::depth : $Apache::lonxml::olddepth : $token->[1] : $curdepth\n"); |
# &Apache::lonxml::debug("e $Apache::lonxml::depth : $Apache::lonxml::olddepth : $token->[1] : $curdepth\n"); |
#print "<br />e $Apache::lonxml::depth : $Apache::lonxml::olddepth : $token->[1] : $curdepth\n"; |
#print "<br />e $Apache::lonxml::depth : $Apache::lonxml::olddepth : $token->[1] : $curdepth\n"; |
} |
} |
|
|
Line 408 sub writeallows {
|
Line 413 sub writeallows {
|
sub handler { |
sub handler { |
my $request=shift; |
my $request=shift; |
|
|
my $target='web'; |
my $target='tex'; |
$Apache::lonxml::debug=0; |
$Apache::lonxml::debug=1; |
if ($ENV{'browser.mathml'}) { |
if ($ENV{'browser.mathml'}) { |
$request->content_type('text/xml'); |
$request->content_type('text/xml'); |
} else { |
} else { |
Line 428 sub handler {
|
Line 433 sub handler {
|
|
|
return OK if $request->header_only; |
return OK if $request->header_only; |
|
|
$request->print(&Apache::lontexconvert::header()); |
## $request->print(&Apache::lontexconvert::header()); |
|
|
|
## $request->print('<body bgcolor="#FFFFFF">'."\n"); |
|
|
|
if ($target eq 'tex') { |
|
|
|
|
$request->print('<body bgcolor="#FFFFFF">'."\n"); |
|
|
} else { |
|
$request->print(&Apache::lontexconvert::header()); |
|
$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 445 sub handler {
|
Line 459 sub handler {
|
$request->print($result); |
$request->print($result); |
|
|
|
|
$request->print('</body>'); |
## $request->print('</body>'); |
$request->print(&Apache::lontexconvert::footer()); |
if ($target eq 'tex') { |
|
# $request->print('\end{document}'."\n"); |
|
} else { |
|
$request->print('</body>'); |
|
$request->print(&Apache::lontexconvert::footer()); |
|
} |
|
## $request->print(&Apache::lontexconvert::footer()); |
writeallows($request->uri); |
writeallows($request->uri); |
return OK; |
return OK; |
} |
} |