--- loncom/homework/lonhomework.pm 2000/07/25 21:27:30 1.2 +++ loncom/homework/lonhomework.pm 2000/09/19 19:10:01 1.11 @@ -8,23 +8,37 @@ use Apache::lonxml; use Apache::lonnet; use Apache::inputtags; use Apache::structuretags; +use Apache::response; 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; - my $result = Apache::lonxml::xmlparse("web",'/home/httpd/html/res/103/albertel/default_homework'.&getfile($file),%mystyle); + $result = Apache::lonxml::xmlparse($target, &getfile($file), + &getfile('/home/httpd/html/res/adm/includes/default_homework').&setup_vars($target),%mystyle); #$request->print("Result follows:"); $request->print($result); #$request->print(":Result ends"); &Apache::lonhomework::send_footer($request); } +sub get_target { + return "web"; +} + +sub setup_vars { + my ($target) = @_; + return ';' +# return ';$external::target='.$target.';'; +} + sub send_header { my ($request)= @_; $request->print(''); @@ -40,7 +54,10 @@ sub send_footer { sub getfile { my ($filename) = @_; my $a=""; - &Apache::lonnet::repcopy($filename); + if (! -e $filename ) { + &Apache::lonnet::subscribe($filename); + &Apache::lonnet::repcopy($filename); + } { my $fh=Apache::File->new($filename);