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

(-)a/Koha/Biblio.pm (-1 / +32 lines)
Lines 35-44 use Koha::Acquisition::Orders; Link Here
35
use Koha::ArticleRequests;
35
use Koha::ArticleRequests;
36
use Koha::Biblio::Metadatas;
36
use Koha::Biblio::Metadatas;
37
use Koha::Biblioitems;
37
use Koha::Biblioitems;
38
use Koha::Checkouts;
38
use Koha::CirculationRules;
39
use Koha::CirculationRules;
39
use Koha::Item::Transfer::Limits;
40
use Koha::Item::Transfer::Limits;
40
use Koha::Items;
41
use Koha::Items;
41
use Koha::Libraries;
42
use Koha::Libraries;
43
use Koha::Old::Checkouts;
42
use Koha::Suggestions;
44
use Koha::Suggestions;
43
use Koha::Subscriptions;
45
use Koha::Subscriptions;
44
46
Lines 353-358 sub article_requests { Link Here
353
    return Koha::ArticleRequests->_new_from_dbic( scalar $self->_result->article_requests );
355
    return Koha::ArticleRequests->_new_from_dbic( scalar $self->_result->article_requests );
354
}
356
}
355
357
358
=head3 current_checkouts
359
360
    my $current_checkouts = $biblio->current_checkouts
361
362
Returns the current checkouts associated with this biblio
363
364
=cut
365
366
sub current_checkouts {
367
    my ($self) = @_;
368
369
    return Koha::Checkouts->search( { "item.biblionumber" => $self->id },
370
        { join => 'item' } );
371
}
372
373
=head3 old_checkouts
374
375
    my $old_checkouts = $biblio->old_checkouts
376
377
Returns the past checkouts associated with this biblio
378
379
=cut
380
381
sub old_checkouts {
382
    my ( $self ) = @_;
383
384
    return Koha::Old::Checkouts->search( { "item.biblionumber" => $self->id },
385
        { join => 'item' } );
386
}
387
356
=head3 items
388
=head3 items
357
389
358
my $items = $biblio->items();
390
my $items = $biblio->items();
359
- 

Return to bug 29288