From b3b8de6175cee811fe909ad05b9534fd40d60a7e Mon Sep 17 00:00:00 2001 From: Matthias Meusburger 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