![[BACK]](/icons/back.gif){kind=icon}
Return to default_homework.lcpm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework|
Return to default_homework.lcpm CVS log | Up to [LON-CAPA] / loncom / homework |
| version 1.77, 2004/03/26 20:10:42 | version 1.78, 2004/05/17 18:26:31 |
|---|---|
| Line 513 sub chemparse { | Line 513 sub chemparse { |
| my $molecule = $2; | my $molecule = $2; |
| # subscripts | # subscripts |
| $molecule =~ s|(?<=[a-zA-Z\[\s])(\d+)|<sub>$1</sub>|g; | $molecule =~ s|(?<=[a-zA-Z\)\]\s])(\d+)|<sub>$1</sub>|g; |
| # superscripts | # superscripts |
| $molecule =~ s|\^(\d*[+\-]*)|<sup>$1</sup>|g; | $molecule =~ s|\^(\d*[+\-]*)|<sup>$1</sup>|g; |
| # strip whitespace | # strip whitespace |