From 3a5e3fb8bc94c6a91a5f7e5542f19442be1fe594 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 Signed-off-by: Sonia BOUIS --- C4/Serials.pm | 20 +++++++++++++------- 1 file changed, 13 insertions(+), 7 deletions(-) diff --git a/C4/Serials.pm b/C4/Serials.pm index 06b528f..e919693 100644 --- a/C4/Serials.pm +++ b/C4/Serials.pm @@ -2721,24 +2721,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