--- loncom/homework/lonhomework.pm 2000/07/25 21:27:30 1.2
+++ loncom/homework/lonhomework.pm 2000/08/02 16:47:06 1.3
@@ -18,13 +18,18 @@ sub handler {
my $file = "/home/httpd/html".$request->uri;
my %mystyle;
&Apache::inputtags::initialize_inputtags;
- my $result = Apache::lonxml::xmlparse("web",'/home/httpd/html/res/103/albertel/default_homework'.&getfile($file),%mystyle);
+ my $result = Apache::lonxml::xmlparse("web",'/home/httpd/html/res/103/albertel/default_homework'.&setup_vars.&getfile($file),%mystyle);
#$request->print("Result follows:");
$request->print($result);
#$request->print(":Result ends");
&Apache::lonhomework::send_footer($request);
}
+sub setup_vars {
+ $Apache::lonhomework::target="web";
+ return '';
+}
+
sub send_header {
my ($request)= @_;
$request->print('');