loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.65, 2002/12/02 17:06:08	version 1.66, 2003/01/13 21:24:39
Line 413 sub displayfoils {	Line 413 sub displayfoils {
}	}
if ($Apache::lonhomework::type eq 'exam') {	if ($Apache::lonhomework::type eq 'exam') {
$result.=&bubbles(\@alphabet,\@opt);	$result.=&bubbles(\@alphabet,\@opt);
	$result.='\vskip 2 mm ';
}	}
$displayoptionintex=1;	$displayoptionintex=1;
} else {	} else {
Line 433 sub displayfoils {	Line 434 sub displayfoils {
}	}
if ($Apache::lonhomework::type eq 'exam') {	if ($Apache::lonhomework::type eq 'exam') {
$result.=&bubbles(\@alphabet,\@opt);	$result.=&bubbles(\@alphabet,\@opt);
	$result.='\vskip 2 mm ';
}	}
}	}
}	}
Line 457 sub optionlist_correction {	Line 459 sub optionlist_correction {
$texoptionlist =~ s/>/\$>\$/g;	$texoptionlist =~ s/>/\$>\$/g;
$texoptionlist =~ s/</\$<\$/g;	$texoptionlist =~ s/</\$<\$/g;
$texoptionlist =~ s/=/\$=\$/g;	$texoptionlist =~ s/=/\$=\$/g;
	$texoptionlist =~ s/\^(\d+)/<m>\$$1\$<\/m>/g;
return $texoptionlist;	return $texoptionlist;
}	}