View | Details | Raw Unified | Return to bug 33237
Collapse All | Expand All

(-)a/C4/Letters.pm (-16 / +10 lines)
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
- 

Return to bug 33237