| 
      
            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 | 
              -   | 
               | 
               |