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

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

Return to bug 16217