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

Diff for /loncom/homework/inputtags.pm between versions 1.333.2.7 and 1.333.2.11

version 1.333.2.7, 2019/08/11 17:16:25 version 1.333.2.11, 2021/09/11 16:12:25
Line 1037  sub decideoutput { Line 1037  sub decideoutput {
   'not_charged_try' => 'LC_answer_not_charged_try',    'not_charged_try' => 'LC_answer_not_charged_try',
   'no_grade'        => 'LC_answer_no_grade',    'no_grade'        => 'LC_answer_no_grade',
   'no_message'      => 'LC_no_message',    'no_message'      => 'LC_no_message',
             'no_charge_warn'  => 'LC_answer_warning',
   );    );
   
     my $part = $Apache::inputtags::part;      my $part = $Apache::inputtags::part;
Line 1200  sub decideoutput { Line 1201  sub decideoutput {
     } elsif ($award eq 'SIG_FAIL') {      } elsif ($award eq 'SIG_FAIL') {
  my ($used,$min,$max)=split(':',$awardmsg);   my ($used,$min,$max)=split(':',$awardmsg);
  my $word = ($used < $min) ? 'more' : 'fewer';   my $word = ($used < $min) ? 'more' : 'fewer';
  $message = &mt("Submission not graded. Use $word digits.",$used);   $message = &mt("Submission not graded. Use $word significant figures.",$used);
  $css_class=$possible_class{'not_charged_try'};          if (&Apache::lonhomework::show_some_problem_status()) {
               $css_class=$possible_class{'no_charge_warn'};
           } else {
               $css_class=$possible_class{'not_charged_try'};
           }
  $button=1;   $button=1;
     } elsif ($award eq 'UNIT_INVALID_INSTRUCTOR') {      } elsif ($award eq 'UNIT_INVALID_INSTRUCTOR') {
  $message = &mt('Error in instructor specifed unit. This error has been reported to the instructor.', $awardmsg);   $message = &mt('Error in instructor specifed unit. This error has been reported to the instructor.', $awardmsg);
Line 1874  sub previous_tries { Line 1879  sub previous_tries {
     my $prefix = $env{'form.request.prefix'};      my $prefix = $env{'form.request.prefix'};
     $prefix =~ tr{.}{_};      $prefix =~ tr{.}{_};
     my $function_name = 'LONCAPA_previous_tries_'.$prefix;      my $function_name = 'LONCAPA_previous_tries_'.$prefix;
     if (($env{'request.state'} eq 'construct') || ($id =~ /[._]|[^\w\s\-]/)) {      if (($env{'request.state'} eq 'construct') || ($id =~ /\W/)) {
         $function_name .= $Apache::lonxml::curdepth;          $function_name .= $Apache::lonxml::curdepth;
     } else {      } else {
         $function_name .= &js_escape($id);          $function_name .= $id;
     }      }
     $function_name .= '_'.$Apache::lonxml::counter;      $function_name .= '_'.$Apache::lonxml::counter;
     my $result = &Apache::loncommon::modal_adhoc_window($function_name,420,410,$output,&mt($tries_text))."<br />";      my $possmathjax = 1;
       my $result = &Apache::loncommon::modal_adhoc_window($function_name,420,410,$output,
                                                           &mt($tries_text),$possmathjax)."<br />";
     return $result;      return $result;
 }  }
   
Removed from v.1.333.2.7  
changed lines
  Added in v.1.333.2.11

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