version 1.101, 2002/11/12 05:05:26
|
version 1.102, 2002/11/13 23:05:46
|
Line 332 sub analyze {
|
Line 332 sub analyze {
|
my %overall; |
my %overall; |
my %allparts; |
my %allparts; |
my $rndseed=$ENV{'form.rndseed'}; |
my $rndseed=$ENV{'form.rndseed'}; |
srand($rndseed); |
|
&analyze_header($request); |
&analyze_header($request); |
for(my $i;$i<$ENV{'form.numtoanalyze'};$i++) { |
for(my $i=1;$i<$ENV{'form.numtoanalyze'}+1;$i++) { |
my $subresult=&Apache::lonnet::ssi($request->uri, |
my $subresult=&Apache::lonnet::ssi($request->uri, |
('grade_target' => 'analyze'), |
('grade_target' => 'analyze'), |
('rndseed' => rand)); |
('rndseed' => $i)); |
#&Apache::lonxml::debug(":$subresult:"); |
&Apache::lonxml::debug(":$subresult:"); |
(my $garbage,$subresult)=split(/_HASH_REF__/,$subresult,2); |
(my $garbage,$subresult)=split(/_HASH_REF__/,$subresult,2); |
my %analyze=&Apache::lonnet::str2hash($subresult); |
my %analyze=&Apache::lonnet::str2hash($subresult); |
&Apache::lonhomework::showhash(%analyze); |
&Apache::lonhomework::showhash(%analyze); |