loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.83, 2004/05/27 03:46:02	version 1.85, 2004/06/04 22:56:46
Line 106 sub caparesponse_check {	Line 106 sub caparesponse_check {
}	}
}	}

if ($sig eq '') {	($sig_ubound,$sig_lbound)=&LONCAPA_INTERNAL_get_sigrange($sig);
$sig_lbound = 0; #SIG_LB_DEFAULT
$sig_ubound =15; #SIG_UB_DEFAULT
} else {
($sig_lbound,$sig_ubound) = split /,/,$sig;
if (!defined($sig_lbound)) {
$sig_lbound = 0; #SIG_LB_DEFAULT
$sig_ubound =15; #SIG_UB_DEFAULT
}
if (!defined($sig_ubound)) { $sig_ubound=$sig_lbound; }
}
my $reterror="";	my $reterror="";
my $result = &caparesponse_capa_check_answer($response,$answer,$type,	my $result = &caparesponse_capa_check_answer($response,$answer,$type,
$tol_type,$tol,	$tol_type,$tol,
Line 242 sub random {	Line 233 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)));