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.135, 2003/06/16 21:32:43
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>');
Line 677 sub handler {	Line 677 sub handler {
}	}
if ($ENV{'request.state'} eq "construct") {	if ($ENV{'request.state'} eq "construct") {
if ( -e $file ) {	if ( -e $file ) {
	&Apache::loncommon::get_unprocessed_cgi
	($ENV{'QUERY_STRING'},['problemmode']);
if (!(defined $ENV{'form.problemmode'})) {	if (!(defined $ENV{'form.problemmode'})) {
#first visit to problem in construction space	#first visit to problem in construction space
#&view_or_edit_menu($request);	#&view_or_edit_menu($request);