--- loncom/homework/lonhomework.pm 2000/08/08 19:14:53 1.5
+++ loncom/homework/lonhomework.pm 2000/08/11 14:25:24 1.6
@@ -20,11 +20,8 @@ sub handler {
my %mystyle;
my $result = '';
&Apache::inputtags::initialize_inputtags;
- if ($target eq "web") {
- $result = Apache::lonxml::xmlparse($target,'/res/103/albertel/default_homework'.&setup_vars($target).&getfile($file),%mystyle);
- } else {
- $result = Apache::lonxml::xmlparse($target,&getfile($file),%mystyle);
- }
+ $result = Apache::lonxml::xmlparse($target, &getfile($file),
+ &getfile('/home/httpd/html/res/103/albertel/default_homework').&setup_vars($target),%mystyle);
#$request->print("Result follows:");
$request->print($result);
#$request->print(":Result ends");
@@ -32,13 +29,12 @@ sub handler {
}
sub get_target {
- return "edit";
+ return "web";
}
sub setup_vars {
my ($target) = @_;
- $Apache::lonhomework::target=$target;
- return '';
+ return ';$external::target='.$target.';';
}
sub send_header {