my $budget_id = $params->{budget_id};

    if ( $budget_id ) {

        $query .= ' AND aqorders.budget_id = ?';

        push @args, $budget_id;

    }

    # The new budget (budget_period) should be active by default

    $budget_period->{budget_period_active}    = 1;

=head2 MoveOrders

  my $report = MoveOrders({

    from_budget_period_id => $from_budget_period_id,

    to_budget_period_id   => $to_budget_period_id,

  });

Clone a budget hierarchy.

=cut

sub MoveOrders {

    my ($params)              = @_;

    my $from_budget_period_id = $params->{from_budget_period_id};

    my $to_budget_period_id   = $params->{to_budget_period_id};

    return

      if not $from_budget_period_id

          or not $to_budget_period_id

          or $from_budget_period_id == $to_budget_period_id;

    # Can't move orders to an inactive budget (budgetperiod)

    my $budget_period = GetBudgetPeriod($to_budget_period_id);

    return unless $budget_period->{budget_period_active};

    my @report;

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

    my $sth_update_aqorders = $dbh->prepare(

        q|

            UPDATE aqorders

            SET budget_id = ?

            WHERE ordernumber = ?

        |

    );

    my $from_budgets = GetBudgetHierarchy($from_budget_period_id);

    for my $from_budget (@$from_budgets) {

        my $new_budget_id = $dbh->selectcol_arrayref(

            q|

                SELECT budget_id

                FROM aqbudgets

                WHERE budget_period_id = ?

                    AND budget_code = ?

            |, {}, $to_budget_period_id, $from_budget->{budget_code}

        );

        $new_budget_id = $new_budget_id->[0];

        my $new_budget = GetBudget( $new_budget_id );

        unless ( $new_budget ) {

            push @report,

              {

                moved       => 0,

                budget_code => $from_budget->{budget_code},

                error       => 'budget_code_not_exists',

              };

            next;

        }

        my $orders_to_move = C4::Acquisition::SearchOrders(

            {

                budget_id => $from_budget->{budget_id},

                pending   => 1,

            }

        );

        my @orders_moved;

        for my $order (@$orders_to_move) {

            $sth_update_aqorders->execute( $new_budget->{budget_id}, $order->{ordernumber} );

            push @orders_moved, $order->{ordernumber};

        }

        push @report,

          {

            budget => $new_budget,

            orders_moved  => \@orders_moved,

            moved         => 1,

          };

    }

    return \@report;

}

elsif ( $op eq 'close_form' ) {

    my $budget_period = GetBudgetPeriod($budget_period_id);

    my $active_budget_periods =

      C4::Budgets::GetBudgetPeriods( { budget_period_active => 1 } );

    # Remove the budget period from the list

    $active_budget_periods =

      [ map { ( $_->{budget_period_id} == $budget_period_id ) ? () : $_ }

          @$active_budget_periods ];

    my $budgets_to_move = GetBudgetHierarchy($budget_period_id);

    # C4::Context->userenv->{branchcode}, $show_mine ? $borrower_id : '')

    my $number_of_unreceived_orders = 0;

    for my $budget (@$budgets_to_move) {

        # We want to move funds from this budget

        my $unreceived_orders = C4::Acquisition::SearchOrders(

            { budget_id => $budget->{budget_id}, } );

        $budget->{unreceived_orders} = $unreceived_orders;

        $number_of_unreceived_orders += scalar(@$unreceived_orders);

    }

    $template->param(

        close_form       => 1,

        budget_period_id => $budget_period_id,

        budget_period_description =>

          $budget_period->{budget_period_description},

        budget_periods              => $active_budget_periods,

        budgets_to_move             => $budgets_to_move,

        number_of_unreceived_orders => $number_of_unreceived_orders,

    );

}

elsif ( $op eq 'close_confirmed' ) {

    my $to_budget_period_id = $input->param('to_budget_period_id');

    my $report              = C4::Budgets::MoveOrders(

        {

            from_budget_period_id => $budget_period_id,

            to_budget_period_id   => $to_budget_period_id,

        }

    );

}

[% IF close_form %]

    <link href="[% interface %]/lib/jquery/plugins/treetable/stylesheets/jquery.treetable.css" rel="stylesheet" type="text/css" />

    <script type="text/javascript" src="[% interface %]/lib/jquery/plugins/treetable/jquery.treetable.js"></script>

[% END %]

        [% IF close_form %]

          $("#budgeth").dataTable($.extend(true, {}, dataTablesDefaults, {

            sDom: "t"

          }));

          $("#move_form").submit(function(){

            var budget_from = "[% budget_period_description %]";

            var budget_to = $("#budget_period").find("option:selected").html();

            var alert_message = _("You have chosen to move all unreceived orders from '%s' to '%s'.").format(budget_from, budget_to);

            alert_message += _("\nThis action cannot be reversed. Do you wish to continue?");

            return confirm ( alert_message );

          });

        [% END %]

    [% IF close_form %]›

      Close budget [% budget_period_description %]

    [% END %]

    <!-- close a budget -->

    [% IF close_form %]

        <a href="/cgi-bin/koha/admin/aqbudgetperiods.pl">Budgets</a> &rsaquo;

        Close budget <a href="cgi-bin/koha/admin/aqbudgets.pl?budget_period_id=[% budget_period_id %]">[% budget_period_description %]</a>

    [% END %]

[% IF close_form %]

  [% IF budget_periods.size == 0 %]

    You cannot move funds of this budget, there is no active budget.

    Please create a new active budget and retry.

    <a href="/cgi-bin/koha/admin/aqbudgetperiods.pl">Back</a>

  [% ELSIF number_of_unreceived_orders == 0 %]

    There is no unreceived orders for this budget.

    <a href="/cgi-bin/koha/admin/aqbudgetperiods.pl">Back</a>

  [% ELSE %]

    <h3>Choose the funds you want to move unreceived orders:</h3>

      Fund list of budget <a href="cgi-bin/koha/admin/aqbudgets.pl?budget_period_id=[% budget_period_id %]">[% budget_period_description %]</a>:

    <table id="budgeth">

      <thead>

        <tr>

            <th>Fund id</th>

            <th>Fund code</th>

            <th>Fund name</th>

            <th>Unreceived orders</th>

        </tr>

      </thead>

      <tbody>

        [% FOREACH budget IN budgets_to_move %]

          <tr>

            <td>[% budget.budget_id %]</td>

            <td>[% budget.budget_code_indent %]</td>

            <td>[% budget.budget_name %]</td>

            <td>[% budget.unreceived_orders.size %]</td>

          </tr>

        [% END %]

      </tbody>

    </table>

    <form action="/cgi-bin/koha/admin/aqbudgetperiods.pl" name="f" method="post" id="move_form">

      <fieldset class="rows">

        <ol>

          <li>

            <label class="required" for="to_budget_period_id">Select a budget</label>

            <select name="to_budget_period_id" id="to_budget_period_id" required="required">

              <option value=""></option>

              [% FOR budget_period IN budget_periods %]

                <option value="[% budget_period.budget_period_id %]">[% budget_period.budget_period_description %]</option>

              [% END %]

            </select>

          </li>

        </ol>

      </fieldset>

      <fieldset class="action">

          <input type="hidden" name="op" value="close_confirmed" />

          <input type="hidden" name="budget_period_id" value="[% budget_period_id %]" />

          <input type="submit" value="Move unreceive orders" />

          <a class="cancel" href="/cgi-bin/koha/admin/aqbudgetperiods.pl">Cancel</a>

      </fieldset>

    </form>

  [% END %]

[% END %]

                  <a href="[% script_name %]?op=close_form&amp;budget_period_id=[% period_active.budget_period_id %]">Close</a>

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

# Mock userenv

local $SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /redefined/ };

my $userenv;

*C4::Context::userenv = \&Mock_userenv;

$userenv = { flags => 1, id => 'my_userid', branch => 'CPL' };

my $number_of_orders_to_move = 0;

        $number_of_orders_to_move++;

# MoveOrders

my $number_orders_moved = C4::Budgets::MoveOrders();

is( $number_orders_moved, undef, 'MoveOrders return undef if no arg passed' );

$number_orders_moved =

  C4::Budgets::MoveOrders( { from_budget_period_id => $budget_period_id } );

is( $number_orders_moved, undef,

    'MoveOrders return undef if only 1 arg passed' );

$number_orders_moved =

  C4::Budgets::MoveOrders( { to_budget_period_id => $budget_period_id } );

is( $number_orders_moved, undef,

    'MoveOrders return undef if only 1 arg passed' );

$number_orders_moved = C4::Budgets::MoveOrders(

    {

        from_budget_period_id => $budget_period_id,

        to_budget_period_id   => $budget_period_id

    }

);

is( $number_orders_moved, undef,

    'MoveOrders return undef if 2 budget period id are the same' );

$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',

        reset_all_funds         => 1,

    }

);

my $report = C4::Budgets::MoveOrders(

    {

        from_budget_period_id => $budget_period_id,

        to_budget_period_id   => $budget_period_id_cloned,

    }

);

is( scalar( @$report ), 6 , "MoveOrders has processed 6 funds" );

my $number_of_orders_moved = 0;

$number_of_orders_moved += scalar( @{ $_->{orders_moved} } ) for @$report;

is( $number_of_orders_moved, $number_of_orders_to_move, "MoveOrders has moved $number_of_orders_to_move orders" );