version 1.12, 2004/01/20 21:10:03
|
version 1.13, 2004/01/20 23:03:18
|
Line 41 use Apache::lonlocal;
|
Line 41 use Apache::lonlocal;
|
sub handler { |
sub handler { |
|
|
my $r=shift; |
my $r=shift; |
|
my $target = $ENV{'form.grade_target'}; |
|
if ($target eq 'meta') { |
|
&Apache::loncommon::content_type($r,'text/html'); |
|
$r->send_http_header; |
|
$ENV{'request.uri'}=$r->uri; |
|
my $file = &Apache::lonnet::filelocation("",$r->uri); |
|
my $content=&Apache::lonnet::getfile($file); |
|
my $result=&Apache::lonxml::xmlparse(undef,'meta',$content); |
|
$r->print($result); |
|
return OK; |
|
} |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
|
|