--- loncom/homework/grades.pm 2005/06/04 02:56:44 1.270 +++ loncom/homework/grades.pm 2005/06/04 03:36:36 1.271 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.270 2005/06/04 02:56:44 albertel Exp $ +# $Id: grades.pm,v 1.271 2005/06/04 03:36:36 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2273,18 +2273,14 @@ sub get_last_resets { my %last_resets; my $cdom = $env{'course.'.$courseid.'.domain'}; my $cname = $env{'course.'.$courseid.'.num'}; - my %resethash = &Apache::lonnet::restore($symb,'nohist_resourcetracker', - $cdom,$cname); - if ($resethash{'version'}) { - foreach my $part (@{$partids}) { - $last_resets{$part} = ''; - for (my $version=$resethash{'version'};$version>=1;$version--) { - if (exists($resethash{$version.':'.$part."\0".'prev_attempts'})) { - $last_resets{$part} = $resethash{$version.':timestamp'}; - last; - } - } - } + my @keys; + foreach my $part (@{$partids}) { + push(@keys,"$symb\0$part\0resettime"); + } + my %results=&Apache::lonnet::get('nohist_resourcetracker',\@keys, + $cdom,$cname); + foreach my $part (@{$partids}) { + $last_resets{$part}=$results{"$symb\0$part\0resettime"}; } return %last_resets; }