[LON-CAPA-cvs] cvs: loncom(version_2_11_X) /homework radiobuttonresponse.pm

[raeburn]

raeburn		Sun Feb  3 22:02:22 2019 EDT

  Modified files:              (Branch: version_2_11_X)
    /loncom/homework	radiobuttonresponse.pm 
  Log:
  - For 2.11
    - Backport 1.161, 1.162.
  
  
Index: loncom/homework/radiobuttonresponse.pm
diff -u loncom/homework/radiobuttonresponse.pm:1.157.2.2 loncom/homework/radiobuttonresponse.pm:1.157.2.3
--- loncom/homework/radiobuttonresponse.pm:1.157.2.2	Wed Sep 14 18:18:51 2016
+++ loncom/homework/radiobuttonresponse.pm	Sun Feb  3 22:02:21 2019
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # mutliple choice style responses
 #
-# $Id: radiobuttonresponse.pm,v 1.157.2.2 2016/09/14 18:18:51 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
 #
@@ -1030,7 +1030,8 @@
 		. '} \hspace*{\fill} \\\\';
 	}
 	else {
-	    $result .= '\textbf{' . $Apache::lonxml::counter . '}.';
+	    $result .= '\textbf{' . $Apache::lonxml::counter . '}.'.
+                       '\hspace*{2 mm}';        
 	}
 	
 	# Now output the bubbles themselves:
@@ -1047,7 +1048,15 @@
 	    }
 	    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..