loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

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);