loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

-version 1.270, 2005/06/04 02:56:44
+version 1.271, 2005/06/04 03:36:36
  Line 2273  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',
+     my @keys;
- 					     $cdom,$cname);
+     foreach my $part (@{$partids}) {
-     if ($resethash{'version'}) {
+ 	push(@keys,"$symb\0$part\0resettime");
-         foreach my $part (@{$partids}) {
+     }
-             $last_resets{$part} = '';
+     my %results=&Apache::lonnet::get('nohist_resourcetracker',\@keys,
-             for (my $version=$resethash{'version'};$version>=1;$version--) {
+ 				     $cdom,$cname);
-                 if (exists($resethash{$version.':'.$part."\0".'prev_attempts'})) {
+     foreach my $part (@{$partids}) {
-                     $last_resets{$part} = $resethash{$version.':timestamp'};
+ 	$last_resets{$part}=$results{"$symb\0$part\0resettime"};
-                     last;
-                 }
-             }
-         }
      }
      return %last_resets;
  }