![[BACK]](/icons/back.gif){kind=icon}
Return to edit.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework|
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; |