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
use Koha::SearchEngine;
46
use Koha::SearchEngine;
Lines 356-361 sub article_requests { Link Here
356
    return Koha::ArticleRequests->_new_from_dbic( scalar $self->_result->article_requests );
358
    return Koha::ArticleRequests->_new_from_dbic( scalar $self->_result->article_requests );
357
}
359
}
358
360
361
=head3 current_checkouts
362
363
    my $current_checkouts = $biblio->current_checkouts
364
365
Returns the current checkouts associated with this biblio
366
367
=cut
368
369
sub current_checkouts {
370
    my ($self) = @_;
371
372
    return Koha::Checkouts->search( { "item.biblionumber" => $self->id },
373
        { join => 'item' } );
374
}
375
376
=head3 old_checkouts
377
378
    my $old_checkouts = $biblio->old_checkouts
379
380
Returns the past checkouts associated with this biblio
381
382
=cut
383
384
sub old_checkouts {
385
    my ( $self ) = @_;
386
387
    return Koha::Old::Checkouts->search( { "item.biblionumber" => $self->id },
388
        { join => 'item' } );
389
}
390
359
=head3 items
391
=head3 items
360
392
361
my $items = $biblio->items();
393
my $items = $biblio->items();
362
- 

Return to bug 29288