loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.164, 2010/04/27 14:11:17	version 1.165, 2010/08/02 10:52:54
Line 583 sub displayfoils {	Line 583 sub displayfoils {
}	}
}	}
if ($Apache::lonhomework::type eq 'exam') {	if ($Apache::lonhomework::type eq 'exam') {
$result.='\vskip -1 mm\noindent\begin{enumerate}\item[\textbf{'.	$result.='\vskip -1 mm\noindent';
$internal_counter.'}.]'.&bubbles(\@alphabet,\@opt).	$result.= '\textbf{'. $internal_counter.'}. \vskip -3mm'.&bubbles(\@alphabet,\@opt).
'\end{enumerate} \vskip -8 mm \strut ';	' \strut ';
$internal_counter++;	$internal_counter++;
}	}
if ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes'	if ($target eq 'tex' && $env{'form.pdfFormFields'} eq 'yes'
Line 692 sub bubbles {	Line 692 sub bubbles {

$current_length += (length($opt[$ind])+length($alphabet[$ind])+4)*2;	$current_length += (length($opt[$ind])+length($alphabet[$ind])+4)*2;
if ($current_length<($textwidth-$leftmargin) and $ind!=$number_of_bubbles) {	if ($current_length<($textwidth-$leftmargin) and $ind!=$number_of_bubbles) {
$line.='\hskip -1 mm {\small \textbf{'.$alphabet[$ind].'}}$\bigcirc$\hskip -1 mm & \hskip -3 mm {\small '.$opt[$ind].'} & ';	$line.='\hskip 1pc {\small \textbf{'.$alphabet[$ind].'}}$\bigcirc$\hskip -1 mm & \hskip -3 mm {\small '.$opt[$ind].'} & ';
$head.='lr';	$head.='lr';
} else {	} else {
$line=~s/\&\s*$//;	$line=~s/\&\s*$//;