[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.13 and 1.333.2.15

version 1.333.2.13, 2023/02/05 00:17:42 version 1.333.2.15, 2024/07/01 23:09:00
Line 450  sub start_textline { Line 450  sub start_textline {
  if ($addchars) {   if ($addchars) {
     $result.=&addchars('HWVAL_'.$id,$addchars);      $result.=&addchars('HWVAL_'.$id,$addchars);
  }   }
                   my $numrespclass;
  my $readonly=&Apache::lonxml::get_param('readonly',$parstack,   my $readonly=&Apache::lonxml::get_param('readonly',$parstack,
  $safeeval);   $safeeval);
  if (lc($readonly) eq 'yes'    if (lc($readonly) eq 'yes' 
Line 457  sub start_textline { Line 458  sub start_textline {
     $readonly=' readonly="readonly" ';      $readonly=' readonly="readonly" ';
  } else {   } else {
     $readonly='';      $readonly='';
                       if (($Apache::inputtags::status['-1'] eq 'CAN_ANSWER') &&
                           ($tagstack->[-2] eq 'numericalresponse')) {
                           $numrespclass = ' LC_numresponse_text';
                       }
  }   }
  my $name = 'HWVAL_'.$id;   my $name = 'HWVAL_'.$id;
                 my $itemid = 'HWVAL_'.$partid.'_'.$id;                  my $itemid = 'HWVAL_'.$partid.'_'.$id;
Line 469  sub start_textline { Line 474  sub start_textline {
      . ' type="text" '.$readonly.' name="'. $name . '"'       . ' type="text" '.$readonly.' name="'. $name . '"'
      . ' id="' . $input_tag_id . '"'       . ' id="' . $input_tag_id . '"'
      . ' value="'.  $oldresponse.'"'       . ' value="'.  $oldresponse.'"'
      . ' class="LC_textline spellchecked"  size="'.$size.'"'.$maxlength.' />';       . ' class="LC_textline spellchecked'.$numrespclass.'" size="'.$size.'"'.$maxlength.' />';
   
  $result .= &spellcheck_onblur($itemid, $spellcheck);   $result .= &spellcheck_onblur($itemid, $spellcheck);
                 if (($Apache::inputtags::status['-1'] eq 'CAN_ANSWER') &&                  if (($Apache::inputtags::status['-1'] eq 'CAN_ANSWER') &&
Line 658  sub file_selector { Line 663  sub file_selector {
     $result .= &Apache::lonhtmlcommon::row_title($addfiles);      $result .= &Apache::lonhtmlcommon::row_title($addfiles);
     my $constraints;      my $constraints;
     if ($uploadedfiletypes ne '*') {      if ($uploadedfiletypes ne '*') {
           my $showtypes = $uploadedfiletypes;
           if ($showtypes =~ /,/) {
               my $conjunc = &mt('or');
               $showtypes =~ s/,([^,]+)$/ $conjunc $1/;
           }
  $constraints =   $constraints =
     &mt('Allowed filetypes: [_1]','<b>'.$uploadedfiletypes.'</b>').'<br />';      &mt('Allowed filetypes: [_1]','<b>'.$showtypes.'</b>').'<br />';
     }      }
     if ($maxfilesize) {      if ($maxfilesize) {
         $constraints .= &mt('Combined size of all files not to exceed: [_1] MB.',          $constraints .= &mt('Combined size of all files not to exceed: [_1] MB.',
Removed from v.1.333.2.13  
changed lines
  Added in v.1.333.2.15

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