version 1.9, 2000/09/14 20:55:42
|
version 1.13, 2000/10/05 19:25:38
|
Line 14 sub handler {
|
Line 14 sub handler {
|
my $request=shift; |
my $request=shift; |
|
|
my $target=&get_target(); |
my $target=&get_target(); |
|
$Apache::lonxml::debug=1; |
$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); |
Line 21 sub handler {
|
Line 22 sub handler {
|
my %mystyle; |
my %mystyle; |
my $result = ''; |
my $result = ''; |
&Apache::inputtags::initialize_inputtags; |
&Apache::inputtags::initialize_inputtags; |
$result = Apache::lonxml::xmlparse($target, &getfile($file), |
|
&getfile('/home/httpd/html/res/103/albertel/default_homework').&setup_vars($target),%mystyle); |
my $problem=&Apache::lonnet::getfile($file); |
|
if ($problem == -1) { |
|
&Apache::lonxml::error("<b> Unable to find <i>$file</i></b>"); |
|
$problem=''; |
|
} |
|
my $default=&Apache::lonnet::getfile('/home/httpd/html/res/adm/includes/default_homework.lcpm'); |
|
if ($default == -1) { |
|
&Apache::lonxml::error("<b>Unable to find <i>$file</i></b>"); |
|
$default=''; |
|
} |
|
|
|
$result = Apache::lonxml::xmlparse($target, $problem, |
|
$default.&setup_vars($target),%mystyle); |
#$request->print("Result follows:"); |
#$request->print("Result follows:"); |
$request->print($result); |
$request->print($result); |
#$request->print(":Result ends"); |
#$request->print(":Result ends"); |
Line 35 sub get_target {
|
Line 48 sub get_target {
|
|
|
sub setup_vars { |
sub setup_vars { |
my ($target) = @_; |
my ($target) = @_; |
return ';$external::target='.$target.';'; |
return ';' |
|
# return ';$external::target='.$target.';'; |
} |
} |
|
|
sub send_header { |
sub send_header { |