MT 1883 : Subscription renewal didn't work with RenewSerialAddsSuggestion enabled

diff --git a/C4/Serials.pm b/C4/Serials.pm
index f7e90e0..01db3f1 100644 (file)
--- a/C4/Serials.pm
+++ b/C4/Serials.pm
@@ -1484,14 +1484,15 @@ sub ReNewSubscription {
      $sth->execute( $subscription->{biblionumber} );
      my $biblio = $sth->fetchrow_hashref;
      if (C4::Context->preference("RenewSerialAddsSuggestion")){
-        NewSuggestion(
-            $user,             $subscription->{bibliotitle},
-            $biblio->{author}, $biblio->{publishercode},
-            $biblio->{note},   '',
-            '',                '',
-            '',                '',
-            $subscription->{biblionumber}
-        );
+
+        NewSuggestion({
+            'suggestedby'   => $user,             
+           'title'         => $subscription->{bibliotitle},
+            'author'        => $biblio->{author}, 
+           'publishercode' => $biblio->{publishercode},
+            'note'          => $biblio->{note}, 
+            'biblionumber'  => $subscription->{biblionumber}
+        });
     }
 
     # renew subscription