my $data = GetBudgetPeriod( $budget_period_id);

    my $budget_period_startdate = dt_from_string $input->param('budget_period_startdate');

    $data->{'budget_period_startdate'} = $budget_period_hashref->{budget_period_startdate};

    my $budget_period_enddate   = dt_from_string $input->param('budget_period_enddate');

    $data->{'budget_period_enddate'} = $budget_period_hashref->{budget_period_enddate};

    delete $data->{'budget_period_id'};

    my $new_budget_period_id = C4::Budgets::CloneBudgetPeriod(

    my $new_budget_period_id = AddBudgetPeriod($data);

        {

            budget_period_id        => $budget_period_id,

    my $tree = GetBudgetHierarchy( $budget_period_id );

            budget_period_startdate => $budget_period_startdate,

            budget_period_enddate   => $budget_period_enddate,

    # hash mapping old ids to new

    my %old_new;

    # hash mapping old parent ids to list of new children ids

    # only store a child here if the parents old id isnt in the old_new map

    # when the parent is found, this map will be used, and then the entry removed and their id placed in old_new

    my %parent_children;

    for my $entry( @$tree ){

        die "serious errors, parent period $budget_period_id doesnt match child ", $entry->{'budget_period_id'}, "\n" if( $entry->{'budget_period_id'} != $budget_period_id );

        my $orphan = 0; # set to 1 if we need to make an entry in parent_children

        my $old_id = delete $entry->{'budget_id'};

        my $parent_id = delete $entry->{'budget_parent_id'};

        $entry->{'budget_period_id'} = $new_budget_period_id;

        if( !defined $parent_id ){

        } elsif( defined $parent_id && $parent_id eq '' ){

        } elsif( defined $old_new{$parent_id} ){

            # set parent id now

            $entry->{'budget_parent_id'} = $old_new{$parent_id};

        } else {

            # make an entry in parent_children

            $parent_children{$parent_id} = [] unless defined $parent_children{$parent_id};

            $orphan = 1;

        }

        # get only the columns of aqbudgets

        my @columns = Koha::Database->new()->schema->source('Aqbudget')->columns;

        my $new_entry = { map { join(' ',@columns) =~ /$_/ ? ( $_ => $entry->{$_} )  : () } keys(%$entry) };

        # write it to db

        my $new_id = AddBudget($new_entry);

        $old_new{$old_id} = $new_id;

        push @{$parent_children{$parent_id}}, $new_id if $orphan;

        # deal with any children

        if( defined $parent_children{$old_id} ){

            # tell my children my new id

            for my $child ( @{$parent_children{$old_id}} ){

                ModBudget( { 'budget_id' => $child, 'budget_parent_id' => $new_id } );

            }

            delete $parent_children{$old_id};

    }

    );

                      <a href="[% period_loo.script_name %]?op=add_form&amp;budget_period_id=[% period_loo.budget_period_id |html %]">Edit</a>

                      <a href="[% script_name %]?op=add_form&amp;budget_period_id=[% period_loo.budget_period_id |html %]">Edit</a>

                      <a href="[% period_loo.script_name %]?op=delete_confirm&amp;budget_period_id=[% period_loo.budget_period_id %]">Delete</a>

                      <a href="[% script_name %]?op=delete_confirm&amp;budget_period_id=[% period_loo.budget_period_id %]">Delete</a>

                      <a href="[% script_name %]?op=duplicate_form&amp;budget_period_id=[% period_loo.budget_period_id %]">Duplicate</a>

use Test::More tests => 63;

use Test::More tests => 65;

- 

# CloneBudgetPeriod

my $budget_period_id_cloned = C4::Budgets::CloneBudgetPeriod(

    {

        budget_period_id        => $budget_period_id,

        budget_period_startdate => '2014-01-01',

        budget_period_enddate   => '2014-12-31',

    }

);

my $budget_hierarchy        = GetBudgetHierarchy($budget_period_id);

my $budget_hierarchy_cloned = GetBudgetHierarchy($budget_period_id_cloned);

is(

    scalar(@$budget_hierarchy_cloned),

    scalar(@$budget_hierarchy),

    'CloneBudgetPeriod clones the same number of budgets (funds)'

);

is_deeply(

    _get_dependencies($budget_hierarchy),

    _get_dependencies($budget_hierarchy_cloned),

    'CloneBudgetPeriod keep the same dependencies order'

);

sub _get_dependencies {

    my ($budget_hierarchy) = @_;

    my $graph;

    for my $budget (@$budget_hierarchy) {

        if ( $budget->{child} ) {

            my @sorted = sort @{ $budget->{child} };

            for my $child_id (@sorted) {

                push @{ $graph->{ $budget->{budget_name} }{children} },

                  _get_budgetname_by_id( $budget_hierarchy, $child_id );

            }

        }

        push @{ $graph->{ $budget->{budget_name} }{parents} },

          $budget->{parent_id};

    }

    return $graph;

}

sub _get_budgetname_by_id {

    my ( $budgets, $budget_id ) = @_;

    my ($budget_name) =

      map { ( $_->{budget_id} eq $budget_id ) ? $_->{budget_name} : () }

      @$budgets;

    return $budget_name;

}