From 33ae9c9185f833ee4da6c89e5e5a51109392aa41 Mon Sep 17 00:00:00 2001 From: Mason James Date: Wed, 27 Jun 2012 02:02:26 +1200 Subject: [PATCH] Bug 6679 - [SIGNED-OFF] fix 5 perlcritic violations in C4/Serials.pm - Subroutine prototypes used at line 161, column 1. See page 194 of PBP. (Severity: 5) Signed-off-by: Jonathan Druart Signed-off-by: Paul Poulain --- C4/Serials.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/C4/Serials.pm b/C4/Serials.pm index eb620cc719..cedbcfff86 100644 --- a/C4/Serials.pm +++ b/C4/Serials.pm @@ -160,7 +160,7 @@ After this function, don't forget to execute it by using $sth->execute($subscrip =cut -sub GetSubscriptionHistoryFromSubscriptionId() { +sub GetSubscriptionHistoryFromSubscriptionId { my $dbh = C4::Context->dbh; my $query = qq| SELECT * @@ -180,7 +180,7 @@ $sth = $dbh->prepare($query). =cut -sub GetSerialStatusFromSerialId() { +sub GetSerialStatusFromSerialId { my $dbh = C4::Context->dbh; my $query = qq| SELECT status @@ -1179,7 +1179,7 @@ $nextexepected = { =cut -sub GetNextExpected($) { +sub GetNextExpected { my ($subscriptionid) = @_; my $dbh = C4::Context->dbh; my $sth = $dbh->prepare('SELECT serialid, planneddate FROM serial WHERE subscriptionid=? AND status=?'); @@ -1214,7 +1214,7 @@ returns 0 =cut -sub ModNextExpected($$) { +sub ModNextExpected { my ( $subscriptionid, $date ) = @_; my $dbh = C4::Context->dbh; @@ -2295,7 +2295,7 @@ Return 0 if periodicity==0 =cut -sub GetNextDate(@) { +sub GetNextDate { my ( $planneddate, $subscription ) = @_; my @irreg = split( /\,/, $subscription->{irregularity} ); -- 2.39.5