projects
/
koha.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(bug #4062) add item index in zebra conf
[koha.git]
/
acqui
/
newordersuggestion.pl
diff --git
a/acqui/newordersuggestion.pl
b/acqui/newordersuggestion.pl
index
cb8c2dc
..
e56e521
100755
(executable)
--- a/
acqui/newordersuggestion.pl
+++ b/
acqui/newordersuggestion.pl
@@
-87,11
+87,12
@@
can be equal to
=cut
use strict;
=cut
use strict;
-require Exporter;
+
use CGI;
use C4::Auth; # get_template_and_user
use C4::Output;
use C4::Suggestions;
use CGI;
use C4::Auth; # get_template_and_user
use C4::Output;
use C4::Suggestions;
+use C4::Bookseller;
use C4::Biblio;
my $input = new CGI;
use C4::Biblio;
my $input = new CGI;
@@
-127,11
+128,12
@@
if ( $op eq 'connectDuplicate' ) {
my $suggestions_loop =
&SearchSuggestion( $borrowernumber, $author, $title, $publishercode,'ACCEPTED',
-1 );
my $suggestions_loop =
&SearchSuggestion( $borrowernumber, $author, $title, $publishercode,'ACCEPTED',
-1 );
-
+my $vendor = GetBookSellerFromId($supplierid);
$template->param(
suggestions_loop => $suggestions_loop,
basketno => $basketno,
supplierid => $supplierid,
$template->param(
suggestions_loop => $suggestions_loop,
basketno => $basketno,
supplierid => $supplierid,
+ name => $vendor->{'name'},
"op_$op" => 1,
);
"op_$op" => 1,
);