Return to lonspreadsheet.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.69, 2001/10/17 18:35:17 | version 1.70, 2001/10/17 21:11:22 |
---|---|
Line 1568 sub loadassessment { | Line 1568 sub loadassessment { |
my $key=$f{$_}; | my $key=$f{$_}; |
my $ckey=$key; | my $ckey=$key; |
$key=~s/^stores\_/resource\./; | $key=~s/^stores\_/resource\./; |
$key=~s/\_([^\_]+)$/\.$1/; | $key=~s/\_/\./g; |
$c{$_}=$returnhash{$key}; | $c{$_}=$returnhash{$key}; |
$c{$ckey}=$returnhash{$key}; | $c{$ckey}=$returnhash{$key}; |
} | } |