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

(-)a/C4/Letters.pm (-5 / +4 lines)
Lines 207-214 sub GetLettersAvailableForALibrary { Link Here
207
our %letter;
207
our %letter;
208
sub getletter {
208
sub getletter {
209
    my ( $module, $code, $branchcode, $message_transport_type ) = @_;
209
    my ( $module, $code, $branchcode, $message_transport_type ) = @_;
210
    $message_transport_type ||= 'email';
210
    $message_transport_type //= '%';
211
212
211
213
    if ( C4::Context->preference('IndependentBranches')
212
    if ( C4::Context->preference('IndependentBranches')
214
            and $branchcode
213
            and $branchcode
Lines 226-233 sub getletter { Link Here
226
    my $sth = $dbh->prepare(q{
225
    my $sth = $dbh->prepare(q{
227
        SELECT *
226
        SELECT *
228
        FROM letter
227
        FROM letter
229
        WHERE module=? AND code=? AND (branchcode = ? OR branchcode = '') AND message_transport_type = ?
228
        WHERE module=? AND code=? AND (branchcode = ? OR branchcode = '')
230
        ORDER BY branchcode DESC LIMIT 1
229
        AND message_transport_type LIKE ?
231
    });
230
    });
232
    $sth->execute( $module, $code, $branchcode, $message_transport_type );
231
    $sth->execute( $module, $code, $branchcode, $message_transport_type );
233
    my $line = $sth->fetchrow_hashref
232
    my $line = $sth->fetchrow_hashref
Lines 237-242 sub getletter { Link Here
237
    return { %$line };
236
    return { %$line };
238
}
237
}
239
238
239
240
=head2 DelLetter
240
=head2 DelLetter
241
241
242
    DelLetter(
242
    DelLetter(
243
- 

Return to bug 14206