# The LON-CAPA Homework handler
# Guy Albertelli
package Apache::lonhomework;
use strict;
use Apache::style;
use Apache::lonxml;
sub handler {
my $request=shift;
my @parsecontents;
{
my $fh=Apache::File->new($request->filename);
@parsecontents=<$fh>;
}
my $parsestring=join('',@parsecontents);
$request->content_type('text/html');
$request->send_http_header;
$request->print('<html>
<form method="post" action="'.$request->uri.'"<input type="hidden" name="TARGET" value="edit"><input type="submit" value="Submit">');
}
1;
__END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>