Bug 2505 - Add commented use warnings where missing in the acqui/ directory

[koha_fer] / acqui / newordersuggestion.pl

diff --git a/acqui/newordersuggestion.pl b/acqui/newordersuggestion.pl
index b5f2db0..ba966b6 100755 (executable)
--- a/acqui/newordersuggestion.pl
+++ b/acqui/newordersuggestion.pl
@@ -87,6 +87,7 @@ can be equal to
 =cut
 
 use strict;
+#use warnings; FIXME - Bug 2505
 
 use CGI;
 use C4::Auth;    # get_template_and_user
@@ -127,18 +128,18 @@ if ( $op eq 'connectDuplicate' ) {
 
 # getting all suggestions.
 my $suggestions_loop =
-  &SearchSuggestion( 
-                               { suggestedby   => $borrowernumber, 
-                               author                  => $author, 
-                               title                   => $title, 
-                               publishercode   => $publishercode,
-                               status              => 'ACCEPTED'});
+        &SearchSuggestion( 
+                { managedby    => $borrowernumber, 
+                author                 => $author, 
+                title                  => $title, 
+                publishercode  => $publishercode,
+                status             => 'ACCEPTED'});
 my $vendor = GetBookSellerFromId($supplierid);
 $template->param(
     suggestions_loop        => $suggestions_loop,
     basketno                => $basketno,
     supplierid              => $supplierid,
-       name                                    => $vendor->{'name'},
+    name                                       => $vendor->{'name'},
     "op_$op"                => 1,
 );