| 
      
            Lines 1669-1688
          sub _process_tt {
      
      
        Link Here
      
     | 
  
        
          | 1669 | 
              my $content    = $params->{content}; | 
          1669 | 
              my $content    = $params->{content}; | 
        
        
          | 1670 | 
              my $tables     = $params->{tables}; | 
          1670 | 
              my $tables     = $params->{tables}; | 
        
        
          | 1671 | 
              my $loops      = $params->{loops}; | 
          1671 | 
              my $loops      = $params->{loops}; | 
        
          
            
              | 1672 | 
                  my $objects    = $params->{objects} || {}; | 
              1672 | 
                  my $objects    = $params->{objects}    || {}; | 
            
        
          | 1673 | 
              my $substitute = $params->{substitute} || {}; | 
          1673 | 
              my $substitute = $params->{substitute} || {}; | 
        
            
              | 1674 | 
                  my $lang       = 'en';  | 
               | 
               | 
            
        
          | 1675 | 
              my $interface  = C4::Context->interface;  | 
          1674 | 
              my $interface  = C4::Context->interface;  | 
        
            
               | 
               | 
              1675 | 
                  my $lang;  | 
            
        
          | 1676 | 
              if ( defined( $params->{lang} ) && $params->{lang} ne 'default' ) { | 
          1676 | 
              if ( defined( $params->{lang} ) && $params->{lang} ne 'default' ) { | 
        
        
          | 1677 | 
                  $lang = $params->{lang}; | 
          1677 | 
                  $lang = $params->{lang}; | 
        
        
          | 1678 | 
              } elsif ( $interface eq 'intranet' || $interface eq 'opac' ) { | 
          1678 | 
              } elsif ( $interface eq 'intranet' || $interface eq 'opac' ) { | 
        
            
               | 
               | 
              1679 | 
               | 
            
        
          | 1679 | 
                  #use interface language  | 
          1680 | 
                  #use interface language  | 
        
        
          | 1680 | 
                  $lang = C4::Languages::getlanguage();  | 
          1681 | 
                  $lang = C4::Languages::getlanguage();  | 
        
        
          | 1681 | 
              } else { | 
          1682 | 
              } else { | 
        
            
               | 
               | 
              1683 | 
               | 
            
        
          | 1682 | 
                  # Pick the first selected syspref language  | 
          1684 | 
                  # Pick the first selected syspref language  | 
        
        
          | 1683 | 
                  my @languages = split /,/, C4::Context->preference('language'); | 
          1685 | 
                  my @languages = split /,/, C4::Context->preference('language'); | 
        
        
          | 1684 | 
                  $lang = shift @languages;  | 
          1686 | 
                  $lang = shift @languages;  | 
        
        
          | 1685 | 
              }  | 
          1687 | 
              }  | 
        
            
               | 
               | 
              1688 | 
                  $lang //= 'en';  | 
            
        
          | 1686 | 
              my ($theme, $availablethemes);  | 
          1689 | 
              my ($theme, $availablethemes);  | 
        
        
          | 1687 | 
           | 
          1690 | 
           | 
        
        
          | 1688 | 
              my $htdocs = C4::Context->config('intrahtdocs'); | 
          1691 | 
              my $htdocs = C4::Context->config('intrahtdocs'); | 
        
            
              | 1689 | 
              -   | 
               | 
               |