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

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

Return to bug 17674