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

Diff for /loncom/xml/londefdef.pm between versions 1.32 and 1.33

version 1.32, 2001/08/06 20:41:22 version 1.33, 2001/11/06 00:02:25
Line 28  sub end_output { Line 28  sub end_output {
   return '';    return '';
 }  }
 #-- <m> tag  #-- <m> tag
         sub start_m {  sub start_m {
     my ($target,$token,$tagstack,$parstack,$parser) = @_;    my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
             my $currentstring = '';    my $currentstring = '';
             if ($target eq 'web') {    if ($target eq 'web') {
  my $inside = &Apache::lonxml::get_all_text("/m",$$parser[$#$parser]);       my $inside = &Apache::lonxml::get_all_text("/m",$$parser[-1]);
                 $inside ='\\documentstyle{article}'.$inside;      $inside ='\\documentstyle{article}'.$inside;
 #          &Apache::lonxml::debug($inside);      #&Apache::lonxml::debug("M is starting with:$inside:");
                 $currentstring = &Apache::lontexconvert::converted(\$inside);      my $eval=&Apache::lonxml::get_param('eval',$parstack,$safeeval);
 #          &Apache::lonxml::debug($currentstring);      if ($eval eq 'on') {
         $inside=&Apache::run::evaluate($inside,$safeeval,$$parstack[-1]);
     } elsif ($target eq 'tex') {        #&Apache::lonxml::debug("M is evaulated to:$inside:");
               $currentstring = "";      }
             }      $currentstring = &Apache::lontexconvert::converted(\$inside);
    return $currentstring;      #&Apache::lonxml::debug("M is ends with:$currentstring:");
  }    } elsif ($target eq 'tex') {
         sub end_m {      $currentstring = "";
     my ($target,$token) = @_;    }
             my $currentstring = '';    return $currentstring;
             if ($target eq 'web') {  }
             } elsif ($target eq 'tex') {  sub end_m {
               $currentstring = "";    my ($target,$token) = @_;
     } elsif ($target eq 'meta') {    my $currentstring = '';
             }    if ($target eq 'web') {
    return $currentstring;    } elsif ($target eq 'tex') {
  }      $currentstring = "";
     } elsif ($target eq 'meta') {
     }
     return $currentstring;
   }
 #-------------------------------------------------------------------------- <html> tag      #-------------------------------------------------------------------------- <html> tag    
       sub start_html {        sub start_html {
     my ($target,$token) = @_;      my ($target,$token) = @_;
Line 266  sub end_output { Line 270  sub end_output {
       }        }
       my $onLoad='';        my $onLoad='';
       foreach my $key (keys(%{$token->[2]})) {        foreach my $key (keys(%{$token->[2]})) {
  &Apache::lonxml::debug("testing $key");  
  if ($key =~ /^onload$/i) {   if ($key =~ /^onload$/i) {
  &Apache::lonxml::debug("I like $key");  
   $onLoad.=$token->[2]->{$key}.';';    $onLoad.=$token->[2]->{$key}.';';
   delete($token->[2]->{$key});    delete($token->[2]->{$key});
  }   }
Removed from v.1.32  
changed lines
  Added in v.1.33

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