From: Peter Rabbitson <ribasushi@cpan.org>
Date: Sat, 10 Oct 2009 16:49:15 +0000 (+0000)
Subject: Whoops, this isn't right
X-Git-Tag: v0.08113~36
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=71ec1155a8d4df069cf58e24a8355529e86bdbdc;p=dbsrgits%2FDBIx-Class.git

Whoops, this isn't right
---

diff --git a/lib/DBIx/Class/Ordered.pm b/lib/DBIx/Class/Ordered.pm
index 6c7446f..4499d86 100644
--- a/lib/DBIx/Class/Ordered.pm
+++ b/lib/DBIx/Class/Ordered.pm
@@ -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 );
     }