| 
      
            Lines 443-456
          This function returns a reference to an array of hashes containing all font type
      
      
        Link Here
      
     | 
  
        
          | 443 | 
           | 
          443 | 
           | 
        
        
          | 444 | 
          sub get_font_types { | 
          444 | 
          sub get_font_types { | 
        
        
          | 445 | 
              my @available_fonts = ();  | 
          445 | 
              my @available_fonts = ();  | 
        
          
            
              | 446 | 
                  my %available_font_lookup = %default_font_types;  | 
              446 | 
                  my $available_font_lookup = dclone(\%default_font_types);  | 
            
        
          | 447 | 
           | 
          447 | 
           | 
        
        
          | 448 | 
              #Add new fonts or rename default fonts  | 
          448 | 
              #Add new fonts or rename default fonts  | 
        
        
          | 449 | 
              my $ttf = C4::Context->config('ttf'); | 
          449 | 
              my $ttf = C4::Context->config('ttf'); | 
        
        
          | 450 | 
              if ($ttf && $ttf->{font} && ref $ttf->{font} eq 'ARRAY'){ | 
          450 | 
              if ($ttf && $ttf->{font} && ref $ttf->{font} eq 'ARRAY'){ | 
        
        
          | 451 | 
                  foreach my $font ( @{$ttf->{font}} ){ | 
          451 | 
                  foreach my $font ( @{$ttf->{font}} ){ | 
        
        
          | 452 | 
                      if ($font->{type} && $font->{name} && $font->{content}){ | 
          452 | 
                      if ($font->{type} && $font->{name} && $font->{content}){ | 
        
          
            
              | 453 | 
                              $available_font_lookup{ $font->{type} } = { name => $font->{name}, }; | 
              453 | 
                              $available_font_lookup->{ $font->{type} } = { name => $font->{name}, }; | 
            
        
          | 454 | 
                      }  | 
          454 | 
                      }  | 
        
        
          | 455 | 
                  }  | 
          455 | 
                  }  | 
        
        
          | 456 | 
              }  | 
          456 | 
              }  | 
        
  
    | 
      
            Lines 458-472
          sub get_font_types {
      
      
        Link Here
      
     | 
  
        
          | 458 | 
              #Output default font types first (in default order)  | 
          458 | 
              #Output default font types first (in default order)  | 
        
        
          | 459 | 
              _use_font({ | 
          459 | 
              _use_font({ | 
        
        
          | 460 | 
                  font_types  => \@default_font_type_codes,  | 
          460 | 
                  font_types  => \@default_font_type_codes,  | 
        
          
            
              | 461 | 
                      font_lookup => \%available_font_lookup,  | 
              461 | 
                      font_lookup => $available_font_lookup,  | 
            
        
          | 462 | 
                  available_fonts => \@available_fonts,  | 
          462 | 
                  available_fonts => \@available_fonts,  | 
        
        
          | 463 | 
              });  | 
          463 | 
              });  | 
        
        
          | 464 | 
           | 
          464 | 
           | 
        
        
          | 465 | 
              #Output configured font types last (in alphabetical order)  | 
          465 | 
              #Output configured font types last (in alphabetical order)  | 
        
          
            
              | 466 | 
                  my @remaining_types = sort keys %available_font_lookup;  | 
              466 | 
                  my @remaining_types = sort keys %$available_font_lookup;  | 
            
        
          | 467 | 
              _use_font({ | 
          467 | 
              _use_font({ | 
        
        
          | 468 | 
                  font_types  => \@remaining_types,  | 
          468 | 
                  font_types  => \@remaining_types,  | 
        
          
            
              | 469 | 
                      font_lookup => \%available_font_lookup,  | 
              469 | 
                      font_lookup => $available_font_lookup,  | 
            
        
          | 470 | 
                  available_fonts => \@available_fonts,  | 
          470 | 
                  available_fonts => \@available_fonts,  | 
        
        
          | 471 | 
              });  | 
          471 | 
              });  | 
        
        
          | 472 | 
           | 
          472 | 
           | 
        
            
              | 473 | 
              -   | 
               | 
               |