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

(-)a/installer/data/mysql/atomicupdate/bug_16217.perl (-1 / +14 lines)
Line 0 Link Here
0
- 
1
my $dbh = C4::Context->dbh;
2
my $letters = $dbh->selectall_arrayref(q|
3
    SELECT code, name
4
    FROM letter
5
    WHERE message_transport_type="email"
6
|, { Slice => {} });
7
for my $letter ( @$letters ) {
8
    $dbh->do(q|
9
        UPDATE letter
10
        SET name = ?
11
        WHERE code = ?
12
        AND message_transport_type <> "email"
13
    |, undef, $letter->{name}, $letter->{code});
14
}

Return to bug 16217