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

(-)a/Koha/Item.pm (-2 / +15 lines)
Lines 55-60 use Koha::StockRotationItem; Link Here
55
use Koha::StockRotationRotas;
55
use Koha::StockRotationRotas;
56
use Koha::TrackedLinks;
56
use Koha::TrackedLinks;
57
use Koha::Policy::Holds;
57
use Koha::Policy::Holds;
58
use Koha::Cache::Memory::Lite;
58
59
59
use base qw(Koha::Object);
60
use base qw(Koha::Object);
60
61
Lines 1857-1863 Returns whether the item is a bundle or not Link Here
1857
1858
1858
sub is_bundle {
1859
sub is_bundle {
1859
    my ($self) = @_;
1860
    my ($self) = @_;
1860
    return $self->bundle_items->count ? 1 : 0;
1861
    my $dbi_cache = Koha::Cache::Memory::Lite->get_instance;
1862
    my $cache_key = "DBI->count:is_bundle_count";
1863
    my $sth = $dbi_cache->get_from_cache($cache_key);
1864
    unless(defined($sth)) {
1865
        my $query = "SELECT COUNT(*) FROM items i LEFT JOIN item_bundles ib ON i.itemnumber = ib.item WHERE ib.host = ?";
1866
        my $dbh = C4::Context->dbh;
1867
        $sth = $dbh->prepare($query);
1868
        $dbi_cache->set_in_cache( $cache_key, $sth );
1869
    }
1870
1871
    $sth->execute($self->itemnumber);
1872
    my $count = $sth->fetchrow_arrayref()->[0];
1873
1874
    return $count ? 1 : 0;
1861
}
1875
}
1862
1876
1863
=head3 bundle_host
1877
=head3 bundle_host
1864
- 

Return to bug 36441