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

Diff for /loncom/homework/radiobuttonresponse.pm between versions 1.157.2.3 and 1.158

version 1.157.2.3, 2019/02/03 22:02:21 version 1.158, 2015/01/19 15:35:53
Line 825  sub html_radiobutton { Line 825  sub html_radiobutton {
   
     my $result='<label>';      my $result='<label>';
           
     $result .= '<input type="radio" '      $result .= '<input type="radio"
  . 'onchange="javascript:setSubmittedPart(' . "'$part');\" "                  onchange="javascript:setSubmittedPart(' . "'$part');\""
  . 'name="HWVAL_' . $fieldname . '" '   . 'name="HWVAL_' . $fieldname . '"'
  . 'value="'.$value.'"';   . "value='$value'";
   
     if (defined($last_responses->{$name})) {      if (defined($last_responses->{$name})) {
  $result .= '  checked="checked" ';   $result .= '  checked="checked" ';
Line 1030  sub display_latex_exam { Line 1030  sub display_latex_exam {
  . '} \hspace*{\fill} \\\\';   . '} \hspace*{\fill} \\\\';
  }   }
  else {   else {
     $result .= '\textbf{' . $Apache::lonxml::counter . '}.'.      $result .= '\textbf{' . $Apache::lonxml::counter . '}.';
                        '\hspace*{2 mm}';          
  }   }
   
  # Now output the bubbles themselves:   # Now output the bubbles themselves:
Line 1048  sub display_latex_exam { Line 1047  sub display_latex_exam {
     }      }
     my $preindent;      my $preindent;
     if ($bubble_number > 0) {      if ($bubble_number > 0) {
                 my $offset = 5;   $preindent = '\hspace*{3 mm}';
                 if ($Apache::lonxml::counter) {  
                     if ($identifier) {  
                         $offset += 2 * (length($identifier)-1);  
                     } else {  
                         $offset += 2 * (length($Apache::lonxml::counter)-1);  
                     }  
                 }  
                 $preindent = '\hspace*{'.$offset.' mm}';  
     }      }
     my $foiltext = $Apache::response::foilgroup{$name . '.text'};      my $foiltext = $Apache::response::foilgroup{$name . '.text'};
     $foiltext =~ s/\\noindent//; # forgive me for I have sinned..      $foiltext =~ s/\\noindent//; # forgive me for I have sinned..
Removed from v.1.157.2.3  
changed lines
  Added in v.1.158

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