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