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

(-)a/Koha/Item.pm (-2 / +12 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 $memory_cache = Koha::Cache::Memory::Lite->get_instance;
1862
    my $cache_key = 'Koha::Item:is_bundle_dbi_sth';
1863
    my $sth = $memory_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
        $memory_cache->set_in_cache($cache_key, $sth);
1869
    }
1870
    $sth->execute($self->itemnumber);
1871
    return $sth->fetchrow_arrayref()->[0] ? 1 : 0;
1861
}
1872
}
1862
1873
1863
=head3 bundle_host
1874
=head3 bundle_host
1864
- 

Return to bug 36441