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

Diff for /loncom/xml/lonxml.pm between versions 1.255 and 1.256

version 1.255, 2003/05/21 20:41:55 version 1.256, 2003/05/22 20:19:18
Line 520  sub inner_xmlparse { Line 520  sub inner_xmlparse {
     $Apache::lonxml::usestyle=0;      $Apache::lonxml::usestyle=0;
     my $string=$$style_for_target{$token->[1]}.      my $string=$$style_for_target{$token->[1]}.
       '<LONCAPA_INTERNAL_TURN_STYLE_ON />';        '<LONCAPA_INTERNAL_TURN_STYLE_ON />';
 ##### LETS TRY VARIABLE INTERPOLATION (it may be stupid but at least it works)  
     my %localhash=%{$token->[2]};  
     foreach my $localkey (keys %localhash) {  
  $string=~s/\$$localkey/$localhash{$localkey}/g;  
     }  
 #####  
     &Apache::lonxml::newparser($pars,\$string);      &Apache::lonxml::newparser($pars,\$string);
  } else {   } else {
   $result = &callsub("start_$token->[1]", $target, $token, $stack,    $result = &callsub("start_$token->[1]", $target, $token, $stack,
Line 549  sub inner_xmlparse { Line 543  sub inner_xmlparse {
     $Apache::lonxml::usestyle=0;      $Apache::lonxml::usestyle=0;
     my $string=$$style_for_target{'/'.$token->[1]}.      my $string=$$style_for_target{'/'.$token->[1]}.
       '<LONCAPA_INTERNAL_TURN_STYLE_ON />';        '<LONCAPA_INTERNAL_TURN_STYLE_ON />';
 ##### LETS TRY VARIABLE INTERPOLATION (it may be stupid but at least it works)  
     my @localarray = split /;/, $$parstack[-1];  
     foreach my $localelement (@localarray) {  
  $localelement=~/my\s+\$([^=]+)=\"(.*)\"$/;  
  my ($whatchange,$tochange) = ($1,$2);  
  $string=~s/\$$whatchange/$tochange/g;  
     }  
 #####  
     &Apache::lonxml::newparser($pars,\$string);      &Apache::lonxml::newparser($pars,\$string);
  } else {   } else {
   $result = &callsub("end_$token->[1]", $target, $token, $stack,    $result = &callsub("end_$token->[1]", $target, $token, $stack,
Removed from v.1.255  
changed lines
  Added in v.1.256

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