--- loncom/homework/lonhomework.pm 2000/07/25 17:45:40 1.1 +++ loncom/homework/lonhomework.pm 2000/12/12 22:35:52 1.20 @@ -1,26 +1,161 @@ # 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 check_date { + my ($type,$id) = @_; + my $date =''; + my $passed = ''; + &Apache::lonxml::debug("checking :$type: for part :$id:"); + if ($type eq 'OPEN_DATE') { + $date = &Apache::lonnet::EXT("resource.$id.opendate"); + } elsif ($type eq 'DUE_DATE') { + $date = &Apache::lonnet::EXT("resource.$id.duedate"); + } elsif ($type eq 'START_DATE') { + $date = &Apache::lonnet::EXT("resource.$id.duedate"); + } else { + &Apache::lonxml::error("Unknown date request $type"); + $date = ''; + } + &Apache::lonxml::debug("found :$date:"); + if ($date eq '') { + $date = "an unknown date"; $passed = 0; + } else { + if (time < $date) { $passed = 0; } else { $passed = 1; } + $date = localtime $date; + } + &Apache::lonxml::debug("sending back :$date:$passed:"); + return ($date,$passed); +} 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(' -