[BACK]Return to grades.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/grades.pm between versions 1.528.2.4 and 1.528.2.6

version 1.528.2.4, 2008/12/24 07:06:08 version 1.528.2.6, 2008/12/31 21:08:09
Line 2358  sub get_last_submission { Line 2358  sub get_last_submission {
  $$returnhash{$version.':keys'}))) {   $$returnhash{$version.':keys'}))) {
  $lasthash{$key}=$$returnhash{$version.':'.$key};   $lasthash{$key}=$$returnhash{$version.':'.$key};
  $timestamp =    $timestamp = 
     scalar(localtime($$returnhash{$version.':timestamp'}));      &Apache::lonlocal::locallocaltime($$returnhash{$version.':timestamp'});
     }      }
  }   }
  foreach my $key (keys(%lasthash)) {   foreach my $key (keys(%lasthash)) {
Line 7349  sub scantron_get_maxbubble { Line 7349  sub scantron_get_maxbubble {
                     my ($numbub,$numshown);                      my ($numbub,$numshown);
                     if ($analysis->{$part_id.'.type'} eq 'optionresponse') {                      if ($analysis->{$part_id.'.type'} eq 'optionresponse') {
                         if (ref($analysis->{$part_id.'.options'}) eq 'ARRAY') {                          if (ref($analysis->{$part_id.'.options'}) eq 'ARRAY') {
                             $numbub = scalar(@{$analysis{$part_id.'.options'}});                              $numbub = scalar(@{$analysis->{$part_id.'.options'}});
                         }                          }
                     } elsif ($analysis->{$part_id.'.type'} eq 'matchresponse') {                      } elsif ($analysis->{$part_id.'.type'} eq 'matchresponse') {
                         if (ref($analysis{$part_id.'.items'}) eq 'ARRAY') {                          if (ref($analysis->{$part_id.'.items'}) eq 'ARRAY') {
                             $numbub = scalar(@{$analysis{$part_id.'.items'}});                              $numbub = scalar(@{$analysis->{$part_id.'.items'}});
                         }                          }
                     } elsif ($analysis->{$part_id.'.type'} eq 'rankresponse') {                      } elsif ($analysis->{$part_id.'.type'} eq 'rankresponse') {
                         if (ref($analysis->{$part_id.'.foils'}) eq 'ARRAY') {                          if (ref($analysis->{$part_id.'.foils'}) eq 'ARRAY') {
Removed from v.1.528.2.4  
changed lines
  Added in v.1.528.2.6

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>