Return to default_homework.lcpm CVS log | Up to [LON-CAPA] / loncom / homework |
version 1.89, 2004/10/05 20:30:17 | version 1.90, 2004/10/11 16:31:34 |
---|---|
Line 514 sub chemparse { | Line 514 sub chemparse { |
} | } |
next; | next; |
} | } |
$token =~ /^\s*(\d*)(.*)/; | $token =~ /^\s*(\d*(?:&frac\d\d)?)(.*)/; |
$formula .= $1 if ($1 > 1); # stoichiometric coefficient | $formula .= $1 if ($1 ne '1'); # stoichiometric coefficient |
my $molecule = $2; | my $molecule = $2; |
# subscripts | # subscripts |