From 908a62bf9d76f367a630cf63d322a7cbd0166337 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 63d406f..2418b26 100644 --- a/C4/Serials.pm +++ b/C4/Serials.pm @@ -2724,24 +2724,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