X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=acqui%2Fnewordersuggestion.pl;h=efc634bf2c514dd9c439c814b8725612e258912d;hb=0f6882896d6a806fb474b1fd172e3e93919d960c;hp=b65e4ea62488fd9063f20a687417920bb74961ba;hpb=63541e4223224831e4eb2bb51d108cc4a2155388;p=koha.git diff --git a/acqui/newordersuggestion.pl b/acqui/newordersuggestion.pl index b65e4ea624..efc634bf2c 100755 --- a/acqui/newordersuggestion.pl +++ b/acqui/newordersuggestion.pl @@ -1,5 +1,8 @@ #!/usr/bin/perl +# Copyright 2006 Biblibre +# Parts Copyright 2011 PTFS Europe +# # This file is part of Koha. # # Koha is free software; you can redistribute it and/or modify it under the @@ -11,10 +14,9 @@ # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR # A PARTICULAR PURPOSE. See the GNU General Public License for more details. # -# You should have received a copy of the GNU General Public License along with -# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA - +# You should have received a copy of the GNU General Public License along +# with Koha; if not, write to the Free Software Foundation, Inc., +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. =head1 NAME @@ -100,7 +102,7 @@ my $input = new CGI; # getting the CGI params my $basketno = $input->param('basketno'); -my $supplierid = $input->param('booksellerid'); +my $booksellerid = $input->param('booksellerid'); my $author = $input->param('author'); my $title = $input->param('title'); my $publishercode = $input->param('publishercode'); @@ -134,11 +136,11 @@ my $suggestions_loop = title => $title, publishercode => $publishercode, STATUS => 'ACCEPTED'}); -my $vendor = GetBookSellerFromId($supplierid); +my $vendor = GetBookSellerFromId($booksellerid); $template->param( suggestions_loop => $suggestions_loop, basketno => $basketno, - supplierid => $supplierid, + booksellerid => $booksellerid, name => $vendor->{'name'}, "op_$op" => 1, );