--- loncom/homework/lonhomework.pm 2000/10/11 21:02:13 1.14
+++ loncom/homework/lonhomework.pm 2000/11/21 18:39:35 1.16
@@ -10,9 +10,10 @@ use Apache::inputtags;
use Apache::structuretags;
use Apache::response;
+
sub handler {
my $request=shift;
-
+
my $target=&get_target();
$Apache::lonxml::debug=1;
if ($ENV{'browser.mathml'}) {
@@ -24,10 +25,21 @@ sub handler {
return 'OK' if $request->header_only;
&Apache::lonhomework::send_header($request);
- my $file = "/home/httpd/html".$request->uri;
+ my $file = &Apache::lonnet::filelocation("",$request->uri);
my %mystyle;
my $result = '';
&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
restored values^\n");
my $problem=&Apache::lonnet::getfile($file);
if ($problem == -1) {
@@ -45,12 +57,30 @@ sub handler {
#$request->print("Result follows:");
$request->print($result);
#$request->print(":Result ends");
+
+ foreach $resultkey (sort keys %Apache::lonhomework::results) {
+ &Apache::lonxml::debug("$resultkey ---- $Apache::lonhomework::results{$resultkey}");
+ }
+ &Apache::lonxml::debug("\n
storing values^\n");
+
&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';
}
sub get_target {
- return "web";
+ if ( $ENV{'request.state'} eq "published") {
+ return 'web';
+ } elsif ($ENV{'request.state'} eq "construct") {
+ if ( defined $ENV{'form.preview'}) {
+ return 'web';
+ } else {
+ return 'edit';
+ }
+ }
}
sub setup_vars {
@@ -62,16 +92,17 @@ sub setup_vars {
sub send_header {
my ($request)= @_;
$request->print(&Apache::lontexconvert::header());
- $request->print('