![[BACK]](/icons/back.gif){kind=icon}
Return to lonxml.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml|
Return to lonxml.pm CVS log | Up to [LON-CAPA] / loncom / xml |
| version 1.235, 2003/02/17 20:10:08 | version 1.236, 2003/02/19 14:55:27 |
|---|---|
| Line 598 sub callsub { | Line 598 sub callsub { |
| my $sub1; | my $sub1; |
| no strict 'refs'; | no strict 'refs'; |
| my $tag=$token->[1]; | my $tag=$token->[1]; |
| # get utterly rid of extended html tags | |
| if ($tag=~/^x\-/i) { return ''; } | |
| my $space=$Apache::lonxml::alltags{$tag}[-1]; | my $space=$Apache::lonxml::alltags{$tag}[-1]; |
| if (!$space) { | if (!$space) { |
| $tag=~tr/A-Z/a-z/; | $tag=~tr/A-Z/a-z/; |