--- loncom/homework/radiobuttonresponse.pm	2013/04/30 03:03:34	1.157
+++ loncom/homework/radiobuttonresponse.pm	2019/02/03 22:02:21	1.157.2.3
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # mutliple choice style responses
 #
-# $Id: radiobuttonresponse.pm,v 1.157 2013/04/30 03:03:34 raeburn Exp $
+# $Id: radiobuttonresponse.pm,v 1.157.2.3 2019/02/03 22:02:21 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -80,7 +80,8 @@ sub start_radiobuttonresponse {
 	$result=&Apache::response::meta_package_write('radiobuttonresponse');
     } elsif ($target eq 'edit' ) {
 	$result.=&Apache::edit::start_table($token)
-           .'<tr><td>'.&Apache::lonxml::description($token)
+           .'<tr><td>'.&Apache::loncommon::insert_folding_button()
+           .&Apache::lonxml::description($token)
            .&Apache::loncommon::help_open_topic('Radio_Response_Problems')
            .'</td>'
            .'<td><span class="LC_nobreak">'.&mt('Delete?').' '
@@ -824,10 +825,10 @@ sub html_radiobutton {
 
     my $result='<label>';
     
-    $result .= '<input type="radio"
-                onchange="javascript:setSubmittedPart(' . "'$part');\""
-		. 'name="HWVAL_' . $fieldname . '"'
-		. "value='$value'";
+    $result .= '<input type="radio" '
+		. 'onchange="javascript:setSubmittedPart(' . "'$part');\" "
+		. 'name="HWVAL_' . $fieldname . '" '
+		. 'value="'.$value.'"';
 
     if (defined($last_responses->{$name})) {
 	$result .= '  checked="checked" ';
@@ -1029,7 +1030,8 @@ sub display_latex_exam {
 		. '} \hspace*{\fill} \\\\';
 	}
 	else {
-	    $result .= '\textbf{' . $Apache::lonxml::counter . '}.';
+	    $result .= '\textbf{' . $Apache::lonxml::counter . '}.'.
+                       '\hspace*{2 mm}';        
 	}
 	
 	# Now output the bubbles themselves:
@@ -1046,7 +1048,15 @@ sub display_latex_exam {
 	    }
 	    my $preindent;
 	    if ($bubble_number > 0) {
-		$preindent = '\hspace*{3 mm}';
+                my $offset = 5;
+                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'};
 	    $foiltext =~ s/\\noindent//; # forgive me for I have sinned..