loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

Up to [LON-CAPA] / loncom / homework / caparesponse

Diff for /loncom/homework/caparesponse/caparesponse.pm between versions 1.52 and 1.53

version 1.52, 2002/04/11 19:48:16	version 1.53, 2002/08/26 19:44:33
Line 156 sub end_numericalresponse {	Line 156 sub end_numericalresponse {
$result='';	$result='';
}	}
}	}
} elsif ($target eq 'web') {	} elsif ($target eq 'web' \|\| $target eq 'tex') {
my $award = $Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"};	my $award = $Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"};
my $status = $Apache::inputtags::status['-1'];	my $status = $Apache::inputtags::status['-1'];
if ($award =~ /^correct/ \|\| $status eq "SHOW_ANSWER" ) {	if ($award =~ /^correct/ \|\| $status eq "SHOW_ANSWER" ) {
Line 166 sub end_numericalresponse {	Line 166 sub end_numericalresponse {
$safeeval);	$safeeval);
my $unit=&Apache::lonxml::get_param_var('unit',$parstack,$safeeval);	my $unit=&Apache::lonxml::get_param_var('unit',$parstack,$safeeval);

$result="<br />The computer got ";	if ($target eq 'web') {
	$result="<br />The computer got ";
	} elsif ($target eq 'tex') {
	$result='\vskip 0 mm The computer got ';
	}
for (my $i=0; $i <= $#answers; $i++) {	for (my $i=0; $i <= $#answers; $i++) {
my $answer=$answers[$i];	my $answer=$answers[$i];
my $format;	my $format;
Line 185 sub end_numericalresponse {	Line 188 sub end_numericalresponse {
}	}
}	}
chop $result;	chop $result;
$result.=" $unit.<br></br>";	if ($target eq 'web') {
	$result.=" $unit.<br></br>";
	} elsif ($target eq 'tex') {
	$result.=" $unit.\\vskip 0 mm ";
	}
}	}
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
$result.='</td></tr>'.&Apache::edit::end_table;	$result.='</td></tr>'.&Apache::edit::end_table;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.52
changed lines
	Added in v.1.53