From 85e666c308348af77e0f16e5fcca84e1ced0f9e7 Mon Sep 17 00:00:00 2001 From: Bouzid Fergani Date: Fri, 16 Dec 2016 10:43:43 -0500 Subject: [PATCH] Bug 17674: Fix problem tabs MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Sonia BOUIS Signed-off-by: Séverine QUEUNE --- C4/Serials.pm | 20 +++++++++++++------- 1 file changed, 13 insertions(+), 7 deletions(-) diff --git a/C4/Serials.pm b/C4/Serials.pm index 78607de..bab22fc 100644 --- a/C4/Serials.pm +++ b/C4/Serials.pm @@ -2595,24 +2595,30 @@ sub _can_do_on_subscription { } return 0; } + =head1 GetSerialItemsInformations + + @serialsitemsinformations = GetSerialItemsInformations (@serialid) + + return an array of specifique information of serials and serialitem a given array of serialid + =cut + sub GetSerialItemsInformations{ -my (@serialid)=@_; -my $i=0; -my @serialitemsinformation; -my $dbh = C4::Context->dbh; -foreach my $sid(@serialid){ + my (@serialid)=@_; + my @serialitemsinformation; + my $dbh = C4::Context->dbh; + foreach my $sid(@serialid){ my $sth = $dbh->prepare("select count(i.itemnumber) as countitems,s.itemnumber as itemnumber from items i natural join serialitems s where s.serialid=?"); $sth->execute($sid); my $line = $sth->fetchrow_hashref; if($line->{'countitems'}){ push @serialitemsinformation,$line; } -} + } return @serialitemsinformation; - } + =head2 findSerialsByStatus @serials = findSerialsByStatus($status, $subscriptionid); -- 2.7.4