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