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