sub rebuild_tree(;$$$$)
{
my $table = shift || „t_categories”;
my $PID = shift || 0;
my $L = shift || 0;

if (shift || 1)
{
$dbh->do(”
update $table
set PID = 0,
L = null,
R = null
where ID = PID
and ID 0
„);
}

my $R = $L + 1;

my $sth = $dbh->prepare(”
select ID
from $table
where PID = $PID
and ID PID
order by Name asc
„);

$sth->execute();

while (my $row = $sth->fetchrow_hashref())
{
$R = rebuild_tree($table, $row->{‘ID’}, $R, undef);
}

$sth->finish();

$dbh->do(”
update $table
set L = $L,
R = $R
where ID = $PID
„);

return $R + 1;
}

Po usunięciu elementu (DELETE), przeniesieniu (UPDATE) lub dodaniu (INSERT) – wystarczy wywołać w/w procedurę a select’y wywoływać w oparciu nie o pole PID a o wartości L i R (zgodnnie z metodologią MPTT)