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

Diff for /loncom/homework/inputtags.pm between versions 1.320 and 1.324

version 1.320, 2013/08/20 00:46:35 version 1.324, 2014/06/19 19:37:35
Line 222  sub start_textfield { Line 222  sub start_textfield {
                 $oldresponse = $Apache::lonhomework::history{"resource.$partid.$resid.submission"};                  $oldresponse = $Apache::lonhomework::history{"resource.$partid.$resid.submission"};
             } elsif (($Apache::lonhomework::history{"resource.$partid.type"} eq 'anonsurvey') ||              } elsif (($Apache::lonhomework::history{"resource.$partid.type"} eq 'anonsurvey') ||
                     ($Apache::lonhomework::history{"resource.$partid.type"} eq 'anonsurveycred')) {                      ($Apache::lonhomework::history{"resource.$partid.type"} eq 'anonsurveycred')) {
                 $oldresponse = '* '.&mt('only shown to submitter').' *';                  $oldresponse = '* '.&mt('(only shown to submitter)').' *';
             } else {              } else {
                 $oldresponse = $Apache::lonhomework::history{"resource.$partid.$resid.submission"};                  $oldresponse = $Apache::lonhomework::history{"resource.$partid.$resid.submission"};
             }              }
Line 238  sub start_textfield { Line 238  sub start_textfield {
     if ($addchars) {      if ($addchars) {
  $result.=&addchars($tagident, $addchars);   $result.=&addchars($tagident, $addchars);
     }      }
             my $textareaclass = 'class="LC_richDetectHtml spellchecked"';              my $textareaclass;
               unless (&Apache::londefdef::is_inside_of($tagstack,
                                                       'externalresponse')) {
                   $textareaclass = 'class="LC_richDetectHtml spellchecked"';
               }
     $result.= '<textarea wrap="hard" name="'.$tagident.'" id="'.$tagident.'" ' .      $result.= '<textarea wrap="hard" name="'.$tagident.'" id="'.$tagident.'" ' .
       'rows="'.$rows.'" cols="'.$cols.'" '.$textareaclass        'rows="'.$rows.'" cols="'.$cols.'" '.$textareaclass
       .'>'.        .'>'.
Line 254  sub start_textfield { Line 258  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 424  sub start_textline { Line 429  sub start_textline {
                         ($Apache::lonhomework::history{"resource.$partid.type"} eq 'anonsurveycred') ||                          ($Apache::lonhomework::history{"resource.$partid.type"} eq 'anonsurveycred') ||
                         ($Apache::lonhomework::type eq 'anonsurvey') ||                          ($Apache::lonhomework::type eq 'anonsurvey') ||
                         ($Apache::lonhomework::type eq 'anonsurveycred')) {                          ($Apache::lonhomework::type eq 'anonsurveycred')) {
                         $oldresponse = '* '.&mt('only shown to submitter').' *';                          $oldresponse = '* '.&mt('(only shown to submitter)').' *';
                 } else {                  } else {
                     $oldresponse = $Apache::lonhomework::history{"resource.$partid.$id.submission"};                      $oldresponse = $Apache::lonhomework::history{"resource.$partid.$id.submission"};
                 }                  }
Line 1137  sub decideoutput { Line 1142  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') {
Removed from v.1.320  
changed lines
  Added in v.1.324

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