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

(-)a/C4/Letters.pm (-11 / +14 lines)
Lines 683-700 sub SendAlerts { Link Here
683
sub GetPreparedLetter {
683
sub GetPreparedLetter {
684
    my %params = @_;
684
    my %params = @_;
685
685
686
    my $module      = $params{module} or croak "No module";
686
    my $letter = $params{letter};
687
    my $letter_code = $params{letter_code} or croak "No letter_code";
688
    my $branchcode  = $params{branchcode} || '';
689
    my $mtt         = $params{message_transport_type} || 'email';
690
    my $lang        = $params{lang} || 'default';
691
692
    my $letter = getletter( $module, $letter_code, $branchcode, $mtt, $lang );
693
687
694
    unless ( $letter ) {
688
    unless ( $letter ) {
695
        $letter = getletter( $module, $letter_code, $branchcode, $mtt, 'default' )
689
        my $module      = $params{module} or croak "No module";
696
            or warn( "No $module $letter_code letter transported by " . $mtt ),
690
        my $letter_code = $params{letter_code} or croak "No letter_code";
697
                return;
691
        my $branchcode  = $params{branchcode} || '';
692
        my $mtt         = $params{message_transport_type} || 'email';
693
        my $lang        = $params{lang} || 'default';
694
695
        $letter = getletter( $module, $letter_code, $branchcode, $mtt, $lang );
696
697
        unless ( $letter ) {
698
            $letter = getletter( $module, $letter_code, $branchcode, $mtt, 'default' )
699
                or warn( "No $module $letter_code letter transported by " . $mtt ),
700
                    return;
701
        }
698
    }
702
    }
699
703
700
    my $tables = $params{tables} || {};
704
    my $tables = $params{tables} || {};
701
- 

Return to bug 17981