loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.82, 2004/05/27 03:44:18	version 1.84, 2004/05/27 04:25:13
Line 69 sub caparesponse_check {	Line 69 sub caparesponse_check {
$answer=~s/ +/ /g;	$answer=~s/ +/ /g;
$response=~s/ +/ /g;	$response=~s/ +/ /g;
}	}
	if ($type eq 'float') { $response=~s/,//g; }
if (length($response) > 500) { return "TOO_LONG: Answer too long"; }	if (length($response) > 500) { return "TOO_LONG: Answer too long"; }

if ($type eq '' ) {	if ($type eq '' ) {
Line 241 sub random {	Line 242 sub random {
if ( ! $hidden::RANDOMINIT ) {	if ( ! $hidden::RANDOMINIT ) {
if ($external::randomseed == 0) { $external::randomseed=1; }	if ($external::randomseed == 0) { $external::randomseed=1; }
if ($external::randomseed =~/,/) {	if ($external::randomseed =~/,/) {
my ($num1,$num2)=split(/,/,$seed);	my ($num1,$num2)=split(/,/,$external::randomseed);
	&random_set_seed(1,abs($num1));
	} elsif ($external::randomseed =~/:/) {
	my ($num1,$num2)=split(/:/,$external::randomseed);
&random_set_seed(abs($num1),abs($num2));	&random_set_seed(abs($num1),abs($num2));
} else {	} else {
&random_set_seed(1,int(abs($external::randomseed)));	&random_set_seed(1,int(abs($external::randomseed)));