loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.334, 2011/12/20 22:46:06	version 1.335, 2011/12/21 21:25:36
Line 779 sub analyze {	Line 779 sub analyze {
my $rndseed=$env{'form.rndseed'};	my $rndseed=$env{'form.rndseed'};
&analyze_header($request);	&analyze_header($request);
my %prog_state=	my %prog_state=
&Apache::lonhtmlcommon::Create_PrgWin($request,&mt('Analyze Progress'),	&Apache::lonhtmlcommon::Create_PrgWin($request,$env{'form.numtoanalyze'});
&mt('Getting Problem Variants'),
$env{'form.numtoanalyze'},
'inline',undef);
for(my $i=1;$i<$env{'form.numtoanalyze'}+1;$i++) {	for(my $i=1;$i<$env{'form.numtoanalyze'}+1;$i++) {
&Apache::lonhtmlcommon::Increment_PrgWin($request,\%prog_state,	&Apache::lonhtmlcommon::Increment_PrgWin($request,\%prog_state,'last problem');
&mt('last problem'));
if (&Apache::loncommon::connection_aborted($request)) { return; }	if (&Apache::loncommon::connection_aborted($request)) { return; }
my $thisseed=$i+$rndseed;	my $thisseed=$i+$rndseed;
my $subresult=&Apache::lonnet::ssi($request->uri,	my $subresult=&Apache::lonnet::ssi($request->uri,
Line 827 sub analyze {	Line 823 sub analyze {
}	}
}	}
}	}
&Apache::lonhtmlcommon::Update_PrgWin($request,\%prog_state,	&Apache::lonhtmlcommon::Update_PrgWin($request,\%prog_state,&mt('Analyzing Results'));
&mt('Analyzing Results'));
$request->print('<hr />'	$request->print('<hr />'
.'<h3>'	.'<h3>'
.&mt('List of possible answers')	.&mt('List of possible answers')