|
version 1.161, 2003/01/13 14:58:28
|
version 1.163, 2003/01/15 19:34:03
|
|
Line 2417 sub loadstudent{
|
Line 2417 sub loadstudent{
|
| my %formulas=&getformulas($sheet); |
my %formulas=&getformulas($sheet); |
| $cachedassess=$sheet->{'uname'}.':'.$sheet->{'udom'}; |
$cachedassess=$sheet->{'uname'}.':'.$sheet->{'udom'}; |
| # Get ALL the student preformance data |
# Get ALL the student preformance data |
| my @tmp = &Apache::lonnet::dump($sheet->{'cid'}, |
my @tmp = &Apache::lonnet::currentdump($sheet->{'cid'}, |
| $sheet->{'udom'}, |
$sheet->{'udom'}, |
| $sheet->{'uname'}, |
$sheet->{'uname'}); |
| undef); |
if ((scalar @tmp > 0) && ($tmp[0] !~ /^error:/)) { |
| if ($tmp[0] !~ /^error:/) { |
|
| %cachedstores = @tmp; |
%cachedstores = @tmp; |
| } |
} |
| undef @tmp; |
undef @tmp; |
|
Line 2551 sub loadassessment {
|
Line 2550 sub loadassessment {
|
| # |
# |
| # get data out of the dumped stores |
# get data out of the dumped stores |
| # |
# |
| my $version=$cachedstores{'version:'.$symb}; |
if (exists($cachedstores{$symb})) { |
| my $scope; |
%returnhash = %{$cachedstores{$symb}}; |
| for ($scope=1;$scope<=$version;$scope++) { |
} else { |
| foreach (split(/\:/,$cachedstores{$scope.':keys:'.$symb})) { |
%returnhash = (); |
| $returnhash{$_}=$cachedstores{$scope.':'.$symb.':'.$_}; |
|
| } |
|
| } |
} |
| } else { |
} else { |
| # |
# |
![[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