[BACK]Return to response.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/response.pm between versions 1.126 and 1.127

version 1.126, 2005/11/01 21:33:49 version 1.127, 2005/11/03 23:00:53
Line 94  sub pushrandomnumber { Line 94  sub pushrandomnumber {
  # do nothing   # do nothing
     } else {      } else {
  my @seed=&Math::Random::random_get_seed();   my @seed=&Math::Random::random_get_seed();
  push (@randomseeds,\@seed);   push(@randomseeds,\@seed);
     }      }
     &Apache::response::setrandomnumber();      &Apache::response::setrandomnumber(@_);
 }  }
 sub poprandomnumber {  sub poprandomnumber {
     my $rand_alg=&Apache::lonnet::get_rand_alg();      my $rand_alg=&Apache::lonnet::get_rand_alg();
Line 113  sub poprandomnumber { Line 113  sub poprandomnumber {
 }  }
   
 sub setrandomnumber {  sub setrandomnumber {
       my ($ignore_id2) = @_;
     my $rndseed;      my $rndseed;
     $rndseed=&Apache::structuretags::setup_rndseed();      $rndseed=&Apache::structuretags::setup_rndseed();
     if (!defined($rndseed)) { $rndseed=&Apache::lonnet::rndseed(); }      if (!defined($rndseed)) { $rndseed=&Apache::lonnet::rndseed(); }
Line 130  sub setrandomnumber { Line 131  sub setrandomnumber {
  $shift_amt=scalar(@Apache::inputtags::responselist);   $shift_amt=scalar(@Apache::inputtags::responselist);
     } elsif ($Apache::lonhomework::parsing_a_task) {      } elsif ($Apache::lonhomework::parsing_a_task) {
  $id1=$Apache::bridgetask::dimension;   $id1=$Apache::bridgetask::dimension;
  if (defined($Apache::bridgetask::instance[-1])) {   if (!$ignore_id2 && defined($Apache::bridgetask::instance[-1])) {
     $id2=$Apache::bridgetask::instance[-1];      $id2=$Apache::bridgetask::instance[-1];
  }   }
  Apache->request->print("<p> $id1 $id2</p>");  
  $shift_amt=scalar(@Apache::bridgetask::instance);   $shift_amt=scalar(@Apache::bridgetask::instance);
     }       } 
     &Apache::lonxml::debug("id1: $id1, id2: $id2, shift_amt: $shift_amt");      &Apache::lonxml::debug("id1: $id1, id2: $id2, shift_amt: $shift_amt");
Line 152  sub setrandomnumber { Line 152  sub setrandomnumber {
  }   }
     } else {      } else {
  ($rndmod,$rndmod2)=&Apache::lonnet::digest("$id1,$id2");   ($rndmod,$rndmod2)=&Apache::lonnet::digest("$id1,$id2");
   
     }      }
   
     if ($rndseed =~/([,:])/) {      if ($rndseed =~/([,:])/) {
  my $char=$1;   my $char=$1;
  use integer;   use integer;
Removed from v.1.126  
changed lines
  Added in v.1.127

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