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

Diff for /loncom/interface/loncommon.pm between versions 1.1199 and 1.1200

version 1.1199, 2014/11/08 18:26:06 version 1.1200, 2014/11/21 17:59:06
Line 3837  sub get_previous_attempt { Line 3837  sub get_previous_attempt {
               }                }
           } elsif ($data eq 'regrader') {            } elsif ($data eq 'regrader') {
               if (($identifier ne '') && (@parts)) {                if (($identifier ne '') && (@parts)) {
                   $regraded{$parts[-1]} = 1;                    my $id = join(',',@parts);
                     $regraded{$ign.'.'.$id} = 1;
               }                }
           }             } 
  } else {   } else {
Line 3851  sub get_previous_attempt { Line 3852  sub get_previous_attempt {
       $prevattempts.=&end_data_table_header_row();        $prevattempts.=&end_data_table_header_row();
       if ($getattempt eq '') {        if ($getattempt eq '') {
         my (%solved,%resets,%probstatus);          my (%solved,%resets,%probstatus);
  for ($version=1;$version<=$returnhash{'version'};$version++) {          if (($identifier ne '') && (keys(%regraded) > 0)) {
             if ($identifier ne '') {              for ($version=1;$version<=$returnhash{'version'};$version++) {
                 foreach my $part (keys(%regraded)) {                  foreach my $id (keys(%regraded)) {
                     if (($returnhash{$version.':resource.'.$part.'.regrader'}) &&                      if (($returnhash{$version.':'.$id.'.regrader'}) &&
                         ($returnhash{$version.':resource.'.$part.'.tries'} eq '') &&                          ($returnhash{$version.':'.$id.'.tries'} eq '') &&
                         ($returnhash{$version.':resource.'.$part.'.award'} eq '')) {                          ($returnhash{$version.':'.$id.'.award'} eq '')) {
                         push(@{$resets{$part}},$version);                          push(@{$resets{$id}},$version);
                     }                      }
                 }                  }
             }              }
           }
    for ($version=1;$version<=$returnhash{'version'};$version++) {
             my (@hidden,@unsolved);              my (@hidden,@unsolved);
             if (%typeparts) {              if (%typeparts) {
                 foreach my $id (keys(%typeparts)) {                  foreach my $id (keys(%typeparts)) {
Line 3871  sub get_previous_attempt { Line 3874  sub get_previous_attempt {
                         unless (($returnhash{$version.':'.$id.'.type'} eq 'survey') ||                          unless (($returnhash{$version.':'.$id.'.type'} eq 'survey') ||
                                 ($returnhash{$version.':'.$id.'.type'} eq 'surveycred') ||                                  ($returnhash{$version.':'.$id.'.type'} eq 'surveycred') ||
                                 ($hidestatus{$id})) {                                  ($hidestatus{$id})) {
                             next if ((ref($resets{$id}) eq 'ARRAY') && grep(/^\Q$id\E$/,@{$resets{$id}}));                              next if ((ref($resets{$id}) eq 'ARRAY') && grep(/^\Q$version\E$/,@{$resets{$id}}));
                             if ($returnhash{$version.':'.$id.'.solved'} eq 'correct_by_student') {                              if ($returnhash{$version.':'.$id.'.solved'} eq 'correct_by_student') {
                                 push(@{$solved{$id}},$version);                                  push(@{$solved{$id}},$version);
                             } elsif (($returnhash{$version.':'.$id.'.solved'} ne '') &&                              } elsif (($returnhash{$version.':'.$id.'.solved'} ne '') &&
Line 15323  sub search_courses { Line 15326  sub search_courses {
     return %courses;      return %courses;
 }  }
   
   
 =pod  =pod
   
 =back  =back
Removed from v.1.1199  
changed lines
  Added in v.1.1200

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