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

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

version 1.732, 2015/02/22 01:34:48 version 1.734, 2015/03/17 12:22:20
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"};
                     if (exists($record{"resource.$partid.rawrndseed"})) {                      $rndseed = $record{"resource.$partid.rndseed"};
                         $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 4861  sub displaySubByDates { Line 4857  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"};
                             if (exists($$record{"$where.$partid.rawrndseed"})) {                              $rndseed = $$record{"$where.$partid.rndseed"};
                                 $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');
         } else {          } else {
     $displaySub[0].=&mt('Trial: [_1]',      $displaySub[0].=&mt('Trial: [_1]',
     $$record{"$where.$partid.tries"});      $$record{"$where.$partid.tries"});
                             if ($rndseed || $lastrndseed{$partid}) {                              if (($rndseed ne '') && ($lastrndseed{$partid} ne '')) {
                                 if ($rndseed ne $lastrndseed{$partid}) {                                  if ($rndseed ne $lastrndseed{$partid}) {
                                     $newvariation = ' ('.&mt('New variation this try').')';                                      $newvariation = ' ('.&mt('New variation this try').')';
                                 }                                  }
Removed from v.1.732  
changed lines
  Added in v.1.734

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