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 under the
9 # terms of the GNU General Public License as published by the Free Software
10 # Foundation; either version 2 of the License, or (at your option) any later
13 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
14 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
15 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License along
18 # with Koha; if not, write to the Free Software Foundation, Inc.,
19 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
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.
53 #use warnings; FIXME - Bug 2505
55 use C4::Auth; # get_template_and_user
62 my $title = $input->param( 'title');
63 my $author = $input->param('author');
64 my $isbn = $input->param('isbn');
65 my $name = $input->param( 'name' );
66 my $ean = $input->param('ean');
67 my $basket = $input->param( 'basket' );
68 my $booksellerinvoicenumber = $input->param( 'booksellerinvoicenumber' );
69 my $do_search = $input->param('do_search') || 0;
70 my $from_placed_on = C4::Dates->new($input->param('from'));
71 my $to_placed_on = C4::Dates->new($input->param('to'));
72 if ( not $input->param('from') ) {
73 # FIXME Dirty but we can't sent a Date::Calc to C4::Dates ?
74 # We would use a function like Add_Delta_YM(-1, 0, 0);
75 $$from_placed_on{dmy_arrayref}[5] -= 1;
78 my $dbh = C4::Context->dbh;
79 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
81 template_name => "acqui/histsearch.tmpl",
85 flagsrequired => { acquisition => 'group_manage', acquisition => 'order_manage', acquisition => 'order_receive' },
90 my ( $from_iso, $to_iso, $d );
91 if ( $d = $input->param('from') ) {
92 $from_iso = C4::Dates->new($d)->output('iso');
94 if ( $d = $input->param('iso') ) {
95 $to_iso = C4::Dates->new($d)->output('iso');
98 my ( $order_loop, $total_qty, $total_price, $total_qtyreceived );
99 # If we're supplied any value then we do a search. Otherwise we don't.
101 ( $order_loop, $total_qty, $total_price, $total_qtyreceived ) = GetHistory(
107 from_placed_on => $from_iso,
108 to_placed_on => $to_iso,
110 booksellerinvoicenumber => $booksellerinvoicenumber,
114 my $from_date = $from_placed_on ? $from_placed_on->output('syspref') : undef;
115 my $to_date = $to_placed_on ? $to_placed_on->output('syspref') : undef;
118 suggestions_loop => $order_loop,
119 total_qty => $total_qty,
120 total_qtyreceived => $total_qtyreceived,
121 total_price => sprintf( "%.2f", $total_price ),
122 numresults => $order_loop ? scalar(@$order_loop) : undef,
129 booksellerinvoicenumber => $booksellerinvoicenumber,
130 from_placed_on => $from_date,
131 to_placed_on => $to_date,
132 DHTMLcalendar_dateformat=> C4::Dates->DHTMLcalendar(),
133 dateformat => C4::Dates->new()->format(),
134 debug => $debug || $input->param('debug') || 0,
135 uc(C4::Context->preference("marcflavour")) => 1
138 output_html_with_http_headers $input, $cookie, $template->output;