From b3b8de6175cee811fe909ad05b9534fd40d60a7e Mon Sep 17 00:00:00 2001
From: Matthias Meusburger <matthias.meusburger@biblibre.com>
Date: Wed, 16 Sep 2009 17:12:22 +0200
Subject: [PATCH] MT 1883 : Subscription renewal didn't work with
 RenewSerialAddsSuggestion enabled

---
 C4/Serials.pm | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/C4/Serials.pm b/C4/Serials.pm
index f7e90e0c32..01db3f19a7 100644
--- 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
-- 
2.39.5