Lines 607-612
sub GetPreparedLetter {
Link Here
|
607 |
$letter = $template->unblessed; |
607 |
$letter = $template->unblessed; |
608 |
$letter->{'content-type'} = 'text/html; charset="UTF-8"' if $letter->{is_html}; |
608 |
$letter->{'content-type'} = 'text/html; charset="UTF-8"' if $letter->{is_html}; |
609 |
} |
609 |
} |
|
|
610 |
$lang = $letter->{'lang'}; |
610 |
|
611 |
|
611 |
my $objects = $params{objects} || {}; |
612 |
my $objects = $params{objects} || {}; |
612 |
my $tables = $params{tables} || {}; |
613 |
my $tables = $params{tables} || {}; |
Lines 618-623
sub GetPreparedLetter {
Link Here
|
618 |
return; |
619 |
return; |
619 |
my $want_librarian = $params{want_librarian}; |
620 |
my $want_librarian = $params{want_librarian}; |
620 |
|
621 |
|
|
|
622 |
# Best guess at language 'default' notice is written for include handling |
623 |
if ( $lang eq 'default' ) { |
624 |
|
625 |
# Pick the first selected syspref language |
626 |
my @languages = split /,/, C4::Context->preference('OPACLanguages'); |
627 |
$lang = shift @languages; |
628 |
} |
629 |
|
621 |
$letter->{content} = _process_tt( |
630 |
$letter->{content} = _process_tt( |
622 |
{ |
631 |
{ |
623 |
content => $letter->{content}, |
632 |
content => $letter->{content}, |
Lines 1671-1691
sub _process_tt {
Link Here
|
1671 |
my $loops = $params->{loops}; |
1680 |
my $loops = $params->{loops}; |
1672 |
my $objects = $params->{objects} || {}; |
1681 |
my $objects = $params->{objects} || {}; |
1673 |
my $substitute = $params->{substitute} || {}; |
1682 |
my $substitute = $params->{substitute} || {}; |
1674 |
my $interface = C4::Context->interface; |
1683 |
my $lang = $params->{lang} // 'en'; |
1675 |
my $lang; |
|
|
1676 |
if ( defined( $params->{lang} ) && $params->{lang} ne 'default' ) { |
1677 |
$lang = $params->{lang}; |
1678 |
} elsif ( $interface eq 'intranet' || $interface eq 'opac' ) { |
1679 |
|
1680 |
#use interface language |
1681 |
$lang = C4::Languages::getlanguage(); |
1682 |
} else { |
1683 |
|
1684 |
# Pick the first selected syspref language |
1685 |
my @languages = split /,/, C4::Context->preference('language'); |
1686 |
$lang = shift @languages; |
1687 |
} |
1688 |
$lang //= 'en'; |
1689 |
my ($theme, $availablethemes); |
1684 |
my ($theme, $availablethemes); |
1690 |
|
1685 |
|
1691 |
my $htdocs = C4::Context->config('intrahtdocs'); |
1686 |
my $htdocs = C4::Context->config('intrahtdocs'); |
1692 |
- |
|
|