6 use Koha
::CirculationRules
;
8 use Test
::More tests
=> 11;
10 use t
::lib
::TestBuilder
;
15 use_ok
('C4::Reserves');
18 my $schema = Koha
::Database
->schema;
19 $schema->storage->txn_begin;
20 my $dbh = C4
::Context
->dbh;
22 my $builder = t
::lib
::TestBuilder
->new;
24 my $library1 = $builder->build({
27 my $library2 = $builder->build({
30 my $library3 = $builder->build({
33 my $itemtype = $builder->build({ source
=> 'Item' })->{itype
};
35 my $bib_title = "Test Title";
37 my $borrower = $builder->build({
40 branchcode
=> $library1->{branchcode
},
44 # Test hold_fulfillment_policy
45 my $borrowernumber = $borrower->{borrowernumber
};
46 my $library_A = $library1->{branchcode
};
47 my $library_B = $library2->{branchcode
};
48 my $library_C = $library3->{branchcode
};
49 $dbh->do("DELETE FROM transport_cost");
50 $dbh->do("DELETE FROM tmp_holdsqueue");
51 $dbh->do("DELETE FROM hold_fill_targets");
52 $dbh->do("DELETE FROM circulation_rules");
54 $dbh->do("INSERT INTO biblio (frameworkcode, author, title, datecreated) VALUES ('', 'Koha test', '$bib_title', '2011-02-01')");
56 my $biblionumber = $dbh->selectrow_array("SELECT biblionumber FROM biblio WHERE title = '$bib_title'")
57 or BAIL_OUT
("Cannot find newly created biblio record");
59 $dbh->do("INSERT INTO biblioitems (biblionumber, itemtype) VALUES ($biblionumber, '$itemtype')");
61 my $biblioitemnumber =
62 $dbh->selectrow_array("SELECT biblioitemnumber FROM biblioitems WHERE biblionumber = $biblionumber")
63 or BAIL_OUT
("Cannot find newly created biblioitems record");
66 INSERT INTO items (biblionumber, biblioitemnumber, homebranch, holdingbranch, notforloan, damaged, itemlost, withdrawn, onloan, itype)
67 VALUES ($biblionumber, $biblioitemnumber, '$library_A', '$library_B', 0, 0, 0, 0, NULL, '$itemtype')
71 $dbh->selectrow_array("SELECT itemnumber FROM items WHERE biblionumber = $biblionumber")
72 or BAIL_OUT
("Cannot find newly created item");
74 # With hold_fulfillment_policy = homebranch, hold should only be picked up if pickup branch = homebranch
75 $dbh->do("DELETE FROM circulation_rules");
76 Koha
::CirculationRules
->set_rules(
78 categorycode
=> undef,
83 hold_fulfillment_policy
=> 'homebranch',
88 # Home branch matches pickup branch
89 my $reserve_id = AddReserve
( $library_A, $borrowernumber, $biblionumber, '', 1 );
90 my ( $status ) = CheckReserves
($itemnumber);
91 is
( $status, 'Reserved', "Hold where pickup branch matches home branch targeted" );
92 Koha
::Holds
->find( $reserve_id )->cancel;
94 # Holding branch matches pickup branch
95 $reserve_id = AddReserve
( $library_B, $borrowernumber, $biblionumber, '', 1 );
96 ( $status ) = CheckReserves
($itemnumber);
97 is
($status, q{}, "Hold where pickup ne home, pickup eq home not targeted" );
98 Koha
::Holds
->find( $reserve_id )->cancel;
100 # Neither branch matches pickup branch
101 $reserve_id = AddReserve
( $library_C, $borrowernumber, $biblionumber, '', 1 );
102 ( $status ) = CheckReserves
($itemnumber);
103 is
( $status, q{}, "Hold where pickup ne home, pickup ne holding not targeted" );
104 Koha
::Holds
->find( $reserve_id )->cancel;
106 # With hold_fulfillment_policy = holdingbranch, hold should only be picked up if pickup branch = holdingbranch
107 $dbh->do("DELETE FROM circulation_rules");
108 Koha
::CirculationRules
->set_rules(
110 categorycode
=> undef,
115 hold_fulfillment_policy
=> 'holdingbranch',
120 # Home branch matches pickup branch
121 $reserve_id = AddReserve
( $library_A, $borrowernumber, $biblionumber, '', 1 );
122 ( $status ) = CheckReserves
($itemnumber);
123 is
( $status, q{}, "Hold where pickup eq home, pickup ne holding not targeted" );
124 Koha
::Holds
->find( $reserve_id )->cancel;
126 # Holding branch matches pickup branch
127 $reserve_id = AddReserve
( $library_B, $borrowernumber, $biblionumber, '', 1 );
128 ( $status ) = CheckReserves
($itemnumber);
129 is
( $status, 'Reserved', "Hold where pickup ne home, pickup eq holding targeted" );
130 Koha
::Holds
->find( $reserve_id )->cancel;
132 # Neither branch matches pickup branch
133 $reserve_id = AddReserve
( $library_C, $borrowernumber, $biblionumber, '', 1 );
134 ( $status ) = CheckReserves
($itemnumber);
135 is
( $status, q{}, "Hold where pickup ne home, pickup ne holding not targeted" );
136 Koha
::Holds
->find( $reserve_id )->cancel;
138 # With hold_fulfillment_policy = any, hold should be pikcup up reguardless of matching home or holding branch
139 $dbh->do("DELETE FROM circulation_rules");
140 Koha
::CirculationRules
->set_rules(
142 categorycode
=> undef,
147 hold_fulfillment_policy
=> 'any',
152 # Home branch matches pickup branch
153 $reserve_id = AddReserve
( $library_A, $borrowernumber, $biblionumber, '', 1 );
154 ( $status ) = CheckReserves
($itemnumber);
155 is
( $status, 'Reserved', "Hold where pickup eq home, pickup ne holding targeted" );
156 Koha
::Holds
->find( $reserve_id )->cancel;
158 # Holding branch matches pickup branch
159 $reserve_id = AddReserve
( $library_B, $borrowernumber, $biblionumber, '', 1 );
160 ( $status ) = CheckReserves
($itemnumber);
161 is
( $status, 'Reserved', "Hold where pickup ne home, pickup eq holding targeted" );
162 Koha
::Holds
->find( $reserve_id )->cancel;
164 # Neither branch matches pickup branch
165 $reserve_id = AddReserve
( $library_C, $borrowernumber, $biblionumber, '', 1 );
166 ( $status ) = CheckReserves
($itemnumber);
167 is
( $status, 'Reserved', "Hold where pickup ne home, pickup ne holding targeted" );
168 Koha
::Holds
->find( $reserve_id )->cancel;
170 # Test enforement of branch transfer limits
171 t
::lib
::Mocks
::mock_preference
( 'UseBranchTransferLimits', '1' );
172 t
::lib
::Mocks
::mock_preference
( 'BranchTransferLimitsType', 'itemtype' );
173 Koha
::Holds
->search()->delete();
174 my ($item) = Koha
::Biblios
->find($biblionumber)->items->as_list;
175 my $limit = Koha
::Item
::Transfer
::Limit
->new(
177 toBranch
=> $library_C,
178 fromBranch
=> $item->holdingbranch,
179 itemtype
=> $item->effective_itemtype,
182 $reserve_id = AddReserve
( $library_C, $borrowernumber, $biblionumber, '', 1 );
183 ($status) = CheckReserves
($itemnumber);
184 is
( $status, '', "No hold where branch transfer is not allowed" );
185 Koha
::Holds
->find($reserve_id)->cancel;