version 1.4, 2000/08/07 21:26:21
|
version 1.5, 2000/08/08 19:14:53
|
Line 12 use Apache::structuretags;
|
Line 12 use Apache::structuretags;
|
sub handler { |
sub handler { |
my $request=shift; |
my $request=shift; |
|
|
|
my $target=&get_target(); |
$request->content_type('text/html'); |
$request->content_type('text/html'); |
$request->send_http_header; |
$request->send_http_header; |
&Apache::lonhomework::send_header($request); |
&Apache::lonhomework::send_header($request); |
my $file = "/home/httpd/html".$request->uri; |
my $file = "/home/httpd/html".$request->uri; |
my %mystyle; |
my %mystyle; |
|
my $result = ''; |
&Apache::inputtags::initialize_inputtags; |
&Apache::inputtags::initialize_inputtags; |
my $result = Apache::lonxml::xmlparse("web",'<scriptlib>/res/103/albertel/default_homework</scriptlib>'.&setup_vars.&getfile($file),%mystyle); |
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 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 get_target { |
|
return "edit"; |
|
} |
|
|
sub setup_vars { |
sub setup_vars { |
$Apache::lonhomework::target="web"; |
my ($target) = @_; |
return '<script>$external::target=web;</script>'; |
$Apache::lonhomework::target=$target; |
|
return '<script>$external::target='.$target.';</script>'; |
} |
} |
|
|
sub send_header { |
sub send_header { |