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

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2008-07-25 01:44:13 +0100 (Fri, 25 Jul 2008)
New Revision: 4634

Modified:
   DBIx-Class-Tree-NestedSet/lib/DBIx/Class/Tree/NestedSet.pm
Log:
Refresh the rows columns to get correct left and right values before creating related rows.

Modified: DBIx-Class-Tree-NestedSet/lib/DBIx/Class/Tree/NestedSet.pm
===================================================================
--- DBIx-Class-Tree-NestedSet/lib/DBIx/Class/Tree/NestedSet.pm	2008-07-25 00:44:06 UTC (rev 4633)
+++ DBIx-Class-Tree-NestedSet/lib/DBIx/Class/Tree/NestedSet.pm	2008-07-25 00:44:13 UTC (rev 4634)
@@ -92,6 +92,7 @@
             $self->tree_columns->{"${_}_column"}
         } qw/root left right/;
 
+        $self->discard_changes;
         my $p_rgt = $self->$right;
 
         $self->nodes_rs->update({