|
Lines 3-9
package Koha::Borrower::Discharge;
Link Here
|
| 3 |
use Modern::Perl; |
3 |
use Modern::Perl; |
| 4 |
use CGI; |
4 |
use CGI; |
| 5 |
use File::Temp qw( :POSIX ); |
5 |
use File::Temp qw( :POSIX ); |
| 6 |
use PDF::FromHTML; |
|
|
| 7 |
|
6 |
|
| 8 |
use C4::Members qw( GetPendingIssues ); |
7 |
use C4::Members qw( GetPendingIssues ); |
| 9 |
use C4::Reserves qw( GetReservesFromBorrowernumber CancelReserve ); |
8 |
use C4::Reserves qw( GetReservesFromBorrowernumber CancelReserve ); |
|
Lines 114-119
sub generate_as_pdf {
Link Here
|
| 114 |
open my $html_fh, '>:encoding(utf8)', $html_path; |
113 |
open my $html_fh, '>:encoding(utf8)', $html_path; |
| 115 |
say $html_fh $html_content; |
114 |
say $html_fh $html_content; |
| 116 |
close $html_fh; |
115 |
close $html_fh; |
|
|
116 |
require PDF::FromHTML; |
| 117 |
my $pdf = PDF::FromHTML->new( encoding => 'utf-8' ); |
117 |
my $pdf = PDF::FromHTML->new( encoding => 'utf-8' ); |
| 118 |
$pdf->load_file( $html_path ); |
118 |
$pdf->load_file( $html_path ); |
| 119 |
$pdf->convert; |
119 |
$pdf->convert; |
| 120 |
- |
|
|