|
Lines 61-66
use C4::Debug;
Link Here
|
| 61 |
my $input = new CGI; |
61 |
my $input = new CGI; |
| 62 |
my $title = $input->param( 'title'); |
62 |
my $title = $input->param( 'title'); |
| 63 |
my $author = $input->param('author'); |
63 |
my $author = $input->param('author'); |
|
|
64 |
my $isbn = $input->param('isbn'); |
| 64 |
my $name = $input->param( 'name' ); |
65 |
my $name = $input->param( 'name' ); |
| 65 |
my $basket = $input->param( 'basket' ); |
66 |
my $basket = $input->param( 'basket' ); |
| 66 |
my $booksellerinvoicenumber = $input->param( 'booksellerinvoicenumber' ); |
67 |
my $booksellerinvoicenumber = $input->param( 'booksellerinvoicenumber' ); |
|
Lines 89-100
if ( $d = $input->param('iso') ) {
Link Here
|
| 89 |
|
90 |
|
| 90 |
my ( $order_loop, $total_qty, $total_price, $total_qtyreceived ); |
91 |
my ( $order_loop, $total_qty, $total_price, $total_qtyreceived ); |
| 91 |
# If we're supplied any value then we do a search. Otherwise we don't. |
92 |
# If we're supplied any value then we do a search. Otherwise we don't. |
| 92 |
my $do_search = $title || $author || $name || $basket || $booksellerinvoicenumber || |
93 |
my $do_search = $title || $author || $isbn || $name || $basket || $booksellerinvoicenumber || |
| 93 |
$from_placed_on || $to_placed_on; |
94 |
$from_placed_on || $to_placed_on; |
| 94 |
if ($do_search) { |
95 |
if ($do_search) { |
| 95 |
( $order_loop, $total_qty, $total_price, $total_qtyreceived ) = GetHistory( |
96 |
( $order_loop, $total_qty, $total_price, $total_qtyreceived ) = GetHistory( |
| 96 |
title => $title, |
97 |
title => $title, |
| 97 |
author => $author, |
98 |
author => $author, |
|
|
99 |
isbn => $isbn, |
| 98 |
name => $name, |
100 |
name => $name, |
| 99 |
from_placed_on => $from_iso, |
101 |
from_placed_on => $from_iso, |
| 100 |
to_placed_on => $to_iso, |
102 |
to_placed_on => $to_iso, |
|
Lines 114-119
$template->param(
Link Here
|
| 114 |
numresults => $order_loop ? scalar(@$order_loop) : undef, |
116 |
numresults => $order_loop ? scalar(@$order_loop) : undef, |
| 115 |
title => $title, |
117 |
title => $title, |
| 116 |
author => $author, |
118 |
author => $author, |
|
|
119 |
isbn => $isbn, |
| 117 |
name => $name, |
120 |
name => $name, |
| 118 |
basket => $basket, |
121 |
basket => $basket, |
| 119 |
booksellerinvoicenumber => $booksellerinvoicenumber, |
122 |
booksellerinvoicenumber => $booksellerinvoicenumber, |