version 1.19, 2001/07/18 20:27:22
|
version 1.20, 2001/07/23 22:40:59
|
Line 253 sub get_new_args {
|
Line 253 sub get_new_args {
|
my ($token,$parstack,$safeeval,@args)=@_; |
my ($token,$parstack,$safeeval,@args)=@_; |
my $rebuild=0; |
my $rebuild=0; |
foreach my $arg (@args) { |
foreach my $arg (@args) { |
my $value=&Apache::lonxml::get_param($arg,$parstack,$safeeval); |
#just want the string that it was set to |
|
my $value=$token->[2]->{$arg}; |
my $newvalue=$ENV{"form.$Apache::lonxml::curdepth.$arg"}; |
my $newvalue=$ENV{"form.$Apache::lonxml::curdepth.$arg"}; |
&Apache::lonxml::debug(" for:$arg: cur is :$value: new is :$newvalue:"); |
&Apache::lonxml::debug(" for:$arg: cur is :$value: new is :$newvalue:"); |
if ($value ne $newvalue) { |
if ($value ne $newvalue) { |
Line 271 sub rebuild_tag {
|
Line 272 sub rebuild_tag {
|
if ($token->[0] eq 'S') { |
if ($token->[0] eq 'S') { |
$result = '<'.$token->[1]; |
$result = '<'.$token->[1]; |
while (my ($key,$val)= each(%{$token->[2]})) { |
while (my ($key,$val)= each(%{$token->[2]})) { |
$val=~s:^\s|\s$::g; |
$val=~s:^\s+|\s+$::g; |
$val=~s:"::g; #" |
$val=~s:"::g; #" |
&Apache::lonxml::debug("setting :$key: to :$val:"); |
&Apache::lonxml::debug("setting :$key: to :$val:"); |
$result.=' '.$key.'="'.$val.'"'; |
$result.=' '.$key.'="'.$val.'"'; |