# The LON-CAPA Homework handler
# Guy Albertelli
package Apache::lonhomework;
use strict;
use Apache::style;
use Apache::lonxml;
use Apache::lonnet;
use Apache::inputtags;
use Apache::structuretags;
sub handler {
my $request=shift;
my $target=&get_target();
$request->content_type('text/html');
$request->send_http_header;
&Apache::lonhomework::send_header($request);
my $file = "/home/httpd/html".$request->uri;
my %mystyle;
my $result = '';
&Apache::inputtags::initialize_inputtags;
if ($target eq "web") {
$result = Apache::lonxml::xmlparse($target,'<scriptlib>/res/103/albertel/default_homework</scriptlib>'.&setup_vars($target).&getfile($file),%mystyle);
} else {
$result = Apache::lonxml::xmlparse($target,&getfile($file),%mystyle);
}
#$request->print("Result follows:");
$request->print($result);
#$request->print(":Result ends");
&Apache::lonhomework::send_footer($request);
}
sub get_target {
return "edit";
}
sub setup_vars {
my ($target) = @_;
$Apache::lonhomework::target=$target;
return '<script>$external::target='.$target.';</script>';
}
sub send_header {
my ($request)= @_;
$request->print('<html>');
$request->print('<form method="POST" action="'.$request->uri.'">');
}
sub send_footer {
my ($request)= @_;
$request->print('</form>');
$request->print('</html>');
}
sub getfile {
my ($filename) = @_;
my $a="";
&Apache::lonnet::repcopy($filename);
{
my $fh=Apache::File->new($filename);
while (<$fh>) {
$a .=$_;
}
}
return $a
}
1;
__END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>