X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=acqui%2Fnewordersuggestion.pl;h=839b4f4bbf7d6cb364f1c8f65cd7d87f3ae4c6cc;hb=7c224d1cb05099749d4046a4dad75ae49ff186cc;hp=efc634bf2c514dd9c439c814b8725612e258912d;hpb=068e5be6395088793aeab66d67c36c2b9da2c5d9;p=koha.git diff --git a/acqui/newordersuggestion.pl b/acqui/newordersuggestion.pl index efc634bf2c..839b4f4bbf 100755 --- a/acqui/newordersuggestion.pl +++ b/acqui/newordersuggestion.pl @@ -91,13 +91,14 @@ can be equal to use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; # get_template_and_user use C4::Output; use C4::Suggestions; -use C4::Bookseller qw/ GetBookSellerFromId /; use C4::Biblio; +use Koha::Acquisition::Bookseller; + my $input = new CGI; # getting the CGI params @@ -116,10 +117,9 @@ $op = 'else' unless $op; my $dbh = C4::Context->dbh; my ( $template, $borrowernumber, $cookie ) = get_template_and_user( { - template_name => "acqui/newordersuggestion.tmpl", + template_name => "acqui/newordersuggestion.tt", type => "intranet", query => $input, - authnotrequired => 1, flagsrequired => { acquisition => 'order_manage' }, } ); @@ -129,19 +129,21 @@ if ( $op eq 'connectDuplicate' ) { } # getting all suggestions. -my $suggestions_loop = - &SearchSuggestion( - { managedby => $borrowernumber, - author => $author, - title => $title, - publishercode => $publishercode, - STATUS => 'ACCEPTED'}); -my $vendor = GetBookSellerFromId($booksellerid); +my $suggestions_loop = SearchSuggestion( + { + author => $author, + title => $title, + publishercode => $publishercode, + STATUS => 'ACCEPTED' + } +); +my $vendor = Koha::Acquisition::Bookseller->fetch({ id => $booksellerid }); $template->param( suggestions_loop => $suggestions_loop, basketno => $basketno, booksellerid => $booksellerid, name => $vendor->{'name'}, + loggedinuser => $borrowernumber, "op_$op" => 1, );