Whoops, this isn't right
Peter Rabbitson [Sat, 10 Oct 2009 16:49:15 +0000 (16:49 +0000)]
lib/DBIx/Class/Ordered.pm

index 6c7446f..4499d86 100644 (file)
@@ -501,7 +501,7 @@ sub move_to_group {
     }
     else {
       my $bumped_pos_val = $self->_position_value ($to_position);
-      my @between = ($to_position, $new_group_last_position);
+      my @between = map { $self->_position_value ($_) } ($to_position, $new_group_last_position);
       $self->_shift_siblings (1, @between);   #shift right
       $self->set_column( $position_column => $bumped_pos_val );
     }