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.16, 2005/02/18 23:15:54
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 105 sub handler {	Line 116 sub handler {
if ($_=~/^form\.action\_(\d+)$/) {	if ($_=~/^form\.action\_(\d+)$/) {
my $number=$1;	my $number=$1;
if ($ENV{$_} eq 'delete') { $newrules[$number]=''; }	if ($ENV{$_} eq 'delete') { $newrules[$number]=''; }
if (($ENV{$_} eq 'moveup') && ($number>2)) {	if (($ENV{$_} eq 'moveup') && ($number>1)) {
my $buffer=$newrules[$number];	my $buffer=$newrules[$number];
$newrules[$number]=$newrules[$number-1];	$newrules[$number]=$newrules[$number-1];
$newrules[$number-1]=$buffer;	$newrules[$number-1]=$buffer;