Diff for /loncom/homework/default_homework.lcpm between versions 1.44 and 1.45

version 1.44, 2001/12/21 21:37:26 version 1.45, 2002/01/30 17:32:05
Line 101  sub caparesponse_check { Line 101  sub caparesponse_check {
     $sig_ubound =15; #SIG_UB_DEFAULT      $sig_ubound =15; #SIG_UB_DEFAULT
   } else {    } else {
     ($sig_lbound,$sig_ubound) = split /,/,$sig;      ($sig_lbound,$sig_ubound) = split /,/,$sig;
       if (!$sig_lbound) {
         $sig_lbound = 0; #SIG_LB_DEFAULT
         $sig_ubound =15; #SIG_UB_DEFAULT
       }
       if (!$sig_ubound) { $sig_ubound=$sig_lbound; }
   }    }
   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 238  sub random { Line 243  sub random {
     srand($external::randomseed);      srand($external::randomseed);
     $hidden::RANDOMINIT=1;      $hidden::RANDOMINIT=1;
   }    }
     if (!defined($step)) { $step=1; }
   my $num=1+int(($end-$start)/$step);    my $num=1+int(($end-$start)/$step);
   my $result=$start + int(rand() * $num)*$step;    my $result=$start + int(rand() * $num)*$step;
   return $result;    return $result;

Removed from v.1.44  
changed lines
  Added in v.1.45


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