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, |