version 1.16, 2001/06/29 18:53:50
|
version 1.17, 2001/07/10 22:06:42
|
Line 262 sub rebuild_tag {
|
Line 262 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:"::g; #" |
&Apache::lonxml::debug("setting :$key: to :$val:"); |
&Apache::lonxml::debug("setting :$key: to :$val:"); |
$result.=' '.$key.'="'.$val.'"'; |
$result.=' '.$key.'="'.$val.'"'; |
} |
} |