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

Diff for /loncom/homework/grades.pm between versions 1.596.2.12.2.38 and 1.596.2.12.2.40.2.1

version 1.596.2.12.2.38, 2016/10/24 22:31:06 version 1.596.2.12.2.40.2.1, 2018/10/09 15:45:43
Line 44  use Apache::Constants qw(:common :http); Line 44  use Apache::Constants qw(:common :http);
 use Apache::lonlocal;  use Apache::lonlocal;
 use Apache::lonenc;  use Apache::lonenc;
 use Apache::bridgetask();  use Apache::bridgetask();
   use Apache::lontexconvert();
 use String::Similarity;  use String::Similarity;
 use LONCAPA;  use LONCAPA;
   
Line 465  sub cleanRecord { Line 466  sub cleanRecord {
     $env{'form.kwstyle'}  = $keyhash{$loginuser.'_kwstyle'} ne '' ? $keyhash{$loginuser.'_kwstyle'} : '';      $env{'form.kwstyle'}  = $keyhash{$loginuser.'_kwstyle'} ne '' ? $keyhash{$loginuser.'_kwstyle'} : '';
     $env{'form.'.$symb} = 1; # so that we don't have to read it from disk for multiple sub of the same prob.      $env{'form.'.$symb} = 1; # so that we don't have to read it from disk for multiple sub of the same prob.
  }   }
           $answer = &Apache::lontexconvert::msgtexconverted($answer);
  return '<br /><br /><blockquote><tt>'.&keywords_highlight($answer).'</tt></blockquote>';   return '<br /><br /><blockquote><tt>'.&keywords_highlight($answer).'</tt></blockquote>';
     } elsif ( $response eq 'organic') {      } elsif ( $response eq 'organic') {
         my $result=&mt('Smile representation: [_1]',          my $result=&mt('Smile representation: [_1]',
Line 3973  sub viewgrades { Line 3975  sub viewgrades {
                     $result .= &mt('There are no students in section(s) [_1] with enrollment status [_2] to modify or grade.',                      $result .= &mt('There are no students in section(s) [_1] with enrollment status [_2] to modify or grade.',
                                    $section_display,$stu_status);                                     $section_display,$stu_status);
                 } elsif (grep(/^none$/,@groups)) {                  } elsif (grep(/^none$/,@groups)) {
                     $result .= &mt('There are no students in section(s) [_1] nd no group with enrollment status [_2] to modify or grade.',                      $result .= &mt('There are no students in section(s) [_1] and no group with enrollment status [_2] to modify or grade.',
                                    $section_display,$stu_status);                                     $section_display,$stu_status);
                 } else {                  } else {
                     $result .= &mt('There are no students in section(s) [_1] and group(s) [_2] with enrollment status [_3] to modify or grade.',                      $result .= &mt('There are no students in section(s) [_1] and group(s) [_2] with enrollment status [_3] to modify or grade.',
Line 10008  sub substatus_options { Line 10010  sub substatus_options {
                                       'queued'    => 'in grading queue',                                        'queued'    => 'in grading queue',
                                       'graded'    => 'with ungraded submissions',                                        'graded'    => 'with ungraded submissions',
                                       'incorrect' => 'with incorrect submissions',                                        'incorrect' => 'with incorrect submissions',
                                       'all'       => 'with any status');                                        'all'       => 'with any status',
                                         );
 }  }
   
 sub reset_perm {  sub reset_perm {
Removed from v.1.596.2.12.2.38  
changed lines
  Added in v.1.596.2.12.2.40.2.1

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