loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.132, 2003/05/23 06:45:45	version 1.134, 2003/06/13 20:50:57
Line 225 sub check_access {	Line 225 sub check_access {
}	}
}	}

if (($status ne 'CLOSED') && ($Apache::lonhomework::type eq 'exam') &&	#if (($status ne 'CLOSED') && ($Apache::lonhomework::type eq 'exam') &&
(!$Apache::lonhomework::history{"resource.0.outtoken"})) {	# (!$Apache::lonhomework::history{"resource.0.outtoken"})) {
return ('UNCHECKEDOUT','needs to be checked out');	# return ('UNCHECKEDOUT','needs to be checked out');
}	#}


&Apache::lonxml::debug("sending back :$status:$datemsg:");	&Apache::lonxml::debug("sending back :$status:$datemsg:");
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>');