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

Diff for /loncom/homework/grades.pm between versions 1.773 and 1.774

version 1.773, 2020/08/30 20:30:21 version 1.774, 2020/08/31 01:14:06
Line 2576  sub submission { Line 2576  sub submission {
                     $rndseed = $record{"resource.$partid.rndseed"};                      $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)=
         &most_similar($uname,$udom,$symb,$subval);      &most_similar($uname,$udom,$symb,$subval);
     if ($osim) {      if ($osim) {
  $osim=int($osim*100.0);   $osim=int($osim*100.0);
                         if ($hide eq 'anon') {                          if ($hide eq 'anon') {
Line 2641  sub submission { Line 2641  sub submission {
                         '('.&mt('Response ID: [_1]',$respid).')'.                          '('.&mt('Response ID: [_1]',$respid).')'.
                         '</span>&nbsp; &nbsp;';                          '</span>&nbsp; &nbsp;';
     my $files=&get_submitted_files($udom,$uname,$partid,$respid,\%record);      my $files=&get_submitted_files($udom,$uname,$partid,$respid,\%record);
                           
     if (@$files) {      if (@$files) {
                         if ($hide eq 'anon') {                          if ($hide eq 'anon') {
                             $lastsubonly.='<br />'.&mt('[quant,_1,file] uploaded to this anonymous survey',scalar(@{$files}));                              $lastsubonly.='<br />'.&mt('[quant,_1,file] uploaded to this anonymous survey',scalar(@{$files}));
Line 2653  sub submission { Line 2652  sub submission {
                             } else {                              } else {
                                 $lastsubonly .= &mt('Like all files provided by users, these files may contain viruses!');                                  $lastsubonly .= &mt('Like all files provided by users, these files may contain viruses!');
                             }                              }
                             $lastsubonly .= '</span>';                                                       $lastsubonly .= '</span>';
                             foreach my $file (@$files) {                              foreach my $file (@$files) {
                                 &Apache::lonnet::allowuploaded('/adm/grades',$file);                                  &Apache::lonnet::allowuploaded('/adm/grades',$file);
                                 $lastsubonly.='<br /><a href="'.$file.'?rawmode=1" target="lonGRDs"><img src="'.&Apache::loncommon::icon($file).'" border="0" alt="" /> '.$file.'</a>';                                  $lastsubonly.='<br /><a href="'.$file.'?rawmode=1" target="lonGRDs"><img src="'.&Apache::loncommon::icon($file).'" border="0" alt="" /> '.$file.'</a>';
Line 2664  sub submission { Line 2663  sub submission {
                     if ($hide eq 'anon') {                      if ($hide eq 'anon') {
                         $lastsubonly.='<br /><b>'.&mt('Anonymous Survey').'</b>';                           $lastsubonly.='<br /><b>'.&mt('Anonymous Survey').'</b>'; 
                     } else {                      } else {
                      $lastsubonly.='<br /><b>'.&mt('Submitted Answer:').' </b>';                          $lastsubonly.='<br /><b>'.&mt('Submitted Answer:').' </b>';
                         if ($draft) {                          if ($draft) {
                             $lastsubonly.= ' <span class="LC_warning">'.&mt('Draft Copy').'</span>';                              $lastsubonly.= ' <span class="LC_warning">'.&mt('Draft Copy').'</span>';
                         }                          }
Line 2676  sub submission { Line 2675  sub submission {
                         }                          }
                         $lastsubonly.=$subval."\n";                          $lastsubonly.=$subval."\n";
                     }                      }
             if ($similar) {$lastsubonly.="<br /><br />$similar\n";}                      if ($similar) {$lastsubonly.="<br /><br />$similar\n";}
     $lastsubonly.='</div>';      $lastsubonly.='</div>';
  }   }
             }              }
Removed from v.1.773  
changed lines
  Added in v.1.774

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