1: # The LON-CAPA Homework handler
2: # Guy Albertelli
3:
4: package Apache::lonhomework;
5: use strict;
6: use Apache::style;
7: use Apache::lonxml;
8:
9: sub handler {
10: my $request=shift;
11:
12: my @parsecontents;
13: {
14: my $fh=Apache::File->new($request->filename);
15: @parsecontents=<$fh>;
16: }
17:
18: my $parsestring=join('',@parsecontents);
19:
20: $request->content_type('text/html');
21: $request->send_http_header;
22: $request->print('<html>
23: <form method="post" action="'.$request->uri.'"<input type="hidden" name="TARGET" value="edit"><input type="submit" value="Submit">');
24: }
25:
26: 1;
27: __END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>