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