View | Details | Raw Unified | Return to bug 17674
Collapse All | Expand All

(-)a/C4/Serials.pm (-8 / +13 lines)
Lines 2595-2618 sub _can_do_on_subscription { Link Here
2595
    }
2595
    }
2596
    return 0;
2596
    return 0;
2597
}
2597
}
2598
2598
=head1 GetSerialItemsInformations
2599
=head1 GetSerialItemsInformations
2600
2601
    @serialsitemsinformations = GetSerialItemsInformations (@serialid)
2602
2603
    return an array of specifique information of serials and serialitem a given array of serialid
2604
2599
=cut
2605
=cut
2606
2600
sub GetSerialItemsInformations{
2607
sub GetSerialItemsInformations{
2601
my (@serialid)=@_;
2608
    my (@serialid)=@_;
2602
my $i=0;
2609
    my @serialitemsinformation;
2603
my @serialitemsinformation;
2610
    my $dbh = C4::Context->dbh;
2604
my $dbh = C4::Context->dbh;
2611
    foreach my $sid(@serialid){
2605
foreach my $sid(@serialid){
2606
        my $sth = $dbh->prepare("select count(i.itemnumber) as countitems,s.itemnumber as itemnumber  from items i  natural join  serialitems s where s.serialid=?");
2612
        my $sth = $dbh->prepare("select count(i.itemnumber) as countitems,s.itemnumber as itemnumber  from items i  natural join  serialitems s where s.serialid=?");
2607
        $sth->execute($sid);
2613
        $sth->execute($sid);
2608
        my $line   = $sth->fetchrow_hashref;
2614
        my $line   = $sth->fetchrow_hashref;
2609
        if($line->{'countitems'}){
2615
        if($line->{'countitems'}){
2610
            push @serialitemsinformation,$line;
2616
            push @serialitemsinformation,$line;
2611
        }
2617
        }
2612
}
2618
    }
2613
    return @serialitemsinformation;
2619
    return @serialitemsinformation;
2614
2615
}
2620
}
2621
2616
=head2 findSerialsByStatus
2622
=head2 findSerialsByStatus
2617
2623
2618
    @serials = findSerialsByStatus($status, $subscriptionid);
2624
    @serials = findSerialsByStatus($status, $subscriptionid);
2619
- 

Return to bug 17674