projekt kivitendo

  croak "Invalid parameter 'position'" unless ($params{position} || '') =~ m/^ (?: before | after | first | last ) $/x;

  if ($params{position} eq 'last') {

    set_position($self);

    $self->save;

  my $table               = $self->meta->table;

  my $primary_key_col     = ($self->meta->primary_key)[0];

  my ($group_by, @values) = get_group_by_where($self);

  $group_by               = " AND ${group_by}" if $group_by;

  my $new_position;

referenced item by shifting all the appropriate item positions up by

one.

After this function C<$self>'s positional column has been set and

saved to the database.

use Test::Exception;

use strict;

$item = get_item(8); $item->remove_from_list; $item->parent_id(3); $item->add_to_list(position => 'first');

test_positions "add_to_list position 'first' in empty", [ 1, undef, 1 ], [ 2, undef, 2 ], [ 3, 1, 1 ], [ 4, 1, 2 ], [ 5, 1, 3 ], [ 6, 4, 1 ], [ 7, 4, 2 ], [ 8, 3, 1 ];

reset_state();

$item = get_item(4);

is($item->get_next_in_list->id,                           5, 'Next of 4 is 5');