loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.80, 2003/06/23 20:57:41	version 1.82, 2003/07/28 22:44:54
Line 93 sub setrandomnumber {	Line 93 sub setrandomnumber {
$rndmod+=&Apache::lonnet::numval($Apache::inputtags::response[-1]);	$rndmod+=&Apache::lonnet::numval($Apache::inputtags::response[-1]);
}	}
if ($rndseed =~/,/) {	if ($rndseed =~/,/) {
my ($num1,$num2)=split(/,/,$rndseed);	{
$num1+=$rndmod;	use integer;
$num2+=$rndmod;	my ($num1,$num2)=split(/,/,$rndseed);
$rndseed="$num1,$num2";	$num1+=$rndmod;
	$num2+=$rndmod;
	$rndseed="$num1,$num2";
	}
} else {	} else {
$rndseed+=$rndmod;	$rndseed+=$rndmod;
}	}
Line 378 sub answer_part {	Line 381 sub answer_part {
my ($type,$answer) = @_;	my ($type,$answer) = @_;
my $result;	my $result;
if ($ENV{'form.answer_output_mode'} eq 'tex') {	if ($ENV{'form.answer_output_mode'} eq 'tex') {
$result = ' '.$answer.'\\\\ \hline ';	$result = ' \verb\|'.$answer.'\|\\\\ \hline ';
} else {	} else {
$result = '<td>'.$answer.'</td>';	$result = '<td>'.$answer.'</td>';
}	}