version 1.161, 2003/01/13 14:58:28
|
version 1.162, 2003/01/13 21:52:11
|
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::dumpcurrent($sheet->{'cid'}, |
$sheet->{'udom'}, |
# my @tmp = &Apache::lonnet::dump($sheet->{'cid'}, |
$sheet->{'uname'}, |
$sheet->{'udom'}, |
undef); |
$sheet->{'uname'}, |
if ($tmp[0] !~ /^error:/) { |
undef); |
|
if ((scalar @tmp > 0) && ($tmp[0] !~ /^error:/)) { |
%cachedstores = @tmp; |
%cachedstores = @tmp; |
|
# &Apache::lonnet::logthis("-------------------------------------"); |
|
# foreach (keys(%cachedstores)) { |
|
# &Apache::lonnet::logthis("data for ".$_); |
|
# } |
|
# &Apache::lonnet::logthis("-------------------------------------"); |
} |
} |
undef @tmp; |
undef @tmp; |
# |
# |
Line 2551 sub loadassessment {
|
Line 2557 sub loadassessment {
|
# |
# |
# get data out of the dumped stores |
# get data out of the dumped stores |
# |
# |
my $version=$cachedstores{'version:'.$symb}; |
# my $version=$cachedstores{'version:'.$symb}; |
my $scope; |
# my $scope; |
for ($scope=1;$scope<=$version;$scope++) { |
# for ($scope=1;$scope<=$version;$scope++) { |
foreach (split(/\:/,$cachedstores{$scope.':keys:'.$symb})) { |
# foreach (split(/\:/,$cachedstores{$scope.':keys:'.$symb})) { |
$returnhash{$_}=$cachedstores{$scope.':'.$symb.':'.$_}; |
# $returnhash{$_}=$cachedstores{$scope.':'.$symb.':'.$_}; |
} |
# } |
|
# } |
|
if (exists($cachedstores{$symb})) { |
|
%returnhash = %{$cachedstores{$symb}}; |
|
} else { |
|
# &Apache::lonnet::logthis("No data for ".$symb); |
|
%returnhash = (); |
} |
} |
} else { |
} else { |
# |
# |