X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=acqui%2Fnewordersuggestion.pl;h=e56e52197d84297b5c1d30ad5d789262f17d3e41;hb=309c1d23b73abe9a746fc2caf02c890a4840856a;hp=bc424465c1c1b7519f6de94de66025ba1c03f80a;hpb=2ffd5b7228f4e638583162d483e1dd2febeafe1b;p=koha.git diff --git a/acqui/newordersuggestion.pl b/acqui/newordersuggestion.pl index bc424465c1..e56e52197d 100755 --- a/acqui/newordersuggestion.pl +++ b/acqui/newordersuggestion.pl @@ -15,7 +15,6 @@ # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, # Suite 330, Boston, MA 02111-1307 USA -# $Id$ =head1 NAME @@ -88,11 +87,12 @@ can be equal to =cut use strict; -require Exporter; + use CGI; use C4::Auth; # get_template_and_user -use C4::Interface::CGI::Output; +use C4::Output; use C4::Suggestions; +use C4::Bookseller; use C4::Biblio; my $input = new CGI; @@ -128,16 +128,13 @@ if ( $op eq 'connectDuplicate' ) { my $suggestions_loop = &SearchSuggestion( $borrowernumber, $author, $title, $publishercode,'ACCEPTED', -1 ); - +my $vendor = GetBookSellerFromId($supplierid); $template->param( suggestions_loop => $suggestions_loop, basketno => $basketno, supplierid => $supplierid, + name => $vendor->{'name'}, "op_$op" => 1, - intranetcolorstylesheet => - C4::Context->preference("intranetcolorstylesheet"), - intranetstylesheet => C4::Context->preference("intranetstylesheet"), - IntranetNav => C4::Context->preference("IntranetNav"), ); output_html_with_http_headers $input, $cookie, $template->output;