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

Diff for /loncom/homework/inputtags.pm between versions 1.312 and 1.333.2.1

version 1.312, 2012/12/19 17:35:34 version 1.333.2.1, 2015/03/19 08:40:38
Line 216  sub start_textfield { Line 216  sub start_textfield {
             }              }
         }          }
         unless ($newvariation) {          unless ($newvariation) {
     $oldresponse = $Apache::lonhomework::history{"resource.$partid.$resid.submission"};              if ((($env{'form.grade_username'} eq '') && ($env{'form.grade_domain'} eq '')) ||
                   (($env{'form.grade_username'} eq $env{'user.name'}) &&
                    ($env{'form.grade_domain'} eq $env{'user.domain'}))) {
                   $oldresponse = $Apache::lonhomework::history{"resource.$partid.$resid.submission"};
               } elsif (($Apache::lonhomework::history{"resource.$partid.type"} eq 'anonsurvey') ||
                       ($Apache::lonhomework::history{"resource.$partid.type"} eq 'anonsurveycred')) {
                   $oldresponse = '* '.&mt('(only shown to submitter)').' *';
               } else {
                   $oldresponse = $Apache::lonhomework::history{"resource.$partid.$resid.submission"};
               }
         }          }
  if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {   if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
     my $cols = &Apache::lonxml::get_param('cols',$parstack,$safeeval);      my $cols = &Apache::lonxml::get_param('cols',$parstack,$safeeval);
Line 226  sub start_textfield { Line 235  sub start_textfield {
     my $addchars=&Apache::lonxml::get_param('addchars',$parstack,$safeeval);      my $addchars=&Apache::lonxml::get_param('addchars',$parstack,$safeeval);
     $result='';      $result='';
     my $tagident = 'HWVAL_' . $resid;      my $tagident = 'HWVAL_' . $resid;
               my $itemid = 'HWVAL_'.$partid.'_'.$resid;
     if ($addchars) {      if ($addchars) {
  $result.=&addchars($tagident, $addchars);   $result.=&addchars($tagident, $addchars);
     }      }
             my $textareaclass = 'class="LC_richDetectHtml spellchecked"';              my $textareaclass;
     $result.= '<textarea wrap="hard" name="'.$tagident.'" id="'.$tagident.'" ' .              unless (&Apache::londefdef::is_inside_of($tagstack,
                                                       'externalresponse')) {
                   $textareaclass = 'class="LC_richDetectHtml spellchecked"';
               }
       $result.= '<textarea wrap="hard" name="'.$tagident.'" id="'.$itemid.'" ' .
       'rows="'.$rows.'" cols="'.$cols.'" '.$textareaclass        'rows="'.$rows.'" cols="'.$cols.'" '.$textareaclass
       .'>'.        .'>'.
                       &HTML::Entities::encode($oldresponse,'<>&"');                        &HTML::Entities::encode($oldresponse,'<>&"');
Line 245  sub start_textfield { Line 259  sub start_textfield {
  && &Apache::londefdef::is_inside_of($tagstack,   && &Apache::londefdef::is_inside_of($tagstack,
     'essayresponse') ) {      'essayresponse') ) {
  $result='<table class="LC_pastsubmission"><tr><td>'.   $result='<table class="LC_pastsubmission"><tr><td>'.
     $oldresponse.'</td></tr></table>';      &HTML::Entities::encode($oldresponse,'"<>&').
                       '</td></tr></table>';
     }      }
     #get rid of any startup text      #get rid of any startup text
     &Apache::lonxml::get_all_text("/textfield",$parser,$style);      &Apache::lonxml::get_all_text("/textfield",$parser,$style);
Line 266  sub start_textfield { Line 281  sub start_textfield {
  my $bodytext=&Apache::lonxml::get_all_text("/textfield",$parser,   my $bodytext=&Apache::lonxml::get_all_text("/textfield",$parser,
    $style);     $style);
  $result.=&Apache::edit::editfield($token->[1],$bodytext,'Text you want to appear by default:',80,2);   $result.=&Apache::edit::editfield($token->[1],$bodytext,'Text you want to appear by default:',80,2);
           my $spell_langs = &spelling_languages();
  $result .= &Apache::edit::select_arg('Spellcheck for:', 'spellcheck',   $result .= &Apache::edit::select_arg('Spellcheck for:', 'spellcheck',
      ['none', 'en', 'de', 'fr'], $token);       $spell_langs, $token);
     } elsif ($target eq 'modified') {      } elsif ($target eq 'modified') {
  my $constructtag=&Apache::edit::get_new_args($token,$parstack,   my $constructtag=&Apache::edit::get_new_args($token,$parstack,
      $safeeval,'rows','cols',       $safeeval,'rows','cols',
Line 286  sub start_textfield { Line 302  sub start_textfield {
     for (my $i=0;$i<int $number_of_lines*2;$i++) {$result.='\strut \\\\ ';}      for (my $i=0;$i<int $number_of_lines*2;$i++) {$result.='\strut \\\\ ';}
     $result.='\strut \\\\\strut \\\\\strut \\\\\strut \\\\}}}';      $result.='\strut \\\\\strut \\\\\strut \\\\\strut \\\\}}}';
  } else {   } else {
     my $fieldname = $env{'request.symb'}.              if ($env{'form.pdfFormFields'} eq 'yes') {
                     '&part_'. $Apache::inputtags::part.                  my $fieldname = $env{'request.symb'}.
                     '&textresponse'.                                  '&part_'. $Apache::inputtags::part.
                     '&HWVAL_' . $Apache::inputtags::response['-1'];                                  '&textresponse'.
             $result.='\TextField[name='.$fieldname.',multiline=true,height=6\baselineskip,width=270,borderwidth=0,backgroundcolor={.85                                  '&HWVAL_' . $Apache::inputtags::response['-1'];
                 .85 .85}]\\';                  $result.='\TextField[name='.$fieldname.',multiline=true,height=6\baselineskip,width=270,borderwidth=0,backgroundcolor={.85 .85 .85}]\\';
               } else {
                   my $TeXwidth=$width_of_box/80;
                   $result = '\vskip 1 mm \fbox{\fbox{\parbox{'.$TeXwidth.'\textwidth-5mm}{';
                   for (my $i=0;$i<int $number_of_lines*2;$i++) {$result.='\strut \\\\ ';}
                   $result.='}}}\vskip 2 mm ';
               }
  }   }
     }      }
     return $result;      return $result;
Line 304  sub end_textfield { Line 326  sub end_textfield {
  my $spellcheck = &Apache::lonxml::get_param('spellcheck', $parstack, $safeeval);   my $spellcheck = &Apache::lonxml::get_param('spellcheck', $parstack, $safeeval);
  $Apache::lonxml::evaluate++;   $Apache::lonxml::evaluate++;
  if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {   if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
               my $partid=$Apache::inputtags::part;
     my $resid = $Apache::inputtags::response[-1];      my $resid = $Apache::inputtags::response[-1];
     my $tagident = 'HWVAL_' . $resid;      my $itemid = 'HWVAL_' . $partid . '_' . $resid;
     my $result =  "</textarea>";      my $result =  "</textarea>";
     $result .= &spellcheck_onblur($tagident, $spellcheck);      $result .= &spellcheck_onblur($itemid, $spellcheck);
     return $result;      return $result;
  }   }
     } elsif ($target eq 'edit') {      } elsif ($target eq 'edit') {
Line 400  sub start_textline { Line 423  sub start_textline {
                 }                  }
             }              }
             unless ($newvariation) {              unless ($newvariation) {
         $oldresponse = $Apache::lonhomework::history{"resource.$partid.$id.submission"};                  if ((($env{'form.grade_username'} eq '') && ($env{'form.grade_domain'} eq '')) ||
                       (($env{'form.grade_username'} eq $env{'user.name'}) &&
                        ($env{'form.grade_domain'} eq $env{'user.domain'}))) {
                       $oldresponse = $Apache::lonhomework::history{"resource.$partid.$id.submission"};
                   } elsif (($Apache::lonhomework::history{"resource.$partid.type"} eq 'anonsurvey') ||
                           ($Apache::lonhomework::history{"resource.$partid.type"} eq 'anonsurveycred') ||
                           ($Apache::lonhomework::type eq 'anonsurvey') ||
                           ($Apache::lonhomework::type eq 'anonsurveycred')) {
                           $oldresponse = '* '.&mt('(only shown to submitter)').' *';
                   } else {
                       $oldresponse = $Apache::lonhomework::history{"resource.$partid.$id.submission"};
                   }
         &Apache::lonxml::debug("oldresponse $oldresponse is ".ref($oldresponse));          &Apache::lonxml::debug("oldresponse $oldresponse is ".ref($oldresponse));
         if (ref($oldresponse) eq 'ARRAY') {          if (ref($oldresponse) eq 'ARRAY') {
     $oldresponse = $oldresponse->[$#Apache::inputtags::inputlist];      $oldresponse = $oldresponse->[$#Apache::inputtags::inputlist];
Line 425  sub start_textline { Line 459  sub start_textline {
     $readonly='';      $readonly='';
  }   }
  my $name = 'HWVAL_'.$id;   my $name = 'HWVAL_'.$id;
                   my $itemid = 'HWVAL_'.$partid.'_'.$id;
  if ($Apache::inputtags::status[-1] eq 'CANNOT_ANSWER') {   if ($Apache::inputtags::status[-1] eq 'CANNOT_ANSWER') {
     $name = "none";      $name = "none";
  }   }
  $result.= '<input onkeydown="javascript:setSubmittedPart(\''.$partid.'\');"'   $result.= '<input onkeydown="javascript:setSubmittedPart(\''.$partid.'\');"'
      . ' type="text" '       . ' onfocus="javascript:disableAutoComplete(\''.$itemid.'\');"'
      . $readonly.' name="'. $name . '"'       . ' type="text" '.$readonly.' name="'. $name . '"'
      . ' id="' . $name . '"'       . ' id="' . $itemid . '"'
      . ' value="'.  $oldresponse.'"'       . ' value="'.  $oldresponse.'"'
      . ' class="spellchecked"  size="'.$size.'"'.$maxlength       . ' class="LC_textline spellchecked"  size="'.$size.'"'.$maxlength.' />';
      . '/>';  
   
  $result .= &spellcheck_onblur($name, $spellcheck);   $result .= &spellcheck_onblur($itemid, $spellcheck);
     }      }
     if ($Apache::lonhomework::type eq 'exam'      if ($Apache::lonhomework::type eq 'exam'
  && &needs_exam_box($tagstack)) {   && &needs_exam_box($tagstack)) {
Line 455  sub start_textline { Line 489  sub start_textline {
     'addchars',$token,10);      'addchars',$token,10);
         $result.=&Apache::edit::select_arg('Readonly:','readonly',          $result.=&Apache::edit::select_arg('Readonly:','readonly',
    ['no','yes'],$token);     ['no','yes'],$token);
  $result.=&Apache::edit::select_arg("Spellcheck for: ", 'spellcheck',          my $spell_langs = &spelling_languages();
    ['none', 'en', 'de', 'fr'], $token);   $result.=&Apache::edit::select_arg('Spellcheck for:', 'spellcheck',
      $spell_langs, $token);
  $result.=&Apache::edit::end_row();   $result.=&Apache::edit::end_row();
  $result.=&Apache::edit::end_table();   $result.=&Apache::edit::end_table();
     } elsif ($target eq 'modified') {      } elsif ($target eq 'modified') {
Line 619  sub file_selector { Line 654  sub file_selector {
     &mt('Allowed filetypes: [_1]','<b>'.$uploadedfiletypes.'</b>').'<br />';      &mt('Allowed filetypes: [_1]','<b>'.$uploadedfiletypes.'</b>').'<br />';
     }      }
     if ($maxfilesize) {      if ($maxfilesize) {
         $constraints .= &mt('Combined size of all files not to exceed: [_1] MB[_2].',          $constraints .= &mt('Combined size of all files not to exceed: [_1] MB.',
                         '<b>'.$maxfilesize.'</b>').'<br />';                          '<b>'.$maxfilesize.'</b>').'<br />';
     }      }
     if ($constraints) {      if ($constraints) {
Line 663  sub current_file_submissions { Line 698  sub current_file_submissions {
     my $uploadedfile=$Apache::lonhomework::history{"resource.$part.$id.uploadedfile"};      my $uploadedfile=$Apache::lonhomework::history{"resource.$part.$id.uploadedfile"};
     my $portfiles=$Apache::lonhomework::history{"resource.$part.$id.portfiles"};      my $portfiles=$Apache::lonhomework::history{"resource.$part.$id.portfiles"};
     return if (($uploadedfile eq '') && ($portfiles !~/[^\s]/));      return if (($uploadedfile eq '') && ($portfiles !~/[^\s]/));
     my $header = &Apache::loncommon::start_data_table().      my $header = &portpath_popup_js().
                    &Apache::loncommon::start_data_table().
                  &Apache::loncommon::start_data_table_header_row();                   &Apache::loncommon::start_data_table_header_row();
     if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {      if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
         $header .= '<th>'.&mt('Delete?').'</th>';          $header .= '<th>'.&mt('Delete?').'</th>';
Line 729  sub current_file_submissions { Line 765  sub current_file_submissions {
                                  ' value="'.$portfile.'" id="HWFILE'.$jspart.'_'.$id.'_'.$num.'_delete" /></td>'."\n";                                   ' value="'.$portfile.'" id="HWFILE'.$jspart.'_'.$id.'_'.$num.'_delete" /></td>'."\n";
                             $num ++;                              $num ++;
                         }                          }
                         my $showname = $rows{$url}{path}.$name;                          my $pathid = 'HWFILE'.$jspart.'_'.$id.'_'.$num.'_path';
                           my $pathidtext = $pathid.'text';
                           my ($showname,$showpath);
                         if ($legacy{$url}) {                          if ($legacy{$url}) {
                             $showname = $name.' '.&mt('not in portfolio');                              $showname = $name.' '.&mt('not in portfolio');
                           } else {
                               $showname = $name;
                               $showpath = '<br />'. 
                                           '<span id="'.$pathidtext.'" class="LC_cusr_subheading">'.
                                           '<a href="javascript:showPortPath('."'$pathid','$pathidtext'".');" '.
                                           'class="LC_menubuttons_link">'.
                                           &mt('(Show path)').'</a></span>'.
                                           '<div id="'.$pathid.'" class="LC_dccid">'.$rows{$url}{path}.$name.
   '</div>';
                         }                          }
                         $result .=                           $result .= 
                             '<td><a href="'.$link.'"><img src="'.$icon.                              '<td><a href="'.$link.'"><img src="'.$icon.
                             '" border="0" alt="" />'.$showname.'</a></td>'."\n".                              '" border="0" alt="" />'.$showname.'</a>'.$showpath.'</td>'."\n".
                             '<td align="right" valign="bottom">'.$rows{$url}{size}.'</td>'."\n".                              '<td align="right" valign="bottom">'.$rows{$url}{size}.'</td>'."\n".
                             '<td align="right" valign="bottom">'.$rows{$url}{lastmodified}.'</td>'."\n".                              '<td align="right" valign="bottom">'.$rows{$url}{lastmodified}.'</td>'."\n".
                             &Apache::loncommon::end_data_table_row();                              &Apache::loncommon::end_data_table_row();
Line 790  sub current_file_info { Line 837  sub current_file_info {
     return ($status,\%info,$error);      return ($status,\%info,$error);
 }  }
   
   sub portpath_popup_js {
       my %lt = &Apache::lonlocal::texthash(
                                             show => '(Show path)',
                                             hide => '(Hide)',
                                           );
       return <<"END";
   <script type="text/javascript"> 
   // <![CDATA[
   
   function showPortPath(id,idtext) {
       document.getElementById(id).style.display='block';
       document.getElementById(id).style.textAlign='left';
       document.getElementById(id).style.textFace='normal';
       if (document.getElementById(idtext)) {
           document.getElementById(idtext).innerHTML ='<a href="javascript:hidePortPath(\\''+id+'\\',\\''+idtext+'\\'); '+
                                                      '"class="LC_menubuttons_link">$lt{'hide'}</a>&nbsp;';
       }
       return;
   }
   
   function hidePortPath(id,idtext) {
       if (document.getElementById(id)) {
           document.getElementById(id).style.display='none';
       }
       if (document.getElementById(idtext)) {
           document.getElementById(idtext).innerHTML ='<a href="javascript:showPortPath(\\''+id+'\\',\\''+idtext+'\\');" '+
                                                      'class="LC_menubuttons_link">$lt{'show'}</a>';
       }
       return;
   }
   
   // ]]>
   </script>
   
   END
   }
   
 sub valid_award {  sub valid_award {
     my ($award) =@_;      my ($award) =@_;
     foreach my $possibleaward ('EXTRA_ANSWER','MISSING_ANSWER', 'ERROR',      foreach my $possibleaward ('EXTRA_ANSWER','MISSING_ANSWER', 'ERROR',
        'NO_RESPONSE',         'NO_RESPONSE','WRONG_NUMBOXESCHECKED',
        'TOO_LONG', 'UNIT_INVALID_INSTRUCTOR',         'TOO_LONG', 'UNIT_INVALID_INSTRUCTOR',
        'UNIT_INVALID_STUDENT', 'UNIT_IRRECONCIBLE',         'UNIT_INVALID_STUDENT', 'UNIT_IRRECONCIBLE',
        'UNIT_FAIL', 'NO_UNIT',         'UNIT_FAIL', 'NO_UNIT',
Line 813  sub valid_award { Line 897  sub valid_award {
   
 {  {
     my @awards = ('EXTRA_ANSWER', 'MISSING_ANSWER', 'ERROR', 'NO_RESPONSE',      my @awards = ('EXTRA_ANSWER', 'MISSING_ANSWER', 'ERROR', 'NO_RESPONSE',
   'TOO_LONG',    'WRONG_NUMCHECKEDBOXES','TOO_LONG',
   'UNIT_INVALID_INSTRUCTOR', 'UNIT_INVALID_STUDENT',    'UNIT_INVALID_INSTRUCTOR', 'UNIT_INVALID_STUDENT',
   'UNIT_IRRECONCIBLE', 'UNIT_FAIL', 'NO_UNIT',    'UNIT_IRRECONCIBLE', 'UNIT_FAIL', 'NO_UNIT',
   'UNIT_NOTNEEDED', 'WANTED_NUMERIC', 'BAD_FORMULA',  'NOT_FUNCTION',     'UNIT_NOTNEEDED', 'WANTED_NUMERIC', 'BAD_FORMULA',  'NOT_FUNCTION', 
Line 915  sub finalizeawards { Line 999  sub finalizeawards {
 }  }
   
 sub decideoutput {  sub decideoutput {
     my ($award,$awarded,$awardmsg,$solved,$previous,$target,$nocorrect)=@_;      my ($award,$awarded,$awardmsg,$solved,$previous,$target,$nocorrect,$tdclass)=@_;
   
     my $message='';      my $message='';
     my $button=0;      my $button=0;
Line 1040  sub decideoutput { Line 1124  sub decideoutput {
         }          }
  $css_class=$possible_class{'not_charged_try'};   $css_class=$possible_class{'not_charged_try'};
  $button = 1;   $button = 1;
       } elsif ($award eq 'WRONG_NUMBOXESCHECKED') {
           $message = &mt('Number of boxes checked outside permissible range (either too few or too many).');
           if ($target ne 'tex') {
              $message .= &Apache::loncommon::help_open_topic('Wrong_Num_Boxes_Checked');
           }
           $css_class=$possible_class{'not_charged_try'};
           $button = 1;
     } elsif ($award eq 'ERROR') {      } elsif ($award eq 'ERROR') {
  $message = &mt('An error occurred while grading your answer.');   $message = &mt('An error occurred while grading your answer.');
  $css_class=$possible_class{'not_charged_try'};   $css_class=$possible_class{'not_charged_try'};
Line 1060  sub decideoutput { Line 1151  sub decideoutput {
  $css_class=$possible_class{'not_charged_try'};   $css_class=$possible_class{'not_charged_try'};
  $button=1;   $button=1;
     } elsif ($award eq 'EXCESS_FILESIZE') {      } elsif ($award eq 'EXCESS_FILESIZE') {
         $message = &mt('Submission won\'t be graded. The combined size of submitted files exceeded the amount allowed.');          $message = &mt("Submission won't be graded. The combined size of submitted files exceeded the amount allowed.");
         $css_class=$possible_class{'not_charged_try'};          $css_class=$possible_class{'not_charged_try'};
         $button=1;          $button=1;
     } elsif ($award eq 'FILENAME_INUSE') {      } elsif ($award eq 'FILENAME_INUSE') {
Line 1070  sub decideoutput { Line 1161  sub decideoutput {
         } else {          } else {
             $message .= '<br />';              $message .= '<br />';
         }          }
         $message .= &mt('Please use a different file name.');          $message .= &mt('Please use a different filename.');
         $css_class=$possible_class{'not_charged_try'};          $css_class=$possible_class{'not_charged_try'};
         $button=1;          $button=1;
     } elsif ($award eq 'INVALID_FILETYPE') {      } elsif ($award eq 'INVALID_FILETYPE') {
Line 1411  sub setgradedata { Line 1502  sub setgradedata {
     $Apache::lonhomework::results{"resource.$id.type"} = $Apache::lonhomework::type;      $Apache::lonhomework::results{"resource.$id.type"} = $Apache::lonhomework::type;
     $Apache::lonhomework::results{"resource.$id.duedate"} = &Apache::lonnet::EXT("resource.$id.duedate");      $Apache::lonhomework::results{"resource.$id.duedate"} = &Apache::lonnet::EXT("resource.$id.duedate");
     $Apache::lonhomework::results{"resource.$id.hinttries"} = &Apache::lonnet::EXT("resource.$id.hinttries");      $Apache::lonhomework::results{"resource.$id.hinttries"} = &Apache::lonnet::EXT("resource.$id.hinttries");
     $Apache::lonhomework::results{"resourse.$id.version"} = &Apache::lonnet::usedversion();       $Apache::lonhomework::results{"resource.$id.version"} = &Apache::lonnet::usedversion();
       $Apache::lonhomework::results{"resource.$id.maxtries"} = &Apache::lonnet::EXT("resource.$id.maxtries");
 }  }
   
 sub find_which_previous {  sub find_which_previous {
Line 1491  sub grade { Line 1583  sub grade {
 }  }
   
 sub get_grade_messages {  sub get_grade_messages {
     my ($id,$prefix,$target,$status,$nocorrect) = @_;      my ($id,$prefix,$target,$status,$nocorrect,$tdclass) = @_;
 # nocorrect suppresses "Computer's answer now shown above"  # nocorrect suppresses "Computer's answer now shown above"
     my ($message,$latemessage,$trystr,$previousmsg);      my ($message,$latemessage,$trystr,$previousmsg);
     my $showbutton = 1;      my $showbutton = 1;
Line 1506  sub get_grade_messages { Line 1598  sub get_grade_messages {
  &Apache::lonxml::debug('Getting message');   &Apache::lonxml::debug('Getting message');
  ($showbutton,my $css_class,$message,$previousmsg) =   ($showbutton,my $css_class,$message,$previousmsg) =
     &decideoutput($award,$awarded,$awardmsg,$solved,$previous,      &decideoutput($award,$awarded,$awardmsg,$solved,$previous,
   $target,(($status eq 'CAN_ANSWER') || $nocorrect));    $target,(($status eq 'CAN_ANSWER') || $nocorrect),$tdclass);
  if ($target eq 'tex') {   if ($target eq 'tex') {
     $message='\vskip 2 mm '.$message.' ';      $message='\vskip 2 mm '.$message.' ';
  } else {   } else {
     $message="<td class=\"$css_class\">$message</td>";      $message="<td class=\"$tdclass $css_class\">$message</td>";
     if ($previousmsg) {      if ($previousmsg) {
  $previousmsg="<td class=\"LC_answer_previous\">$previousmsg</td>";   $previousmsg="<td class=\"$tdclass LC_answer_previous\">$previousmsg</td>";
     }      }
  }   }
     }      }
Line 1547  sub get_grade_messages { Line 1639  sub get_grade_messages {
     $trial.="/".$Apache::inputtags::params{'maxtries'};      $trial.="/".$Apache::inputtags::params{'maxtries'};
  }   }
     }      }
     $trystr = '<td><span class="LC_nobreak">'.&mt($tries_text.' [_1]',$trial).'</span></td>';      $trystr = '<td class="'.$tdclass.'"><span class="LC_nobreak">'.&mt($tries_text.' [_1]',$trial).'</span></td>';
  }   }
     }      }
   
Line 1555  sub get_grade_messages { Line 1647  sub get_grade_messages {
  #last submissions was after due date   #last submissions was after due date
  $latemessage=&mt(' The last submission was after the Due Date ');;   $latemessage=&mt(' The last submission was after the Due Date ');;
  if ($target eq 'web') {   if ($target eq 'web') {
     $latemessage='<td class="LC_answer_late">'.$latemessage.'</td>';      $latemessage='<td class="'.$tdclass.' LC_answer_late">'.$latemessage.'</td>';
  }   }
     }      }
     return ($previousmsg,$latemessage,$message,$trystr,$showbutton);      return ($previousmsg,$latemessage,$message,$trystr,$showbutton);
Line 1569  sub gradestatus { Line 1661  sub gradestatus {
     my $trystr='';      my $trystr='';
     my $button='';      my $button='';
     my $previousmsg='';      my $previousmsg='';
       my $tdclass='';
   
     my $status = $Apache::inputtags::status['-1'];      my $status = $Apache::inputtags::status['-1'];
     &Apache::lonxml::debug("gradestatus has :$status:");      &Apache::lonxml::debug("gradestatus has :$status:");
Line 1585  sub gradestatus { Line 1678  sub gradestatus {
             $showbutton = 0;              $showbutton = 0;
         }          }
   
           unless (($status eq 'SHOW_ANSWER') || ($status eq 'CANNOT_ANSWER')) {
               if ($target ne 'tex') {
                   $tdclass = 'LC_status_submit_'.$id;
               }
           }
   
  ($previousmsg,$latemessage,$message,$trystr) =   ($previousmsg,$latemessage,$message,$trystr) =
     &get_grade_messages($id,"resource.$id",$target,$status,      &get_grade_messages($id,"resource.$id",$target,$status,
  $showbutton);   $showbutton,$tdclass);
  if ($status eq 'CANNOT_ANSWER') {   if ($status eq 'CANNOT_ANSWER') {
     $showbutton = 0;      $showbutton = 0;
  }   }
  if ( $status eq 'SHOW_ANSWER') {   if ( $status eq 'SHOW_ANSWER') {
     undef($previousmsg);      undef($previousmsg);
  }   }
  if ( $showbutton ) {    if ( $showbutton ) {
     if ($target ne 'tex') {      if ($target ne 'tex') {
  $button =    $button = 
             '<input onmouseup="javascript:setSubmittedPart(\''.$id.'\');this.form.action+=\'#'.&escape($id).'\';"              '<input onmouseup="javascript:setSubmittedPart(\''.$id.'\');this.form.action+=\'#'.&escape($id).'\';"
                     type="submit" name="submit_'.$id.'"                      type="submit" name="submit_'.$id.'" id="submit_'.$id.'" class="LC_hwk_submit"
                     value="'.&mt('Submit Answer').'" />';                      value="'.&mt('Submit Answer').'" />&nbsp;'.
                       '<div id="msg_submit_'.$id.'" style="display:none">'.
                       &mt('Processing your submission ...').'</div>';
     }      }
  }   }
   
Line 1614  sub gradestatus { Line 1715  sub gradestatus {
     $output =      $output =
  '<table><tr><td>'.$button.'</td>'.$output;   '<table><tr><td>'.$button.'</td>'.$output;
     if (!$no_previous) {      if (!$no_previous) {
  $output.='<td>'.&previous_tries($id,$target).'</td>';   $output.='<td class="'.$tdclass.'">'.&previous_tries($id,$target).'</td>';
     }      }
     $output.= '</tr></table>';      $output.= '</tr></table>';
     return $output;      return $output;
Line 1629  sub previous_tries { Line 1730  sub previous_tries {
   
     my $count;      my $count;
     my %count_lookup;      my %count_lookup;
     my $lastrndseed;      my ($lastrndseed,$lasttype);
       my $numstamps = 0;
   
     foreach my $i (1..$Apache::lonhomework::history{'version'}) {      foreach my $i (1..$Apache::lonhomework::history{'version'}) {
  my $prefix = $i.":resource.$id";   my $prefix = $i.":resource.$id";
         my $is_anon;           my $is_anon;
           my $curr_type = $Apache::lonhomework::history{"$prefix.type"};    
         if (defined($env{'form.grade_symb'})) {          if (defined($env{'form.grade_symb'})) {
             if (($Apache::lonhomework::history{"$prefix.type"} eq 'anonsurvey') ||               if (($curr_type eq 'anonsurvey') || ($curr_type eq 'anonsurveycred')) {
                 ($Apache::lonhomework::history{"$prefix.type"} eq 'anonsurveycred')) {  
                 $is_anon = 1;                  $is_anon = 1;
             }              }
         }          }
Line 1675  sub previous_tries { Line 1777  sub previous_tries {
                              {$1 <strong>$txt_correct</strong>. $3}s;                               {$1 <strong>$txt_correct</strong>. $3}s;
     }      }
             my $trystr = "(".&mt('Try [_1]',$Apache::lonhomework::history{"$prefix.tries"}).")";              my $trystr = "(".&mt('Try [_1]',$Apache::lonhomework::history{"$prefix.tries"}).")";
             if (($curr_rndseed || $lastrndseed) && ($i > 1)) {              if (($curr_rndseed ne '') &&  ($lastrndseed ne '')) {
                 if ($curr_rndseed ne $lastrndseed) {                  if (($curr_rndseed ne $lastrndseed) && 
                       (($curr_type eq 'randomizetry') || ($lasttype eq 'randomizetry'))) {
                     $trystr .= '<br /><span style="color: green; white-space: nowrap; font-style: italic; font-weight: bold; font-size: 80%;">'.&mt('New problem variation this try.').'</span>';                      $trystr .= '<br /><span style="color: green; white-space: nowrap; font-style: italic; font-weight: bold; font-size: 80%;">'.&mt('New problem variation this try.').'</span>';
                 }                  }
             }               } 
Line 1686  sub previous_tries { Line 1789  sub previous_tries {
  $message =~ s{(<td.*?>)}{<td>};   $message =~ s{(<td.*?>)}{<td>};
   
   
  $output.='<tr class="'.$class.'">';   $output .= '<tr class="'.$class.'">'.
  $output.='<td align="center">'.$count.'</td>';             '<td align="center">'.$count.'</td>'.$message;
  $output.=$message;          if ((!$is_anon) && ($Apache::lonhomework::history{"$prefix.tries"}) &&
               ($Apache::lonhomework::history{"$prefix.award"} ne 'ASSIGNED_SCORE') &&
               ($Apache::lonhomework::history{$i.':timestamp'})) {
               $output .= '<td>'.&Apache::lonlocal::locallocaltime(
                                $Apache::lonhomework::history{$i.':timestamp'}).'</td>';
               $numstamps ++;
           } else {
               $output .= '<td></td>';
           }
  foreach my $resid (@Apache::inputtags::response) {   foreach my $resid (@Apache::inputtags::response) {
     my $prefix = $prefix.".$resid";      my $prefix = $prefix.".$resid";
     if (exists($Apache::lonhomework::history{"$prefix.submission"})) {      if (exists($Apache::lonhomework::history{"$prefix.submission"})) {
Line 1710  sub previous_tries { Line 1820  sub previous_tries {
  }   }
  $output.=&Apache::loncommon::end_data_table_row()."\n";   $output.=&Apache::loncommon::end_data_table_row()."\n";
         $lastrndseed = $curr_rndseed;          $lastrndseed = $curr_rndseed;
           $lasttype = $curr_type;
     }      }
     return if ($output eq '');      return if ($output eq '');
     my $headers =       my $headers = '<tr>'.
  '<tr>'.'<th>'.&mt('Submission #').'</th><th>'.&mt('Try').                    '<th>'.&mt('Submission #').'</th>'.
  '</th><th colspan="'.scalar(@Apache::inputtags::response).'">'.                    '<th>'.&mt('Try').'</th><th>';
  &mt('Submitted Answer').'</th>';      if ($numstamps) {
           $headers .= &mt('When');
       }
       $headers .= '</th>';
       my $colspan = scalar(@Apache::inputtags::response);
       if ($colspan > 1) {
           $headers .= '<th colspan="'.$colspan.'">';
       } else {
           $headers .= '<th>';
       }
       $headers .= &mt('Submitted Answer').'</th></tr>';
     $output ='<table class="LC_prior_tries">'.$headers.$output.'</table>';      $output ='<table class="LC_prior_tries">'.$headers.$output.'</table>';
   
     my $tries_text = &get_tries_text('link');      my $tries_text = &get_tries_text('link');
Line 1749  sub get_tries_text { Line 1870  sub get_tries_text {
     return $tries_text;      return $tries_text;
 }  }
   
   sub spelling_languages {
       my %langchoices;
       foreach my $id (&Apache::loncommon::languageids()) {
           my $code = &Apache::loncommon::supportedlanguagecode($id);
           if ($code ne '') {
               $langchoices{$code} =  &Apache::loncommon::plainlanguagedescription($id);
           }
       }
       my @spelllangs = ('none');
       foreach my $code ('en','de','he','es','fr','pt','tr') {
           push(@spelllangs,[$code,$langchoices{$code}]);
       }
       return \@spelllangs;
   }
   
 1;  1;
 __END__  __END__
   
Removed from v.1.312  
changed lines
  Added in v.1.333.2.1

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