sub DuplicateBudget {

    my ($budget_period_id, $startdate, $enddate, $budget_period_description, $budget_transfer_data) = @_;

    die "please specify a budget period id\n" if( !defined $budget_period_id || $budget_period_id eq '' );

    my $dbh   = C4::Context->dbh;

    my $data = GetBudgetPeriod( $budget_period_id);

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

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

    $data->{'budget_period_description'} = $budget_period_description;

    delete $data->{'budget_period_id'};

    my $new_budget_period_id = C4::SQLHelper::InsertInTable('aqbudgetperiods', $data);

    my $tree = GetBudgetHierarchy( $budget_period_id );

    # 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;

        }

        # write it to db

        my $new_id = C4::SQLHelper::InsertInTable('aqbudgets', $entry);

        $old_new{$old_id} = $new_id;

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

        if ($budget_transfer_data == 1) {

            #Transfers the unreceived orders from the previous fund to the new

            my $query = "

            UPDATE aqorders SET budget_id = ?

                WHERE budget_id=? AND

                quantityreceived = 0 AND

                datecancellationprinted IS NULL";

            my $sth = $dbh->prepare($query);

            $sth->execute($new_id, $old_id );

        }

    }

    return $new_budget_period_id;

}

# -------------------------------------------------------------------

    my $budgetperiod = GetBudgetPeriod($budget_period_id, $input);

        'budgetperiod' => $budgetperiod,

    <li>

        <label class="required" for="budget_period_description">Description</label>

        <input type="text" id="budget_period_description" name="budget_period_description" value="[% budgetperiod.budget_period_description %]" />

    </li>

    <li>

        <label for="budget_transfer_data">Transfer the ordered acquisitions</label>

        <input type="checkbox" id="budget_transfer_data" name="budget_transfer_data" value="1" />

    </li>

my $new_bpid;

ok($new_bpid = C4::Budgets::DuplicateBudget($bpid, '2012-01-01', '2012-08-01', 'MAPERI COPY'),

    "Duplicate budget returned $new_bpid");

my $budgetcpyp;

ok($budgetcpyp = GetBudgetPeriod($new_bpid) ,"GetBudgetPeriod OK");

#Verify data of the copy

is ($budgetcpyp->{'budget_period_startdate'}, '2012-01-01');

is ($budgetcpyp->{'budget_period_enddate'}, '2012-08-01');

is ($budgetcpyp->{'budget_period_description'}, 'MAPERI COPY');

my $budgetscpy;

ok($budgetscpy = GetBudgetHierarchy( $new_bpid ));

is (scalar(@$budgetscpy), 2, '2 budgets for that budget period : the original and his child');

is (@$budgetscpy[0]->{'budget_code'}, 'ABCD');

is (@$budgetscpy[0]->{'budget_amount'}, '123.132000');

is (@$budgetscpy[0]->{'budget_notes'}, 'This is a note');

is (@$budgetscpy[0]->{'budget_name'}, 'Serials');