|
Lines 23-28
use Carp;
Link Here
|
| 23 |
use Data::Dumper; |
23 |
use Data::Dumper; |
| 24 |
use List::MoreUtils qw( uniq ); |
24 |
use List::MoreUtils qw( uniq ); |
| 25 |
|
25 |
|
|
|
26 |
use C4::Circulation qw( ReturnLostItem ); |
| 27 |
use C4::Letters; |
| 26 |
use C4::Log qw( logaction ); |
28 |
use C4::Log qw( logaction ); |
| 27 |
use C4::Stats qw( UpdateStats ); |
29 |
use C4::Stats qw( UpdateStats ); |
| 28 |
|
30 |
|
|
Lines 264-270
sub pay {
Link Here
|
| 264 |
} |
266 |
} |
| 265 |
|
267 |
|
| 266 |
if ( C4::Context->preference('UseEmailReceipts') ) { |
268 |
if ( C4::Context->preference('UseEmailReceipts') ) { |
| 267 |
require C4::Letters; |
|
|
| 268 |
if ( |
269 |
if ( |
| 269 |
my $letter = C4::Letters::GetPreparedLetter( |
270 |
my $letter = C4::Letters::GetPreparedLetter( |
| 270 |
module => 'circulation', |
271 |
module => 'circulation', |
| 271 |
- |
|
|