|
Lines 60-65
use C4::Acquisition qw/ GetBasketsInfosByBookseller /;
Link Here
|
| 60 |
use C4::Bookseller qw/ GetBookSellerFromId GetBookSeller /; |
60 |
use C4::Bookseller qw/ GetBookSellerFromId GetBookSeller /; |
| 61 |
use C4::Members qw/GetMember/; |
61 |
use C4::Members qw/GetMember/; |
| 62 |
use C4::Context; |
62 |
use C4::Context; |
|
|
63 |
use Carp; |
| 64 |
use Encode qw/decode/; |
| 63 |
|
65 |
|
| 64 |
my $query = CGI->new; |
66 |
my $query = CGI->new; |
| 65 |
my ( $template, $loggedinuser, $cookie ) = get_template_and_user( |
67 |
my ( $template, $loggedinuser, $cookie ) = get_template_and_user( |
|
Lines 73-80
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
Link Here
|
| 73 |
); |
75 |
); |
| 74 |
|
76 |
|
| 75 |
#parameters |
77 |
#parameters |
| 76 |
my $supplier = $query->param('supplier'); |
78 |
my $supplier = $query->param( 'supplier' ); |
| 77 |
utf8::decode($supplier); |
79 |
eval { $supplier = decode('UTF-8', $supplier, Encode::FB_CROAK); }; |
|
|
80 |
if ( $@ ) { carp "Error decoding $supplier: $@" }; |
| 81 |
|
| 78 |
my $booksellerid = $query->param('booksellerid'); |
82 |
my $booksellerid = $query->param('booksellerid'); |
| 79 |
my @suppliers; |
83 |
my @suppliers; |
| 80 |
|
84 |
|
| 81 |
- |
|
|