loncom/publisher/lonrights.pm - diff

Return to lonrights.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.11, 2003/10/13 22:12:55	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;

Line 283 ENDSTARTTABLE	Line 294 ENDSTARTTABLE
&Apache::lonnet::coursedescription($rdom.'_'.$rcourse);	&Apache::lonnet::coursedescription($rdom.'_'.$rcourse);
$r->print($descript{'description'}.'   ');	$r->print($descript{'description'}.'   ');
}	}
$r->print(&Apache::loncommon::selectcourse_link('rules',	if ($constructmode) {
'course_'.$rulecounter,'domain_'.$rulecounter));	$r->print(&Apache::loncommon::selectcourse_link('rules',
	'course_'.$rulecounter,'domain_'.$rulecounter));
	}
# close row	# close row
$r->print('</td></tr>');	$r->print('</td></tr>');
}	}