[BACK]Return to lonxml.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/lonxml.pm between versions 1.30 and 1.31

version 1.30, 2000/10/30 20:34:25 version 1.31, 2000/11/01 17:25:36
Line 31  $Apache::lonxml::outputstack = ''; Line 31  $Apache::lonxml::outputstack = '';
 $Apache::lonxml::redirection = 1;  $Apache::lonxml::redirection = 1;
 $Apache::lonxml::textredirection = 1;  $Apache::lonxml::textredirection = 1;
   
   
 sub xmlparse {  sub xmlparse {
   
  my ($target,$content_file_string,$safeinit,%style_for_target) = @_;   my ($target,$content_file_string,$safeinit,%style_for_target) = @_;
Line 68  sub xmlparse { Line 69  sub xmlparse {
  if ($Apache::lonxml::textredirection == 1) {$result=$token->[1];}   if ($Apache::lonxml::textredirection == 1) {$result=$token->[1];}
 #       $finaloutput .= &Apache::run::evaluate($token->[1],$safeeval,'');  #       $finaloutput .= &Apache::run::evaluate($token->[1],$safeeval,'');
      } elsif ($token->[0] eq 'S') {       } elsif ($token->[0] eq 'S') {
             if ($target eq 'meta' and $token->[2]->{metaout} eq 'ON') {$Apache::lonxml::textredirection = 1;}  #            if ($target eq 'meta' and $token->[2]->{metaout} eq 'ON') {$Apache::lonxml::textredirection = 1;}
        # add tag to stack             # add tag to stack    
        push (@stack,$token->[1]);         push (@stack,$token->[1]);
        # add parameters list to another stack         # add parameters list to another stack
Line 91  sub xmlparse { Line 92  sub xmlparse {
        \@pars, $safeeval, \%style_for_target);         \@pars, $safeeval, \%style_for_target);
        }                       }              
      } elsif ($token->[0] eq 'E')  {       } elsif ($token->[0] eq 'E')  {
  if ($target eq 'meta') {$Apache::lonxml::textredirection = 0;}  # if ($target eq 'meta') {$Apache::lonxml::textredirection = 0;}
        #clear out any tags that didn't end         #clear out any tags that didn't end
        while ($token->[1] ne $stack[$#stack]          while ($token->[1] ne $stack[$#stack] 
       && ($#stack > -1)) {pop @stack;pop @parstack;&decreasedepth($token);}        && ($#stack > -1)) {pop @stack;pop @parstack;&decreasedepth($token);}
Line 299  sub parstring { Line 300  sub parstring {
 sub handler {  sub handler {
   my $request=shift;    my $request=shift;
   
   my $target='meta';    my $target='web';
   $Apache::lonxml::debug=1;    $Apache::lonxml::debug=1;
   if ($ENV{'browser.mathml'}) {    if ($ENV{'browser.mathml'}) {
     $request->content_type('text/xml');      $request->content_type('text/xml');
Removed from v.1.30  
changed lines
  Added in v.1.31

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>