loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.112, 2004/07/06 14:53:00	version 1.114, 2004/07/12 16:19:48
Line 338 sub displayfoils {	Line 338 sub displayfoils {
my $lastopt=$lastresponse{$name};	my $lastopt=$lastresponse{$name};
if ($text!~/^\s*$/) { $break='<br />'; }	if ($text!~/^\s*$/) { $break='<br />'; }
$result.=$break;	$result.=$break;
if ($target eq 'web' \|\| $target eq 'tex') {	if ($target eq 'web') {
my $value=$Apache::response::foilgroup{$name.'.value'};	my $value=$Apache::response::foilgroup{$name.'.value'};
if (!($text=~s\|<drawoptionlist\s*/>\|$value\|)) {	if (!($text=~s\|<drawoptionlist\s*/>\|$value\|)) {
if ($text=~/^\s*$/) {	if ($text=~/^\s*$/) {
Line 603 sub end_foil {	Line 603 sub end_foil {
my $result = '';	my $result = '';
if ($target eq 'web' \|\| $target eq 'tex' \|\| $target eq 'analyze') {	if ($target eq 'web' \|\| $target eq 'tex' \|\| $target eq 'analyze') {
$text=&Apache::lonxml::endredirection;	$text=&Apache::lonxml::endredirection;
	if ($target eq 'tex') {$text=~s/\\strut\s\\\\\s\\strut/\\vskip 0 mm/;}
if (($target eq 'tex') and ($Apache::lonhomework::type ne 'exam') and ($text=~/\S/)) {$text = '\vspace*{-2 mm}\item '.$text;}	if (($target eq 'tex') and ($Apache::lonhomework::type ne 'exam') and ($text=~/\S/)) {$text = '\vspace*{-2 mm}\item '.$text;}
}	}
if ($target eq 'web' \|\| $target eq 'grade' \|\| $target eq 'answer'	if ($target eq 'web' \|\| $target eq 'grade' \|\| $target eq 'answer'