3 # This file is part of Koha.
5 # Copyright 2004 Biblibre
6 # Parts copyright 2011 Catalyst IT Ltd.
8 # Koha is free software; you can redistribute it and/or modify it
9 # under the terms of the GNU General Public License as published by
10 # the Free Software Foundation; either version 3 of the License, or
11 # (at your option) any later version.
13 # Koha is distributed in the hope that it will be useful, but
14 # WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 # GNU General Public License for more details.
18 # You should have received a copy of the GNU General Public License
19 # along with Koha; if not, see <http://www.gnu.org/licenses>.
27 this script offer a interface to search among order.
34 if the script has to filter the results on title.
37 if the script has to filter the results on author.
40 if the script has to filter the results on supplier.
43 to filter on started date.
46 to filter on ended date.
54 use C4
::Auth
; # get_template_and_user
59 use Koha
::AdditionalField
;
63 my $do_search = $input->param('do_search') || 0;
65 my $dbh = C4
::Context
->dbh;
66 my ( $template, $loggedinuser, $cookie ) = get_template_and_user
(
68 template_name
=> "acqui/histsearch.tt",
72 flagsrequired
=> { acquisition
=> '*' },
78 basket
=> scalar $input->param('basket'),
79 title
=> scalar $input->param('title'),
80 author
=> scalar $input->param('author'),
81 isbn
=> scalar $input->param('isbn'),
82 name
=> scalar $input->param('name'),
83 ean
=> scalar $input->param('ean'),
84 basketgroupname
=> scalar $input->param('basketgroupname'),
85 budget
=> scalar $input->param('budget'),
86 booksellerinvoicenumber
=> scalar $input->param('booksellerinvoicenumber'),
87 budget
=> scalar $input->param('budget'),
88 orderstatus
=> scalar $input->param('orderstatus'),
89 ordernumber
=> scalar $input->param('ordernumber'),
90 search_children_too
=> scalar $input->param('search_children_too'),
91 created_by
=> [ $input->multi_param('created_by') ],
93 my $from_placed_on = eval { dt_from_string
( scalar $input->param('from') ) } || dt_from_string
;
94 my $to_placed_on = eval { dt_from_string
( scalar $input->param('to') ) } || dt_from_string
;
95 unless ( $input->param('from') ) {
96 # Fill the form with year-1
97 $from_placed_on->subtract( years
=> 1 );
99 $filters->{from_placed_on
} = output_pref
( { dt
=> $from_placed_on, dateformat
=> 'iso', dateonly
=> 1 } ),
100 $filters->{to_placed_on
} = output_pref
( { dt
=> $to_placed_on, dateformat
=> 'iso', dateonly
=> 1 } ),
101 $filters->{additional_fields
} = Koha
::AdditionalField
->get_filters_from_query({
102 tablename
=> 'aqbasket',
106 $template->param( available_additional_fields
=> scalar Koha
::AdditionalField
->all( { tablename
=> 'aqbasket', searchable
=> 1 } ) );
109 # If we're supplied any value then we do a search. Otherwise we don't.
111 $order_loop = GetHistory
(%$filters);
114 my $budgetperiods = C4
::Budgets
::GetBudgetPeriods
;
115 my $bp_loop = $budgetperiods;
116 for my $bp ( @
{$budgetperiods} ) {
117 my $hierarchy = C4
::Budgets
::GetBudgetHierarchy
( $$bp{budget_period_id
} );
118 for my $budget ( @
{$hierarchy} ) {
119 $$budget{budget_display_name
} = sprintf("%s", ">" x
$$budget{depth
} . $$budget{budget_name
});
121 $$bp{hierarchy
} = $hierarchy;
125 order_loop
=> $order_loop,
128 search_done
=> $do_search,
131 output_html_with_http_headers
$input, $cookie, $template->output;