|
Lines 230-249
subtest 'Recall overdue fines' => sub {
Link Here
|
| 230 |
my $recall = Koha::Recall->new({ |
230 |
my $recall = Koha::Recall->new({ |
| 231 |
borrowernumber => $patron->{borrowernumber}, |
231 |
borrowernumber => $patron->{borrowernumber}, |
| 232 |
recalldate => dt_from_string, |
232 |
recalldate => dt_from_string, |
| 233 |
biblionumber => $item->{biblionumber}, |
233 |
biblionumber => $item->biblionumber, |
| 234 |
branchcode => $branch->{branchcode}, |
234 |
branchcode => $branch->{branchcode}, |
| 235 |
status => 'R', |
235 |
status => 'R', |
| 236 |
itemnumber => $item->{itemnumber}, |
236 |
itemnumber => $item->itemnumber, |
| 237 |
expirationdate => undef, |
237 |
expirationdate => undef, |
| 238 |
item_level_recall => 1 |
238 |
item_level_recall => 1 |
| 239 |
})->store; |
239 |
})->store; |
| 240 |
$recall->set_overdue; |
240 |
$recall->set_overdue; |
| 241 |
|
241 |
|
| 242 |
my ($amount) = CalcFine( $item, $patron->{categorycode}, $branch->{branchcode}, $start_dt, $end_dt ); |
242 |
my ($amount) = CalcFine( $item->unblessed, $patron->{categorycode}, $branch->{branchcode}, $start_dt, $end_dt ); |
| 243 |
is( int($amount), 25, 'Use recall fine amount specified in circulation rules' ); |
243 |
is( int($amount), 25, 'Use recall fine amount specified in circulation rules' ); |
| 244 |
|
244 |
|
| 245 |
$recall->set_finished; |
245 |
$recall->set_finished; |
| 246 |
($amount) = CalcFine( $item, $patron->{categorycode}, $branch->{branchcode}, $start_dt, $end_dt ); |
246 |
($amount) = CalcFine( $item->unblessed, $patron->{categorycode}, $branch->{branchcode}, $start_dt, $end_dt ); |
| 247 |
is( int($amount), 5, 'With no recall, use normal fine amount' ); |
247 |
is( int($amount), 5, 'With no recall, use normal fine amount' ); |
| 248 |
|
248 |
|
| 249 |
|
249 |
|
| 250 |
- |
|
|