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

Diff for /loncom/homework/inputtags.pm between versions 1.339 and 1.340

version 1.339, 2015/10/30 11:21:19 version 1.340, 2016/04/02 04:30:39
Line 1336  sub decideoutput { Line 1336  sub decideoutput {
         }          }
  $css_class=$possible_class{'no_grade'};   $css_class=$possible_class{'no_grade'};
  $button=1;   $button=1;
           if ($env{'course.'.$env{'request.course.id'}.'.type'} eq 'Placement') {
               if ($Apache::inputtags::status[-1] eq 'CANNOT_ANSWER') {
                   $message = 'Answer Submitted';
               } else {
                   undef($message); 
               }
           }
     }      }
     if ($Apache::inputtags::status[-1] eq 'SHOW_ANSWER' &&       if ($Apache::inputtags::status[-1] eq 'SHOW_ANSWER' && 
  !$added_computer_text && $target ne 'tex') {   !$added_computer_text && $target ne 'tex') {
Line 1636  sub get_grade_messages { Line 1643  sub get_grade_messages {
  if ($target eq 'tex') {   if ($target eq 'tex') {
     $message='\vskip 2 mm '.$message.' ';      $message='\vskip 2 mm '.$message.' ';
  } else {   } else {
     $message="<td class=\"$tdclass $css_class\">$message</td>";              if ($message) {
           $message="<td class=\"$tdclass $css_class\">$message</td>";
               } else {
                   $message="<td class=\"$tdclass\"></td>";  
               }
     if ($previousmsg) {      if ($previousmsg) {
  $previousmsg="<td class=\"$tdclass LC_answer_previous\">$previousmsg</td>";   $previousmsg="<td class=\"$tdclass LC_answer_previous\">$previousmsg</td>";
     }      }
Line 1740  sub gradestatus { Line 1751  sub gradestatus {
  }   }
   
     }      }
     my $output= $previousmsg.$latemessage.$message.$trystr;      my $output= $previousmsg.$latemessage.$message;
       my $crstype = $env{'course.'.$env{'request.course.id'}.'.type'};
       unless ($crstype eq 'Placement') {
           $output .= $trystr;
       }
     if ($output =~ /^\s*$/) {      if ($output =~ /^\s*$/) {
  return $button;   return $button;
     } else {      } else {
Line 1749  sub gradestatus { Line 1764  sub gradestatus {
  } else {   } else {
     $output =      $output =
  '<table><tr><td>'.$button.'</td>'.$output;   '<table><tr><td>'.$button.'</td>'.$output;
     if (!$no_previous) {      if ((!$no_previous) && ($crstype ne 'Placement')) {
  $output.='<td class="'.$tdclass.'">'.&previous_tries($id,$target).'</td>';   $output.='<td class="'.$tdclass.'">'.&previous_tries($id,$target).'</td>';
     }      }
     $output.= '</tr></table>';      $output.= '</tr></table>';
Removed from v.1.339  
changed lines
  Added in v.1.340

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