@@ -, +, @@ --- C4/Serials.pm | 20 +++++++++++++------- 1 file changed, 13 insertions(+), 7 deletions(-) --- a/C4/Serials.pm +++ a/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); --