version 1.13, 2004/01/20 23:03:18
|
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; |