version 1.56, 2001/08/18 14:59:38
|
version 1.61, 2001/10/31 17:44:42
|
Line 10 use Apache::lonxml;
|
Line 10 use Apache::lonxml;
|
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::inputtags; |
use Apache::inputtags; |
use Apache::structuretags; |
use Apache::structuretags; |
|
use Apache::randomlabel; |
use Apache::response; |
use Apache::response; |
use Apache::hint; |
use Apache::hint; |
use Apache::outputtags; |
use Apache::outputtags; |
Line 37 sub get_target {
|
Line 38 sub get_target {
|
} else { |
} else { |
if ( $ENV{'form.problemmode'} eq 'View' ) { |
if ( $ENV{'form.problemmode'} eq 'View' ) { |
if ( defined $ENV{'form.submitted'}) { |
if ( defined $ENV{'form.submitted'}) { |
return ('grade', 'web'); |
return ('grade', 'web','answer'); |
} else { |
} else { |
return ('web'); |
return ('web','answer'); |
} |
} |
} elsif ( $ENV{'form.problemmode'} eq 'Edit' ) { |
} elsif ( $ENV{'form.problemmode'} eq 'Edit' ) { |
if ( $ENV{'form.submitted'} eq 'edit' ) { |
if ( $ENV{'form.submitted'} eq 'edit' ) { |
Line 175 sub setupheader {
|
Line 176 sub setupheader {
|
} else { |
} else { |
$request->content_type('text/html'); |
$request->content_type('text/html'); |
} |
} |
|
&Apache::loncommon::no_cache($request); |
$request->send_http_header; |
$request->send_http_header; |
return OK if $request->header_only; |
return OK if $request->header_only; |
return '' |
return '' |
Line 225 sub renderpage {
|
Line 227 sub renderpage {
|
my $result = ''; |
my $result = ''; |
&Apache::inputtags::initialize_inputtags; |
&Apache::inputtags::initialize_inputtags; |
&Apache::edit::initialize_edit; |
&Apache::edit::initialize_edit; |
%Apache::lonhomework::results=(); |
|
%Apache::lonhomework::history=&Apache::lonnet::restore(); |
|
#ignore error conditions |
|
my ($temp)=keys %Apache::lonhomework::history ; |
|
if ($temp =~ m/^error:.*/) { %Apache::lonhomework::history=(); } |
|
if ($target eq 'web') { |
if ($target eq 'web') { |
if (&Apache::lonnet::symbread() eq '') { |
if (&Apache::lonnet::symbread() eq '') { |
if ($ENV{'request.state'} eq "construct") { |
if ($ENV{'request.state'} eq "construct") { |
$request->print("In construction space, submissions ignored<br />"); |
|
} else { |
} else { |
$request->print("Browsing or <a href=\"/adm/ambiguous\">ambiguous</a> reference, submissions ignored<br />"); |
$request->print("Browsing or <a href=\"/adm/ambiguous\">ambiguous</a> reference, submissions ignored<br />"); |
} |
} |
Line 262 sub renderpage {
|
Line 258 sub renderpage {
|
$request->print($result); |
$request->print($result); |
} |
} |
#$request->print(":Result ends"); |
#$request->print(":Result ends"); |
if ($target eq 'grade') { &showhash(%Apache::lonhomework::results); } |
|
|
|
#store new values |
|
my ($temp) = keys %Apache::lonhomework::results; |
|
if ( $temp ne '' ) { |
|
&Apache::lonxml::debug("Store return message:". |
|
&Apache::lonnet::cstore(\%Apache::lonhomework::results)); |
|
} |
|
#my $td=&tv_interval($t0); |
#my $td=&tv_interval($t0); |
} |
} |
} |
} |