Return to edit.pm CVS log | Up to [LON-CAPA] / loncom / homework |
version 1.109, 2007/09/07 00:21:05 | version 1.110, 2007/09/07 00:39:21 |
---|---|
Line 686 sub rebuild_tag { | Line 686 sub rebuild_tag { |
my $result; | my $result; |
if ($token->[0] eq 'S') { | if ($token->[0] eq 'S') { |
$result = '<'.$token->[1]; | $result = '<'.$token->[1]; |
#FIXME do this in non random order | |
foreach my $attribute (@{ $token->[3] }) { | foreach my $attribute (@{ $token->[3] }) { |
my $value = $token->[2]{$attribute}; | my $value = $token->[2]{$attribute}; |
$value =~s/^\s+|\s+$//g; | $value =~s/^\s+|\s+$//g; |