Editing C4::Suggestions.pm

[koha.git] / acqui / newordersuggestion.pl

diff --git a/acqui/newordersuggestion.pl b/acqui/newordersuggestion.pl
index e56e521..7d53bc2 100755 (executable)
--- a/acqui/newordersuggestion.pl
+++ b/acqui/newordersuggestion.pl
@@ -126,8 +126,12 @@ if ( $op eq 'connectDuplicate' ) {
 
 # getting all suggestions.
 my $suggestions_loop =
-  &SearchSuggestion( $borrowernumber, $author, $title, $publishercode,'ACCEPTED',
-    -1 );
+  &SearchSuggestion( 
+                               { suggestedby   => $borrowernumber, 
+                               author                  => $author, 
+                               title                   => $title, 
+                               publishercode   => $publishercode,
+                               status              => 'ACCEPTED'});
 my $vendor = GetBookSellerFromId($supplierid);
 $template->param(
     suggestions_loop        => $suggestions_loop,