|
Lines 57-80
use C4::Output;
Link Here
|
| 57 |
use C4::Acquisition; |
57 |
use C4::Acquisition; |
| 58 |
use C4::Dates; |
58 |
use C4::Dates; |
| 59 |
use C4::Debug; |
59 |
use C4::Debug; |
|
|
60 |
use Encode; |
| 60 |
|
61 |
|
| 61 |
my $input = new CGI; |
62 |
my $input = new CGI; |
| 62 |
my $title = $input->param( 'title'); |
63 |
my $title = decode('UTF-8',$input->param( 'title' )); |
| 63 |
utf8::decode($title); |
64 |
my $author = decode('UTF-8',$input->param( 'author' )); |
| 64 |
my $author = $input->param('author'); |
65 |
my $isbn = decode('UTF-8',$input->param( 'isbn' )); |
| 65 |
utf8::decode($author); |
66 |
my $name = decode('UTF-8',$input->param( 'name' )); |
| 66 |
my $isbn = $input->param('isbn'); |
67 |
my $ean = decode('UTF-8',$input->param( 'ean' )); |
| 67 |
utf8::decode($isbn); |
68 |
my $basket = decode('UTF-8',$input->param( 'basket' )); |
| 68 |
my $name = $input->param( 'name' ); |
69 |
my $basketgroupname = decode('UTF-8',$input->param( 'basketgroupname' )); |
| 69 |
utf8::decode($name); |
70 |
my $booksellerinvoicenumber = decode('UTF-8',$input->param( 'booksellerinvoicenumber' )); |
| 70 |
my $ean = $input->param('ean'); |
|
|
| 71 |
utf8::decode($ean); |
| 72 |
my $basket = $input->param( 'basket' ); |
| 73 |
utf8::decode($basket); |
| 74 |
my $basketgroupname = $input->param('basketgroupname'); |
| 75 |
utf8::decode($basketgroupname); |
| 76 |
my $booksellerinvoicenumber = $input->param( 'booksellerinvoicenumber' ); |
| 77 |
utf8::decode($booksellerinvoicenumber); |
| 78 |
|
71 |
|
| 79 |
my $do_search = $input->param('do_search') || 0; |
72 |
my $do_search = $input->param('do_search') || 0; |
| 80 |
my $from_placed_on = C4::Dates->new($input->param('from')); |
73 |
my $from_placed_on = C4::Dates->new($input->param('from')); |
| 81 |
- |
|
|