![[BACK]](/icons/back.gif){kind=icon}
Return to lonspreadsheet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
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}; |
| } | } |