loncom/publisher/lonrights.pm - diff

Return to lonrights.pm CVS log

Up to [LON-CAPA] / loncom / publisher

-version 1.12, 2004/01/20 21:10:03
+version 1.13, 2004/01/20 23:03:18
  Line 41  use Apache::lonlocal;
  sub handler {
    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');
    $r->send_http_header;