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

(-)a/Koha/Email.pm (-1 / +11 lines)
Lines 177-182 sub send_or_die { Link Here
177
        $args->{to} = \@recipients;
177
        $args->{to} = \@recipients;
178
    }
178
    }
179
179
180
    unless ( $args->{from} ) {    # don't do it if passed an explicit 'from' param
181
        my @headers = $self->email->header_str_pairs;
182
        foreach my $pair ( pairs @headers ) {
183
            my ( $header, $value ) = @$pair;
184
            $args->{from} = $value if $header eq 'Sender';
185
        }
186
187
        # Remove the Sender header
188
        $self->email->header_str_set('Sender');
189
    }
190
180
    $self->SUPER::send_or_die($args);
191
    $self->SUPER::send_or_die($args);
181
}
192
}
182
193
183
- 

Return to bug 28729