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

(-)a/C4/Serials.pm (-8 / +13 lines)
Lines 2712-2735 sub _can_do_on_subscription { Link Here
2712
    }
2712
    }
2713
    return 0;
2713
    return 0;
2714
}
2714
}
2715
2715
=head1 GetSerialItemsInformations
2716
=head1 GetSerialItemsInformations
2717
2718
    @serialsitemsinformations = GetSerialItemsInformations (@serialid)
2719
2720
    return an array of specifique information of serials and serialitem a given array of serialid
2721
2716
=cut
2722
=cut
2723
2717
sub GetSerialItemsInformations{
2724
sub GetSerialItemsInformations{
2718
my (@serialid)=@_;
2725
    my (@serialid)=@_;
2719
my $i=0;
2726
    my @serialitemsinformation;
2720
my @serialitemsinformation;
2727
    my $dbh = C4::Context->dbh;
2721
my $dbh = C4::Context->dbh;
2728
    foreach my $sid(@serialid){
2722
foreach my $sid(@serialid){
2723
        my $sth = $dbh->prepare("select count(i.itemnumber) as countitems,s.itemnumber as itemnumber  from items i  natural join  serialitems s where s.serialid=?");
2729
        my $sth = $dbh->prepare("select count(i.itemnumber) as countitems,s.itemnumber as itemnumber  from items i  natural join  serialitems s where s.serialid=?");
2724
        $sth->execute($sid);
2730
        $sth->execute($sid);
2725
        my $line   = $sth->fetchrow_hashref;
2731
        my $line   = $sth->fetchrow_hashref;
2726
        if($line->{'countitems'}){
2732
        if($line->{'countitems'}){
2727
            push @serialitemsinformation,$line;
2733
            push @serialitemsinformation,$line;
2728
        }
2734
        }
2729
}
2735
    }
2730
    return @serialitemsinformation;
2736
    return @serialitemsinformation;
2731
2732
}
2737
}
2738
2733
=head2 findSerialsByStatus
2739
=head2 findSerialsByStatus
2734
2740
2735
    @serials = findSerialsByStatus($status, $subscriptionid);
2741
    @serials = findSerialsByStatus($status, $subscriptionid);
2736
- 

Return to bug 17674