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 qw( get_template_and_user );
55 use C4::Output qw( output_html_with_http_headers );
56 use C4::Acquisition qw( GetHistory );
57 use Koha::AdditionalFields;
58 use Koha::DateUtils qw( dt_from_string output_pref );
61 my $do_search = $input->param('do_search') || 0;
63 my $dbh = C4::Context->dbh;
64 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
66 template_name => "acqui/histsearch.tt",
69 flagsrequired => { acquisition => '*' },
74 basket => scalar $input->param('basket'),
75 title => scalar $input->param('title'),
76 author => scalar $input->param('author'),
77 isbn => scalar $input->param('isbn'),
78 name => scalar $input->param('name'),
79 ean => scalar $input->param('ean'),
80 basketgroupname => scalar $input->param('basketgroupname'),
81 budget => scalar $input->param('budget'),
82 booksellerinvoicenumber => scalar $input->param('booksellerinvoicenumber'),
83 budget => scalar $input->param('budget'),
84 orderstatus => scalar $input->param('orderstatus'),
85 is_standing => scalar $input->param('is_standing'),
86 ordernumber => scalar $input->param('ordernumber'),
87 search_children_too => scalar $input->param('search_children_too'),
88 created_by => [ $input->multi_param('created_by') ],
89 managing_library => scalar $input->param('managing_library'),
92 my $from_placed_on = eval { dt_from_string( scalar $input->param('from') ) } || dt_from_string;
93 my $to_placed_on = eval { dt_from_string( scalar $input->param('to') ) } || dt_from_string;
94 unless ( $input->param('from') ) {
95 # Fill the form with year-1
96 $from_placed_on->set_time_zone('floating')->subtract( years => 1 );
98 $filters->{from_placed_on} = output_pref( { dt => $from_placed_on, dateformat => 'iso', dateonly => 1 } );
99 $filters->{to_placed_on} = output_pref( { dt => $to_placed_on, dateformat => 'iso', dateonly => 1 } );
100 my @additional_fields = Koha::AdditionalFields->search( { tablename => 'aqbasket', searchable => 1 } );
101 $template->param( available_additional_fields => \@additional_fields );
102 my @additional_field_filters;
103 foreach my $additional_field (@additional_fields) {
104 my $value = $input->param('additional_field_' . $additional_field->id);
105 if (defined $value and $value ne '') {
106 push @additional_field_filters, {
107 id => $additional_field->id,
112 $filters->{additional_fields} = \@additional_field_filters;
116 # If we're supplied any value then we do a search. Otherwise we don't.
118 $order_loop = GetHistory(%$filters);
121 my $budgetperiods = C4::Budgets::GetBudgetPeriods;
122 my $bp_loop = $budgetperiods;
123 for my $bp ( @{$budgetperiods} ) {
124 my $hierarchy = C4::Budgets::GetBudgetHierarchy( $$bp{budget_period_id} );
125 for my $budget ( @{$hierarchy} ) {
126 $$budget{budget_display_name} = sprintf("%s", ">" x $$budget{depth} . $$budget{budget_name});
128 $$bp{hierarchy} = $hierarchy;
132 order_loop => $order_loop,
135 search_done => $do_search,
138 output_html_with_http_headers $input, $cookie, $template->output;