--- loncom/homework/lonhomework.pm 2000/07/25 17:45:40 1.1 +++ loncom/homework/lonhomework.pm 2000/10/11 21:02:13 1.14 @@ -5,22 +5,87 @@ package Apache::lonhomework; use strict; use Apache::style; use Apache::lonxml; +use Apache::lonnet; +use Apache::inputtags; +use Apache::structuretags; +use Apache::response; sub handler { my $request=shift; - my @parsecontents; - { - my $fh=Apache::File->new($request->filename); - @parsecontents=<$fh>; + my $target=&get_target(); + $Apache::lonxml::debug=1; + if ($ENV{'browser.mathml'}) { + $request->content_type('text/xml'); + } else { + $request->content_type('text/html'); } - - my $parsestring=join('',@parsecontents); - - $request->content_type('text/html'); $request->send_http_header; - $request->print(' -
'); + $request->print(&Apache::lontexconvert::footer()); +} + +sub getfile { + my ($filename) = @_; + my $a=""; + if (! -e $filename ) { + &Apache::lonnet::subscribe($filename); + &Apache::lonnet::repcopy($filename); + } + { + my $fh=Apache::File->new($filename); + + while (<$fh>) { + $a .=$_; + } + } + return $a } 1;