version 1.15, 2000/11/07 17:21:18
|
version 1.16, 2000/11/21 18:39:35
|
Line 10 use Apache::inputtags;
|
Line 10 use Apache::inputtags;
|
use Apache::structuretags; |
use Apache::structuretags; |
use Apache::response; |
use Apache::response; |
|
|
|
|
sub handler { |
sub handler { |
my $request=shift; |
my $request=shift; |
|
|
Line 28 sub handler {
|
Line 29 sub handler {
|
my %mystyle; |
my %mystyle; |
my $result = ''; |
my $result = ''; |
&Apache::inputtags::initialize_inputtags; |
&Apache::inputtags::initialize_inputtags; |
|
%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=(); } |
|
|
|
my $resultkey; |
|
foreach $resultkey (sort keys %Apache::lonhomework::history) { |
|
&Apache::lonxml::debug("$resultkey ---- $Apache::lonhomework::history{$resultkey}"); |
|
} |
|
&Apache::lonxml::debug("\n<br>restored values^</br>\n"); |
|
|
my $problem=&Apache::lonnet::getfile($file); |
my $problem=&Apache::lonnet::getfile($file); |
if ($problem == -1) { |
if ($problem == -1) { |
Line 45 sub handler {
|
Line 57 sub handler {
|
#$request->print("Result follows:"); |
#$request->print("Result follows:"); |
$request->print($result); |
$request->print($result); |
#$request->print(":Result ends"); |
#$request->print(":Result ends"); |
|
|
|
foreach $resultkey (sort keys %Apache::lonhomework::results) { |
|
&Apache::lonxml::debug("$resultkey ---- $Apache::lonhomework::results{$resultkey}"); |
|
} |
|
&Apache::lonxml::debug("\n<br>storing values^</br>\n"); |
|
|
&Apache::lonhomework::send_footer($request); |
&Apache::lonhomework::send_footer($request); |
|
($temp) = keys %Apache::lonhomework::results; |
|
if ( $temp ne '' ) { |
|
&Apache::lonxml::debug("Store return message:".&Apache::lonnet::cstore(%Apache::lonhomework::results)); |
|
} |
return 'OK'; |
return 'OK'; |
} |
} |
|
|
Line 53 sub get_target {
|
Line 75 sub get_target {
|
if ( $ENV{'request.state'} eq "published") { |
if ( $ENV{'request.state'} eq "published") { |
return 'web'; |
return 'web'; |
} elsif ($ENV{'request.state'} eq "construct") { |
} elsif ($ENV{'request.state'} eq "construct") { |
if ( defined $ENV{'form.'.$ENV{'form.request.prefix'}.'preview'}) { |
if ( defined $ENV{'form.preview'}) { |
return 'web'; |
return 'web'; |
} else { |
} else { |
return 'edit'; |
return 'edit'; |
Line 70 sub setup_vars {
|
Line 92 sub setup_vars {
|
sub send_header { |
sub send_header { |
my ($request)= @_; |
my ($request)= @_; |
$request->print(&Apache::lontexconvert::header()); |
$request->print(&Apache::lontexconvert::header()); |
$request->print('<form name='.$ENV{'form.request.prefix'}.'lonhomework method="POST" action="'.$request->uri.'">'); |
$ENV{'request.uri'}=$request->uri; |
|
# $request->print('<form name='.$ENV{'form.request.prefix'}.'lonhomework method="POST" action="'.$request->uri.'">'); |
} |
} |
|
|
sub send_footer { |
sub send_footer { |
my ($request)= @_; |
my ($request)= @_; |
$request->print('</form>'); |
# $request->print('</form>'); |
$request->print(&Apache::lontexconvert::footer()); |
$request->print(&Apache::lontexconvert::footer()); |
} |
} |
|
|