Return to assesscalc.pm CVS log | Up to [LON-CAPA] / loncom / interface / spreadsheet |
version 1.34, 2004/11/02 20:48:02 | version 1.35, 2004/12/08 00:15:18 |
---|---|
Line 348 sub parmval { | Line 348 sub parmval { |
# | # |
# Cascade Up | # Cascade Up |
my $space=$what; | my $space=$what; |
$space=~s/\.\w+$//; | $space=~s/\.[^._]+$//; |
if ($space ne '0') { | if ($space ne '0') { |
my @parts=split(/_/,$space); | my @parts=split(/_/,$space); |
my $id=pop(@parts); | my $id=pop(@parts); |