View | Details | Raw Unified | Return to bug 10068
Collapse All | Expand All

(-)a/acqui/booksellers.pl (-3 / +6 lines)
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
- 

Return to bug 10068