[Bast-commits] r4647 - DBIx-Class-Tree-NestedSet/lib/DBIx/Class/Tree/NestedSet

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2008-07-25 23:48:10 +0100 (Fri, 25 Jul 2008)
New Revision: 4647

Modified:
   DBIx-Class-Tree-NestedSet/lib/DBIx/Class/Tree/NestedSet/Multi.pm
Log:
Reload parent after updating left and right columns.

Modified: DBIx-Class-Tree-NestedSet/lib/DBIx/Class/Tree/NestedSet/Multi.pm
===================================================================
--- DBIx-Class-Tree-NestedSet/lib/DBIx/Class/Tree/NestedSet/Multi.pm	2008-07-25 21:23:48 UTC (rev 4646)
+++ DBIx-Class-Tree-NestedSet/lib/DBIx/Class/Tree/NestedSet/Multi.pm	2008-07-25 22:48:10 UTC (rev 4647)
@@ -125,6 +125,8 @@
             $right => \"CASE WHEN $right >= $p_rgt THEN $right + 2 ELSE $right END",
         });
 
+        $self->discard_changes;
+
         @col_data{$root, $left, $right} = ($self->$root, $p_rgt, $p_rgt + 1);
         $row = $get_row->($self, $rel => \%col_data);
     });