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

Diff for /loncom/homework/optionresponse.pm between versions 1.202 and 1.203

version 1.202, 2025/01/26 17:49:32 version 1.203, 2025/01/27 14:18:38
Line 798  sub displayfoils { Line 798  sub displayfoils {
                   $fieldname.'\'].checked) { this.form.elements[\'HWVAL_'.$fieldname.'\'].value=\''.$esccheckboxopt.'\'; } else { this.form.elements[\'HWVAL_'.$fieldname.'\'].value=\''.$escaltopt.'\'; };javascript:setSubmittedPart(\''.$part.'\');"'.($defopt eq $checkboxopt?' checked="checked"':'')." />\n";                    $fieldname.'\'].checked) { this.form.elements[\'HWVAL_'.$fieldname.'\'].value=\''.$esccheckboxopt.'\'; } else { this.form.elements[\'HWVAL_'.$fieldname.'\'].value=\''.$escaltopt.'\'; };javascript:setSubmittedPart(\''.$part.'\');"'.($defopt eq $checkboxopt?' checked="checked"':'')." />\n";
               } else {                } else {
 # classic selection list  # classic selection list
                   my $labeltext;            $optionlist='<label><select onchange="javascript:setSubmittedPart(\''.
                   if ($Apache::lonhomework::type ne 'exam') {  
                       $labeltext = $text;  
                       $labeltext =~s|<drawoptionlist\s*/>|$optionlist|;  
                   }  
                   $labeltext = &HTML::Entities::encode($labeltext,'\'"&<>');  
           $optionlist='<select onchange="javascript:setSubmittedPart(\''.  
   $part.'\');" name="HWVAL_'.    $part.'\');" name="HWVAL_'.
   $Apache::inputtags::response['-1'].':'.$temp.'" aria-label="'.$labeltext.'">'.    $Apache::inputtags::response['-1'].':'.$temp.'">'.
   $optionlist."</select>\n";    $optionlist."</select>\n";
               }                }
   } else {    } else {
Line 826  sub displayfoils { Line 820  sub displayfoils {
   $result.=$break.$text."\n";    $result.=$break.$text."\n";
   if ($Apache::lonhomework::type eq 'exam') {    if ($Apache::lonhomework::type eq 'exam') {
       $result.=&webbubbles(\@opt,\@alphabet,$temp,$lastopt);        $result.=&webbubbles(\@opt,\@alphabet,$temp,$lastopt);
   } elsif ($checkboxopt) {    } else {
       $result.= '</label>';        $result.= '</label>';
   }    }
   $temp++;    $temp++;
Removed from v.1.202  
changed lines
  Added in v.1.203

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