|
Lines 365-371
sub cancel {
Link Here
|
| 365 |
# and, if desired, charge a cancel fee |
365 |
# and, if desired, charge a cancel fee |
| 366 |
my $charge = C4::Context->preference("ExpireReservesMaxPickUpDelayCharge"); |
366 |
my $charge = C4::Context->preference("ExpireReservesMaxPickUpDelayCharge"); |
| 367 |
if ( $charge && $params->{'charge_cancel_fee'} ) { |
367 |
if ( $charge && $params->{'charge_cancel_fee'} ) { |
| 368 |
C4::Accounts::manualinvoice($self->borrowernumber, $self->itemnumber, '', 'HE', $charge); |
368 |
my $account = |
|
|
369 |
Koha::Account->new( { patron_id => $self->borrowernumber } ); |
| 370 |
$account->add_debit( |
| 371 |
{ |
| 372 |
amount => $charge, |
| 373 |
user_id => C4::Context->userenv ? C4::Context->userenv->{'number'} : 0, |
| 374 |
library_id => C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef, |
| 375 |
type => 'hold_expired', |
| 376 |
item_id => $self->itemnumber |
| 377 |
} |
| 378 |
); |
| 369 |
} |
379 |
} |
| 370 |
|
380 |
|
| 371 |
C4::Log::logaction( 'HOLDS', 'CANCEL', $self->reserve_id, Dumper($self->unblessed) ) |
381 |
C4::Log::logaction( 'HOLDS', 'CANCEL', $self->reserve_id, Dumper($self->unblessed) ) |
|
Lines 400-407
sub _type {
Link Here
|
| 400 |
=head1 AUTHORS |
410 |
=head1 AUTHORS |
| 401 |
|
411 |
|
| 402 |
Kyle M Hall <kyle@bywatersolutions.com> |
412 |
Kyle M Hall <kyle@bywatersolutions.com> |
| 403 |
|
|
|
| 404 |
Jonathan Druart <jonathan.druart@bugs.koha-community.org> |
413 |
Jonathan Druart <jonathan.druart@bugs.koha-community.org> |
|
|
414 |
Martin Renvoize <martin.renvoize@ptfs-europe.com> |
| 405 |
|
415 |
|
| 406 |
=cut |
416 |
=cut |
| 407 |
|
417 |
|
| 408 |
- |
|
|