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 |
- |
|
|