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

Diff for /loncom/xml/lonxml.pm between versions 1.23 and 1.24

version 1.23, 2000/10/05 19:30:14 version 1.24, 2000/10/09 14:07:02
Line 39  sub xmlparse { Line 39  sub xmlparse {
  my $finaloutput = '';    my $finaloutput = ''; 
  my $newarg = '';   my $newarg = '';
  my $result;   my $result;
   
    my $indicator = 1;
    my $pocketbox = '';
   
  my $safeeval = new Safe;   my $safeeval = new Safe;
  $safeeval->permit("entereval");   $safeeval->permit("entereval");
  $safeeval->permit(":base_math");   $safeeval->permit(":base_math");
Line 67  sub xmlparse { Line 71  sub xmlparse {
        push (@parstack,&parstring($token));         push (@parstack,&parstring($token));
        &increasedepth($token);                &increasedepth($token);       
        if (exists $style_for_target{$token->[1]}) {         if (exists $style_for_target{$token->[1]}) {
  $finaloutput .= &recurse($style_for_target{$token->[1]},  
   $target,$safeeval,\%style_for_target,   if ($indicator == 1) {
   @parstack);    $finaloutput .= &recurse($style_for_target{$token->[1]},
       $target,$safeeval,\%style_for_target,
     @parstack);
           } else {
             $pocketbox .=  &recurse($style_for_target{$token->[1]},
       $target,$safeeval,\%style_for_target,
     @parstack);
           }
   
        } else {         } else {
  $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);
   
            if ($result eq "footnote") { &Apache::lonxml::debug($result);}
   
        }                       }              
      } elsif ($token->[0] eq 'E')  {       } elsif ($token->[0] eq 'E')  {
        #clear out any tags that didn't end         #clear out any tags that didn't end
Line 80  sub xmlparse { Line 95  sub xmlparse {
       && ($#stack > -1)) {pop @stack;pop @parstack;&decreasedepth($token);}        && ($#stack > -1)) {pop @stack;pop @parstack;&decreasedepth($token);}
                 
        if (exists $style_for_target{'/'."$token->[1]"}) {         if (exists $style_for_target{'/'."$token->[1]"}) {
   
    if ($indicator == 1) {
  $finaloutput .= &recurse($style_for_target{'/'."$token->[1]"},   $finaloutput .= &recurse($style_for_target{'/'."$token->[1]"},
   $target,$safeeval,\%style_for_target,    $target,$safeeval,\%style_for_target,
   @parstack);    @parstack);
           } else {
            $pocketbox .=  &recurse($style_for_target{'/'."$token->[1]"},
     $target,$safeeval,\%style_for_target,
     @parstack);
           }
   
        } else {         } else {
  $result = &callsub("end_$token->[1]", $target, $token, \@parstack,   $result = &callsub("end_$token->[1]", $target, $token, \@parstack,
        \@pars,$safeeval, \%style_for_target);         \@pars,$safeeval, \%style_for_target);
        }         }
      }       }
      if ($result ne "" ) {       if ($result ne "" ) {
        if ( $#parstack > -1 ) {          if ( $#parstack > -1 ) {
    
    if ($indicator == 1) {
  $finaloutput .= &Apache::run::evaluate($result,$safeeval,   $finaloutput .= &Apache::run::evaluate($result,$safeeval,
  $parstack[$#parstack]);   $parstack[$#parstack]);
           } else {
            $pocketbox .= &Apache::run::evaluate($result,$safeeval,
    $parstack[$#parstack]);
           }
   
        } else {         } else {
  $finaloutput .= &Apache::run::evaluate($result,$safeeval,'');   $finaloutput .= &Apache::run::evaluate($result,$safeeval,'');
        }         }
Line 102  sub xmlparse { Line 132  sub xmlparse {
    pop @pars;     pop @pars;
    pop @Apache::lonxml::pwd;     pop @Apache::lonxml::pwd;
  }   }
   
  return $finaloutput;   return $finaloutput;
 }  }
   
Line 168  sub callsub { Line 199  sub callsub {
   my ($sub,$target,$token,$parstack,$parser,$safeeval,$style)=@_;    my ($sub,$target,$token,$parstack,$parser,$safeeval,$style)=@_;
   my $currentstring='';    my $currentstring='';
   {    {
         my $sub1;
     no strict 'refs';      no strict 'refs';
     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<br>\n");
       $sub="$space\:\:$sub";  #      if ( $sub eq "start_parserlib" ) {
   #  print "me:".%$style.":\n";
   #      }
         $sub1="$space\:\:$sub";
       $Apache::lonxml::curdepth=join('_',@Apache::lonxml::depthcounter);        $Apache::lonxml::curdepth=join('_',@Apache::lonxml::depthcounter);
       $currentstring = &$sub($target,$token,$parstack,$parser,        $currentstring = &$sub1($target,$token,$parstack,$parser,
      $safeeval,$style);       $safeeval,$style);
   #      if ( $sub eq "start_parserlib" ) {
   #  print "me2:".%$style.":";
   #      }
     } else {      } else {
       #&Apache::lonxml::debug("NOT Calling sub $sub in $space<br>\n");        #&Apache::lonxml::debug("NOT Calling sub $sub in $space<br>\n");
       if (defined($token->[4])) {        if (defined($token->[4])) {
Line 220  sub get_all_text { Line 258  sub get_all_text {
  my $depth=0;   my $depth=0;
  my $token;   my $token;
  my $result='';   my $result='';
    my $tag=substr($tag,1); #strip the / off the tag
   # &Apache::lonxml::debug("have:$tag:");
  while (($depth >=0) && ($token = $pars->get_token)) {   while (($depth >=0) && ($token = $pars->get_token)) {
    if ($token->[0] eq 'T') {     if ($token->[0] eq 'T') {
      $result.=$token->[1];       $result.=$token->[1];
Line 227  sub get_all_text { Line 267  sub get_all_text {
      if ($token->[1] eq $tag) { $depth++; }       if ($token->[1] eq $tag) { $depth++; }
      $result.=$token->[4];       $result.=$token->[4];
    } elsif ($token->[0] eq 'E')  {     } elsif ($token->[0] eq 'E')  {
      if ($token->[1] eq $tag) { $depth--; }       if ( $token->[1] eq $tag) { $depth--; }
      #skip sending back the last end tag       #skip sending back the last end tag
      if ($depth > -1) { $result.=$token->[2]; }       if ($depth > -1) { $result.=$token->[2]; }
    }     }
Line 257  sub parstring { Line 297  sub parstring {
   } @{$token->[3]};    } @{$token->[3]};
   return $temp;    return $temp;
 }  }
   #<<<<<<< lonxml.pm
   
   sub handler {
     my $request=shift;
   
     my $target='web';
     $Apache::lonxml::debug=1;
     $request->content_type('text/html');
     $request->send_http_header;  
     $request->print(<<ENDHEADER);
   <html>
   <head>
   <title>Just test</title>
   </head>
   <body bgcolor="#FFFFFF">
   ENDHEADER
   #  &Apache::lonhomework::send_header($request);
     my $file = "/home/httpd/html".$request->uri;
     my %mystyle;
     my $result = '';
     $result = Apache::lonxml::xmlparse($target, &Apache::lonnet::getfile($file),'',%mystyle);
   #  $request->print("Result follows:");  
     $request->print($result);
   #  $request->print(":Result ends");
   }
    
 $Apache::lonxml::debug=0;  $Apache::lonxml::debug=0;
 sub debug {  sub debug {
   if ($Apache::lonxml::debug eq 1) {    if ($Apache::lonxml::debug eq 1) {
Removed from v.1.23  
changed lines
  Added in v.1.24

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