loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.133, 2003/06/06 04:22:46	version 1.134, 2003/06/13 20:50:57
Line 417 sub analyze {	Line 417 sub analyze {
}	}
&Apache::lonhtmlcommon::Update_PrgWin($request,\%prog_state,	&Apache::lonhtmlcommon::Update_PrgWin($request,\%prog_state,
'Analyzing Results');	'Analyzing Results');
foreach my $part (keys(%allparts)) {	foreach my $part (sort(keys(%allparts))) {
if (defined(@{ $overall{$part.'.answer'} })) {	if (defined(@{ $overall{$part.'.answer'} })) {
my $num_cols=scalar(@{ $overall{$part.'.answer'}->[0] });	my $num_cols=scalar(@{ $overall{$part.'.answer'}->[0] });
$request->print('<table><tr><td colspan="'.($num_cols+1).'">Part '.$part.'</td></tr>');	$request->print('<table><tr><td colspan="'.($num_cols+1).'">Part '.$part.'</td></tr>');