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

(-)a/Koha/Biblio.pm (+15 lines)
Lines 248-253 sub itemtype { Link Here
248
    return $self->_biblioitem()->itemtype();
248
    return $self->_biblioitem()->itemtype();
249
}
249
}
250
250
251
=head3 holds
252
253
my $holds = $biblio->holds();
254
255
return the current holds placed on this record
256
257
=cut
258
259
sub holds {
260
    my ( $self ) = @_;
261
262
    my $holds_rs = $self->_result->reserves;
263
    return Koha::Holds->_new_from_dbic( $holds_rs );
264
}
265
251
=head3 _biblioitem
266
=head3 _biblioitem
252
267
253
my $field = $self->_biblioitem()->itemtype
268
my $field = $self->_biblioitem()->itemtype
(-)a/t/db_dependent/Koha/Biblios.t (-1 / +57 lines)
Line 0 Link Here
0
- 
1
#!/usr/bin/perl
2
3
# Copyright 2016 Koha Development team
4
#
5
# This file is part of Koha
6
#
7
# Koha is free software; you can redistribute it and/or modify it
8
# under the terms of the GNU General Public License as published by
9
# the Free Software Foundation; either version 3 of the License, or
10
# (at your option) any later version.
11
#
12
# Koha is distributed in the hope that it will be useful, but
13
# WITHOUT ANY WARRANTY; without even the implied warranty of
14
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15
# GNU General Public License for more details.
16
#
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
20
use Modern::Perl;
21
22
use Test::More tests => 1;
23
24
use C4::Reserves;
25
26
use Koha::Biblios;
27
use Koha::Patrons;
28
use t::lib::TestBuilder;
29
use t::lib::Mocks;
30
31
my $schema = Koha::Database->new->schema;
32
$schema->storage->txn_begin;
33
34
my $builder = t::lib::TestBuilder->new;
35
my $patron = $builder->build( { source => 'Borrower' } );
36
$patron = Koha::Patrons->find( $patron->{borrowernumber} );
37
38
my $biblio = Koha::Biblio->new()->store();
39
40
my $biblioitem = $schema->resultset('Biblioitem')->new(
41
    {
42
        biblionumber => $biblio->id
43
    }
44
)->insert();
45
46
subtest 'holds' => sub {
47
    plan tests => 3;
48
    C4::Reserves::AddReserve( $patron->branchcode, $patron->borrowernumber, $biblio->biblionumber );
49
    my $holds = $biblio->holds;
50
    is( ref($holds), 'Koha::Holds', '->holds should return a Koha::Holds object' );
51
    is( $holds->count, 1, '->holds should only return 1 hold' );
52
    is( $holds->next->borrowernumber, $patron->borrowernumber, '->holds should return the correct hold' );
53
};
54
55
$schema->storage->txn_rollback;
56
57
1;

Return to bug 17630