| 
      
            Lines 142-148
          sub generate_as_pdf {
      
      
        Link Here
      
     | 
  
        
          | 142 | 
              else { | 
          142 | 
              else { | 
        
        
          | 143 | 
                  my $pdf = PDF::FromHTML->new( encoding => 'utf-8' );  | 
          143 | 
                  my $pdf = PDF::FromHTML->new( encoding => 'utf-8' );  | 
        
        
          | 144 | 
                  $pdf->load_file( $html_path );  | 
          144 | 
                  $pdf->load_file( $html_path );  | 
        
          
            
              | 145 | 
                      $pdf->convert;  | 
              145 | 
               | 
            
            
               | 
               | 
              146 | 
                      my $ttf = C4::Context->config('ttf'); | 
            
            
              | 147 | 
                      if ( $ttf  && exists $ttf->{font} ) { | 
            
            
              | 148 | 
               | 
            
            
              | 149 | 
                          my $type2path;  | 
            
            
              | 150 | 
                          foreach my $font ( @{ $ttf->{font} } ) { | 
            
            
              | 151 | 
                                  $type2path->{ $font->{type} } = $font->{content}; | 
            
            
              | 152 | 
                          }  | 
            
            
              | 153 | 
               | 
            
            
              | 154 | 
                          $pdf->convert(  | 
            
            
              | 155 | 
                              FontBold          => $type2path->{'HB'} || 'HelveticaBold', | 
            
            
              | 156 | 
                              FontOblique       => $type2path->{'HO'} || 'HelveticaOblique', | 
            
            
              | 157 | 
                              FontBoldOblique   => $type2path->{'HBO'}|| 'HelveticaBoldOblique', | 
            
            
              | 158 | 
                              FontUnicode       => $type2path->{'H'}  || 'Helvetica', | 
            
            
              | 159 | 
                              Font              => $type2path->{'H'}  || 'Helvetica', | 
            
            
              | 160 | 
                          );  | 
            
            
              | 161 | 
                      } else { | 
            
            
              | 162 | 
                          $pdf->convert();  | 
            
            
              | 163 | 
                      }  | 
            
        
          | 146 | 
                  $pdf->write_file( $pdf_path );  | 
          164 | 
                  $pdf->write_file( $pdf_path );  | 
        
        
          | 147 | 
              }  | 
          165 | 
              }  | 
        
        
          | 148 | 
           | 
          166 | 
           | 
        
            
              | 149 | 
              -   | 
               | 
               |