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

Diff for /loncom/homework/grades.pm between versions 1.731 and 1.732

version 1.731, 2015/02/10 04:02:17 version 1.732, 2015/02/22 01:34:48
Line 2231  sub submission { Line 2231  sub submission {
                 if ($hide eq 'rand') {                  if ($hide eq 'rand') {
                     $type = 'randomizetry';                      $type = 'randomizetry';
                     $trial = $record{"resource.$partid.tries"};                      $trial = $record{"resource.$partid.tries"};
                     $rndseed = $record{"resource.$partid.rndseed"};                      if (exists($record{"resource.$partid.rawrndseed"})) {
                           $rndseed = $record{"resource.$partid.rawrndseed"};
                       } else {
                           $rndseed = $record{"resource.$partid.rndseed"};
                       }
                 }                  }
         if ($env{'form.checkPlag'}) {          if ($env{'form.checkPlag'}) {
        my ($oname,$odom,$ocrsid,$oessay,$osim)=         my ($oname,$odom,$ocrsid,$oessay,$osim)=
Line 2543  sub get_last_submission { Line 2547  sub get_last_submission {
             }              }
             unless ($hide) {              unless ($hide) {
                 if (@randomize) {                  if (@randomize) {
                     foreach my $id (@hidden) {                      foreach my $id (@randomize) {
                         if ($key =~ /^\Q$id\E/) {                          if ($key =~ /^\Q$id\E/) {
                             $hide = 'rand';                              $hide = 'rand';
                             last;                              last;
Line 4857  sub displaySubByDates { Line 4861  sub displaySubByDates {
                         my ($trial,$rndseed,$newvariation);                          my ($trial,$rndseed,$newvariation);
                         if ($type eq 'randomizetry') {                          if ($type eq 'randomizetry') {
                             $trial = $$record{"$where.$partid.tries"};                              $trial = $$record{"$where.$partid.tries"};
                             $rndseed = $$record{"$where.$partid.rndseed"};                              if (exists($$record{"$where.$partid.rawrndseed"})) {
                                   $rndseed = $$record{"$where.$partid.rawrndseed"};
                               } else {
                                   $rndseed = $$record{"$where.$partid.rndseed"};
                               }
                         }                          }
         if ($$record{"$where.$partid.tries"} eq '') {          if ($$record{"$where.$partid.tries"} eq '') {
     $displaySub[0].=&mt('Trial not counted');      $displaySub[0].=&mt('Trial not counted');
Removed from v.1.731  
changed lines
  Added in v.1.732

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