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>.
20 use Test
::More tests
=> 4;
25 use t
::lib
::TestBuilder
;
32 use Koha
::Account
::Lines
;
40 # Mock userenv, used by AddIssue
43 my $context = Test
::MockModule
->new('C4::Context');
49 number
=> $manager_id,
56 my $schema = Koha
::Database
->schema;
57 $schema->storage->txn_begin;
59 my $builder = t
::lib
::TestBuilder
->new();
60 Koha
::IssuingRules
->search->delete;
61 my $rule = Koha
::IssuingRule
->new(
71 subtest
"AddReturn logging on statistics table (item-level_itypes=1)" => sub {
75 # Set item-level item types
76 t
::lib
::Mocks
::mock_preference
( "item-level_itypes", 1 );
78 # Make sure logging is enabled
79 t
::lib
::Mocks
::mock_preference
( "IssueLog", 1 );
80 t
::lib
::Mocks
::mock_preference
( "ReturnLog", 1 );
82 # Create an itemtype for biblio-level item type
83 my $blevel_itemtype = $builder->build({ source
=> 'Itemtype' })->{ itemtype
};
84 # Create an itemtype for item-level item type
85 my $ilevel_itemtype = $builder->build({ source
=> 'Itemtype' })->{ itemtype
};
87 $branch = $builder->build({ source
=> 'Branch' })->{ branchcode
};
89 my $borrowernumber = $builder->build({
91 value
=> { branchcode
=> $branch }
92 })->{ borrowernumber
};
93 # Look for the defined MARC field for biblio-level itemtype
94 my $rs = $schema->resultset('MarcSubfieldStructure')->search({
96 kohafield
=> 'biblioitems.itemtype'
98 my $tagfield = $rs->first->tagfield;
99 my $tagsubfield = $rs->first->tagsubfield;
101 # Create a biblio record with biblio-level itemtype
102 my $record = MARC
::Record
->new();
103 $record->append_fields(
104 MARC
::Field
->new($tagfield,'','', $tagsubfield => $blevel_itemtype )
106 my ( $biblionumber, $biblioitemnumber ) = AddBiblio
( $record, '' );
107 my $item_with_itemtype = $builder->build(
111 biblionumber
=> $biblionumber,
112 biblioitemnumber
=> $biblioitemnumber,
113 homebranch
=> $branch,
114 holdingbranch
=> $branch,
115 itype
=> $ilevel_itemtype
119 my $item_without_itemtype = $builder->build(
123 biblionumber
=> $biblionumber,
124 biblioitemnumber
=> $biblioitemnumber,
125 homebranch
=> $branch,
126 holdingbranch
=> $branch,
132 my $borrower = Koha
::Patrons
->find( $borrowernumber )->unblessed;
133 AddIssue
( $borrower, $item_with_itemtype->{ barcode
} );
134 AddReturn
( $item_with_itemtype->{ barcode
}, $branch );
135 # Test item-level itemtype was recorded on the 'statistics' table
136 my $stat = $schema->resultset('Statistic')->search({
139 itemnumber
=> $item_with_itemtype->{ itemnumber
}
140 }, { order_by
=> { -asc
=> 'datetime' } })->next();
142 is
( $stat->itemtype, $ilevel_itemtype,
143 "item-level itype recorded on statistics for return");
144 warning_like
{ AddIssue
( $borrower, $item_without_itemtype->{ barcode
} ) }
145 [qr/^item-level_itypes set but no itemtype set for item/,
146 qr/^item-level_itypes set but no itemtype set for item/,
147 qr/^item-level_itypes set but no itemtype set for item/,
148 qr/^item-level_itypes set but no itemtype set for item/,
149 qr/^item-level_itypes set but no itemtype set for item/,
150 qr/^item-level_itypes set but no itemtype set for item/],
151 'Item without itemtype set raises warning on AddIssue';
152 warning_like
{ AddReturn
( $item_without_itemtype->{ barcode
}, $branch ) }
153 qr/^item-level_itypes set but no itemtype set for item/,
154 'Item without itemtype set raises warning on AddReturn';
155 # Test biblio-level itemtype was recorded on the 'statistics' table
156 $stat = $schema->resultset('Statistic')->search({
159 itemnumber
=> $item_without_itemtype->{ itemnumber
}
160 }, { order_by
=> { -asc
=> 'datetime' } })->next();
162 is
( $stat->itemtype, $blevel_itemtype,
163 "biblio-level itype recorded on statistics for return as a fallback for null item-level itype");
167 subtest
"AddReturn logging on statistics table (item-level_itypes=0)" => sub {
171 # Make sure logging is enabled
172 t
::lib
::Mocks
::mock_preference
( "IssueLog", 1 );
173 t
::lib
::Mocks
::mock_preference
( "ReturnLog", 1 );
175 # Set biblio level item types
176 t
::lib
::Mocks
::mock_preference
( "item-level_itypes", 0 );
178 # Create an itemtype for biblio-level item type
179 my $blevel_itemtype = $builder->build({ source
=> 'Itemtype' })->{ itemtype
};
180 # Create an itemtype for item-level item type
181 my $ilevel_itemtype = $builder->build({ source
=> 'Itemtype' })->{ itemtype
};
183 $branch = $builder->build({ source
=> 'Branch' })->{ branchcode
};
185 my $borrowernumber = $builder->build({
186 source
=> 'Borrower',
187 value
=> { branchcode
=> $branch }
188 })->{ borrowernumber
};
189 # Look for the defined MARC field for biblio-level itemtype
190 my $rs = $schema->resultset('MarcSubfieldStructure')->search({
192 kohafield
=> 'biblioitems.itemtype'
194 my $tagfield = $rs->first->tagfield;
195 my $tagsubfield = $rs->first->tagsubfield;
197 # Create a biblio record with biblio-level itemtype
198 my $record = MARC
::Record
->new();
199 $record->append_fields(
200 MARC
::Field
->new($tagfield,'','', $tagsubfield => $blevel_itemtype )
202 my ( $biblionumber, $biblioitemnumber ) = AddBiblio
( $record, '' );
203 my $item_with_itemtype = $builder->build({
206 biblionumber
=> $biblionumber,
207 biblioitemnumber
=> $biblioitemnumber,
208 homebranch
=> $branch,
209 holdingbranch
=> $branch,
210 itype
=> $ilevel_itemtype
213 my $item_without_itemtype = $builder->build({
216 biblionumber
=> $biblionumber,
217 biblioitemnumber
=> $biblioitemnumber,
218 homebranch
=> $branch,
219 holdingbranch
=> $branch,
224 my $borrower = Koha
::Patrons
->find( $borrowernumber )->unblessed;
226 AddIssue
( $borrower, $item_with_itemtype->{ barcode
} );
227 AddReturn
( $item_with_itemtype->{ barcode
}, $branch );
228 # Test item-level itemtype was recorded on the 'statistics' table
229 my $stat = $schema->resultset('Statistic')->search({
232 itemnumber
=> $item_with_itemtype->{ itemnumber
}
233 }, { order_by
=> { -asc
=> 'datetime' } })->next();
235 is
( $stat->itemtype, $blevel_itemtype,
236 "biblio-level itype recorded on statistics for return");
238 AddIssue
( $borrower, $item_without_itemtype->{ barcode
} );
239 AddReturn
( $item_without_itemtype->{ barcode
}, $branch );
240 # Test biblio-level itemtype was recorded on the 'statistics' table
241 $stat = $schema->resultset('Statistic')->search({
244 itemnumber
=> $item_without_itemtype->{ itemnumber
}
245 }, { order_by
=> { -asc
=> 'datetime' } })->next();
247 is
( $stat->itemtype, $blevel_itemtype,
248 "biblio-level itype recorded on statistics for return");
251 subtest
'Handle ids duplication' => sub {
254 t
::lib
::Mocks
::mock_preference
( 'item-level_itypes', 1 );
255 t
::lib
::Mocks
::mock_preference
( 'CalculateFinesOnReturn', 1 );
256 t
::lib
::Mocks
::mock_preference
( 'finesMode', 'production' );
257 Koha
::IssuingRules
->search->update({ chargeperiod
=> 1, fine
=> 1, firstremind
=> 1, });
259 my $biblio = $builder->build( { source
=> 'Biblio' } );
260 my $itemtype = $builder->build( { source
=> 'Itemtype', value
=> { rentalcharge
=> 5 } } );
261 my $item = $builder->build(
265 biblionumber
=> $biblio->{biblionumber
},
269 itype
=> $itemtype->{itemtype
},
273 my $patron = $builder->build({source
=> 'Borrower'});
274 $patron = Koha
::Patrons
->find( $patron->{borrowernumber
} );
276 my $original_checkout = AddIssue
( $patron->unblessed, $item->{barcode
}, dt_from_string
->subtract( days
=> 50 ) );
277 my $issue_id = $original_checkout->issue_id;
278 my $account_lines = Koha
::Account
::Lines
->search({ borrowernumber
=> $patron->borrowernumber, issue_id
=> $issue_id });
279 is
( $account_lines->count, 1, '1 account line should exist for this issue_id' );
280 is
( $account_lines->next->accounttype, 'RENT', 'patron has been charged the rentalcharge' );
281 $account_lines->delete;
283 # Create an existing entry in old_issue
284 $builder->build({ source
=> 'OldIssue', value
=> { issue_id
=> $issue_id } });
286 my $old_checkout = Koha
::Old
::Checkouts
->find( $issue_id );
288 my ($doreturn, $messages, $new_checkout, $borrower);
290 ( $doreturn, $messages, $new_checkout, $borrower ) =
291 AddReturn
( $item->{barcode
}, undef, undef, undef, dt_from_string
);
294 qr{.*DBD::mysql::st execute failed: Duplicate entry.*},
295 { carped
=> qr{The checkin for the following issue failed.*Duplicate ID.*} }
297 'DBD should have raised an error about dup primary key';
299 is
( $doreturn, 0, 'Return should not have been done' );
300 is
( $messages->{WasReturned
}, 0, 'messages should have the WasReturned flag set to 0' );
301 is
( $messages->{DataCorrupted
}, 1, 'messages should have the DataCorrupted flag set to 1' );
303 $account_lines = Koha
::Account
::Lines
->search({ borrowernumber
=> $patron->borrowernumber, issue_id
=> $issue_id });
304 is
( $account_lines->count, 0, 'No account lines should exist for this issue_id, patron should not have been charged' );
306 is
( Koha
::Checkouts
->find( $issue_id )->issue_id, $issue_id, 'The issues entry should not have been removed' );
309 subtest
'BlockReturnOfLostItems' => sub {
311 my $biblio = $builder->build_object( { class => 'Koha::Biblios' } );
312 my $item = $builder->build_object(
314 class => 'Koha::Items',
316 biblionumber
=> $biblio->biblionumber,
323 my $patron = $builder->build_object({class => 'Koha::Patrons'});
324 my $checkout = AddIssue
( $patron->unblessed, $item->barcode );
326 # Mark the item as lost
327 ModItem
({itemlost
=> 1}, $biblio->biblionumber, $item->itemnumber);
329 t
::lib
::Mocks
::mock_preference
('BlockReturnOfLostItems', 1);
330 my ( $doreturn, $messages, $issue ) = AddReturn
($item->barcode);
331 is
( $doreturn, 0, "With BlockReturnOfLostItems, a checkin of a lost item should be blocked");
332 is
( $messages->{WasLost
}, 1, "... and the WasLost flag should be set");
334 $item->discard_changes;
335 is
( $item->itemlost, 1, "Item remains lost" );
337 t
::lib
::Mocks
::mock_preference
('BlockReturnOfLostItems', 0);
338 ( $doreturn, $messages, $issue ) = AddReturn
($item->barcode);
339 is
( $doreturn, 1, "Without BlockReturnOfLostItems, a checkin of a lost item should not be blocked");
342 $schema->storage->txn_rollback;