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

(-)a/C4/Serials.pm (-8 / +13 lines)
Lines 2724-2747 sub _can_do_on_subscription { Link Here
2724
    }
2724
    }
2725
    return 0;
2725
    return 0;
2726
}
2726
}
2727
2727
=head1 GetSerialItemsInformations
2728
=head1 GetSerialItemsInformations
2729
2730
    @serialsitemsinformations = GetSerialItemsInformations (@serialid)
2731
2732
    return an array of specifique information of serials and serialitem a given array of serialid
2733
2728
=cut
2734
=cut
2735
2729
sub GetSerialItemsInformations{
2736
sub GetSerialItemsInformations{
2730
my (@serialid)=@_;
2737
    my (@serialid)=@_;
2731
my $i=0;
2738
    my @serialitemsinformation;
2732
my @serialitemsinformation;
2739
    my $dbh = C4::Context->dbh;
2733
my $dbh = C4::Context->dbh;
2740
    foreach my $sid(@serialid){
2734
foreach my $sid(@serialid){
2735
        my $sth = $dbh->prepare("select count(i.itemnumber) as countitems,s.itemnumber as itemnumber  from items i  natural join  serialitems s where s.serialid=?");
2741
        my $sth = $dbh->prepare("select count(i.itemnumber) as countitems,s.itemnumber as itemnumber  from items i  natural join  serialitems s where s.serialid=?");
2736
        $sth->execute($sid);
2742
        $sth->execute($sid);
2737
        my $line   = $sth->fetchrow_hashref;
2743
        my $line   = $sth->fetchrow_hashref;
2738
        if($line->{'countitems'}){
2744
        if($line->{'countitems'}){
2739
            push @serialitemsinformation,$line;
2745
            push @serialitemsinformation,$line;
2740
        }
2746
        }
2741
}
2747
    }
2742
    return @serialitemsinformation;
2748
    return @serialitemsinformation;
2743
2744
}
2749
}
2750
2745
=head2 findSerialsByStatus
2751
=head2 findSerialsByStatus
2746
2752
2747
    @serials = findSerialsByStatus($status, $subscriptionid);
2753
    @serials = findSerialsByStatus($status, $subscriptionid);
2748
- 

Return to bug 17674