--- loncom/homework/lonhomework.pm 2000/07/25 17:45:40 1.1 +++ loncom/homework/lonhomework.pm 2000/12/08 20:53:45 1.19 @@ -1,26 +1,131 @@ # The LON-CAPA Homework handler # Guy Albertelli +# 11/30 Gerd Kortemeyer package Apache::lonhomework; use strict; use Apache::style; use Apache::lonxml; +use Apache::lonnet; +use Apache::inputtags; +use Apache::structuretags; +use Apache::response; + + +sub get_target { + if ( $ENV{'request.state'} eq "published") { + if ( defined $ENV{'form.submit'}) { + return ('grade', 'web'); + } else { + return ('web'); + } + } elsif ($ENV{'request.state'} eq "construct") { + if ( defined $ENV{'form.preview'}) { + if ( defined $ENV{'form.submit'}) { + return ('grade', 'web'); + } else { + return ('web'); + } + } else { + return ('edit'); + } + } + return (); +} + +sub setup_vars { + my ($target) = @_; + return ';' +# return ';$external::target='.$target.';'; +} + +sub send_header { + my ($request)= @_; + $request->print(&Apache::lontexconvert::header()); + $ENV{'request.uri'}=$request->uri; +# $request->print('
'); + $request->print(&Apache::lontexconvert::footer()); +} sub handler { - my $request=shift; + my $request=$_[0]; + +# if ( $ENV{'user.name'} eq 'albertel' ) { $Apache::lonxml::debug=1; } + + my (@targets) = &get_target(); - my @parsecontents; - { - my $fh=Apache::File->new($request->filename); - @parsecontents=<$fh>; + if ($ENV{'browser.mathml'}) { + $request->content_type('text/xml'); + } else { + $request->content_type('text/html'); } + $request->send_http_header; + return 'OK' if $request->header_only; - my $parsestring=join('',@parsecontents); + &Apache::lonhomework::send_header($request); - $request->content_type('text/html'); - $request->send_http_header; - $request->print(' -