loncom/homework/radiobuttonresponse.pm - diff

Return to radiobuttonresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.106, 2006/03/27 21:18:16	version 1.107, 2006/11/27 11:42:40
Line 32 use HTML::Entities();	Line 32 use HTML::Entities();
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonnet;	use Apache::lonnet;

	my $exam_max_bubbles = 10;

BEGIN {	BEGIN {
&Apache::lonxml::register('Apache::radiobuttonresponse',('radiobuttonresponse'));	&Apache::lonxml::register('Apache::radiobuttonresponse',('radiobuttonresponse'));
}	}
Line 490 sub displayfoils {	Line 492 sub displayfoils {
$result .= '>'.$Apache::response::foilgroup{$name.'.text'}."</label>";	$result .= '>'.$Apache::response::foilgroup{$name.'.text'}."</label>";
} else {	} else {
if ($Apache::lonhomework::type eq 'exam') {	if ($Apache::lonhomework::type eq 'exam') {

	# If necessary, start a new group of bubbles
	# in the next row on the scantron sheet:
	#
	if ($i >= $exam_max_bubbles) {
	$i = 0; # Back to A.
	$Apache::lonxml::counter++; # Next row of bubbles...
	$result .= '\item[\textbf{'.$Apache::lonxml::counter.'}.]';
	}

$result .= '{\small \textbf{'.$alphabet[$i].'}}$\bigcirc$'.$Apache::response::foilgroup{$name.'.text'}.'\\\\'; #' stupid emacs	$result .= '{\small \textbf{'.$alphabet[$i].'}}$\bigcirc$'.$Apache::response::foilgroup{$name.'.text'}.'\\\\'; #' stupid emacs
$i++;	$i++;

} else {	} else {
$result .= '\vspace*{-2 mm}\item '.$Apache::response::foilgroup{$name.'.text'};	$result .= '\vspace*{-2 mm}\item '.$Apache::response::foilgroup{$name.'.text'};
}	}