loncom/publisher/lonrights.pm - diff

Return to lonrights.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.15, 2004/05/20 13:42:35	version 1.16, 2005/02/18 23:15:54
Line 116 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;