3 # This file is part of Koha.
5 # Koha is free software; you can redistribute it and/or modify it
6 # under the terms of the GNU General Public License as published by
7 # the Free Software Foundation; either version 3 of the License, or
8 # (at your option) any later version.
10 # Koha is distributed in the hope that it will be useful, but
11 # WITHOUT ANY WARRANTY; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 # GNU General Public License for more details.
15 # You should have received a copy of the GNU General Public License
16 # along with Koha; if not, see <http://www.gnu.org/licenses>.
24 use Koha
::CirculationRules
;
28 use Test
::More tests
=> 14;
30 use t
::lib
::TestBuilder
;
33 use_ok
('C4::Circulation');
36 can_ok
( 'C4::Circulation', qw(
39 GetBranchBorrowerCircRule
44 my $schema = Koha
::Database
->schema;
45 $schema->storage->txn_begin;
46 my $dbh = C4
::Context
->dbh;
49 $dbh->do(q
|DELETE FROM issues
|);
50 $dbh->do(q
|DELETE FROM items
|);
51 $dbh->do(q
|DELETE FROM borrowers
|);
52 $dbh->do(q
|DELETE FROM clubs
|);
53 $dbh->do(q
|DELETE FROM branches
|);
54 $dbh->do(q
|DELETE FROM categories
|);
55 $dbh->do(q
|DELETE FROM accountlines
|);
56 $dbh->do(q
|DELETE FROM itemtypes
|);
57 $dbh->do(q
|DELETE FROM circulation_rules
|);
59 my $builder = t
::lib
::TestBuilder
->new();
62 my $samplebranch1 = $builder->build({ source
=> 'Branch' });
63 my $samplebranch2 = $builder->build({ source
=> 'Branch' });
65 my $no_circ_itemtype = $builder->build({
72 my $sampleitemtype1 = $builder->build({
75 rentalcharge
=> '10.0',
79 my $sampleitemtype2 = $builder->build({
82 rentalcharge
=> '5.0',
87 my $samplecat = $builder->build({
95 my $record = MARC
::Record
->new();
96 $record->append_fields(
97 MARC
::Field
->new( '952', '0', '0', a
=> $samplebranch1->{branchcode
} ) );
98 my ( $biblionumber, $biblioitemnumber ) = C4
::Biblio
::AddBiblio
( $record, '' );
100 # item 1 has home branch and holding branch samplebranch1
101 my @sampleitem1 = C4
::Items
::AddItem
(
103 barcode
=> 'barcode_1',
104 itemcallnumber
=> 'callnumber1',
105 homebranch
=> $samplebranch1->{branchcode
},
106 holdingbranch
=> $samplebranch1->{branchcode
},
107 itype
=> $no_circ_itemtype->{ itemtype
}
111 my $item_id1 = $sampleitem1[2];
113 # item 2 has holding branch samplebranch2
114 my @sampleitem2 = C4
::Items
::AddItem
(
116 barcode
=> 'barcode_2',
117 itemcallnumber
=> 'callnumber2',
118 homebranch
=> $samplebranch2->{branchcode
},
119 holdingbranch
=> $samplebranch1->{branchcode
},
120 itype
=> $no_circ_itemtype->{ itemtype
}
124 my $item_id2 = $sampleitem2[2];
126 # item 3 has item type sampleitemtype2 with noreturn policy
127 my @sampleitem3 = C4
::Items
::AddItem
(
129 barcode
=> 'barcode_3',
130 itemcallnumber
=> 'callnumber3',
131 homebranch
=> $samplebranch2->{branchcode
},
132 holdingbranch
=> $samplebranch2->{branchcode
},
133 itype
=> $sampleitemtype2->{itemtype
}
137 my $item_id3 = $sampleitem3[2];
140 my $borrower_id1 = Koha
::Patron
->new({
141 firstname
=> 'firstname1',
142 surname
=> 'surname1 ',
143 categorycode
=> $samplecat->{categorycode
},
144 branchcode
=> $samplebranch1->{branchcode
},
145 })->store->borrowernumber;
148 GetBranchBorrowerCircRule
(),
149 { patron_maxissueqty
=> undef, patron_maxonsiteissueqty
=> undef },
150 "Without parameter, GetBranchBorrower returns undef (unilimited) for patron_maxissueqty and patron_maxonsiteissueqty if no rules defined"
153 Koha
::CirculationRules
->set_rules(
155 branchcode
=> $samplebranch1->{branchcode
},
156 categorycode
=> $samplecat->{categorycode
},
159 patron_maxissueqty
=> 5,
160 patron_maxonsiteissueqty
=> 6,
165 Koha
::CirculationRules
->set_rules(
167 branchcode
=> $samplebranch2->{branchcode
},
168 categorycode
=> undef,
171 patron_maxissueqty
=> 3,
172 patron_maxonsiteissueqty
=> 2,
174 returnbranch
=> 'holdingbranch',
179 Koha
::CirculationRules
->set_rules(
182 categorycode
=> undef,
185 patron_maxissueqty
=> 4,
186 patron_maxonsiteissueqty
=> 5,
188 returnbranch
=> 'homebranch',
193 Koha
::CirculationRules
->set_rules(
195 branchcode
=> $samplebranch1->{branchcode
},
196 categorycode
=> undef,
197 itemtype
=> $sampleitemtype1->{itemtype
},
200 returnbranch
=> 'homebranch',
204 Koha
::CirculationRules
->set_rules(
206 branchcode
=> $samplebranch2->{branchcode
},
207 categorycode
=> undef,
208 itemtype
=> $sampleitemtype1->{itemtype
},
211 returnbranch
=> 'holdingbranch',
215 Koha
::CirculationRules
->set_rules(
217 branchcode
=> $samplebranch2->{branchcode
},
218 categorycode
=> undef,
219 itemtype
=> $sampleitemtype2->{itemtype
},
222 returnbranch
=> 'noreturn',
227 #Test GetBranchBorrowerCircRule
229 GetBranchBorrowerCircRule
(),
230 { patron_maxissueqty
=> 4, patron_maxonsiteissueqty
=> 5 },
231 "Without parameter, GetBranchBorrower returns the patron_maxissueqty and patron_maxonsiteissueqty of default_circ_rules"
234 GetBranchBorrowerCircRule
( $samplebranch2->{branchcode
} ),
235 { patron_maxissueqty
=> 3, patron_maxonsiteissueqty
=> 2 },
236 "Without only the branchcode specified, GetBranchBorrower returns the patron_maxissueqty and patron_maxonsiteissueqty corresponding"
239 GetBranchBorrowerCircRule
(
240 $samplebranch1->{branchcode
},
241 $samplecat->{categorycode
}
243 { patron_maxissueqty
=> 5, patron_maxonsiteissueqty
=> 6 },
244 "GetBranchBorrower returns the patron_maxissueqty and patron_maxonsiteissueqty of the branch1 and the category1"
247 GetBranchBorrowerCircRule
( -1, -1 ),
248 { patron_maxissueqty
=> 4, patron_maxonsiteissueqty
=> 5 },
249 "GetBranchBorrower with wrong parameters returns the patron_maxissueqty and patron_maxonsiteissueqty of default_circ_rules"
252 #Test GetBranchItemRule
253 my @lazy_any = ( 'hold_fulfillment_policy' => 'any' );
256 $samplebranch1->{branchcode
},
257 $sampleitemtype1->{itemtype
},
259 { returnbranch
=> 'homebranch', holdallowed
=> 5, @lazy_any },
260 "GetBranchitem returns holdallowed and return branch"
264 { returnbranch
=> 'homebranch', holdallowed
=> 3, @lazy_any },
265 "Without parameters GetBranchItemRule returns the values in default_circ_rules"
268 GetBranchItemRule
( $samplebranch2->{branchcode
} ),
269 { returnbranch
=> 'holdingbranch', holdallowed
=> 1, @lazy_any },
270 "With only a branchcode GetBranchItemRule returns values in default_branch_circ_rules"
273 GetBranchItemRule
( -1, -1 ),
274 { returnbranch
=> 'homebranch', holdallowed
=> 3, @lazy_any },
275 "With only one parametern GetBranchItemRule returns default values"
278 # Test return policies
279 t
::lib
::Mocks
::mock_preference
('AutomaticItemReturn','0');
281 # item1 returned at branch2 should trigger transfer to homebranch
283 "INSERT INTO issues (borrowernumber,itemnumber,branchcode) VALUES( ?,?,? )";
284 $dbh->do( $query, {}, $borrower_id1, $item_id1, $samplebranch1->{branchcode
} );
286 my ($doreturn, $messages, $iteminformation, $borrower) = AddReturn
('barcode_1',
287 $samplebranch2->{branchcode
});
288 is
( $messages->{NeedsTransfer
}, $samplebranch1->{branchcode
}, "AddReturn respects default return policy - return to homebranch" );
290 # item2 returned at branch2 should trigger transfer to holding branch
292 "INSERT INTO issues (borrowernumber,itemnumber,branchcode) VALUES( ?,?,? )";
293 $dbh->do( $query, {}, $borrower_id1, $item_id2, $samplebranch2->{branchcode
} );
294 ($doreturn, $messages, $iteminformation, $borrower) = AddReturn
('barcode_2',
295 $samplebranch2->{branchcode
});
296 is
( $messages->{NeedsTransfer
}, $samplebranch1->{branchcode
}, "AddReturn respects branch return policy - item2->homebranch policy = 'holdingbranch'" );
298 # item3 should not trigger transfer - floating collection
300 "INSERT INTO issues (borrowernumber,itemnumber,branchcode) VALUES( ?,?,? )";
301 $dbh->do( $query, {}, $borrower_id1, $item_id3, $samplebranch1->{branchcode
} );
302 t
::lib
::Mocks
::mock_preference
( 'item-level_itypes', 1 );
303 ($doreturn, $messages, $iteminformation, $borrower) = AddReturn
('barcode_3',
304 $samplebranch1->{branchcode
});
305 is
($messages->{NeedsTransfer
},undef,"AddReturn respects branch item return policy - noreturn");
306 t
::lib
::Mocks
::mock_preference
( 'item-level_itypes', 0 );
308 $schema->storage->txn_rollback;