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

(-)a/installer/data/mysql/updatedatabase.pl (-1 / +23 lines)
Lines 12211-12216 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { Link Here
12211
    SetVersion($DBversion);
12211
    SetVersion($DBversion);
12212
}
12212
}
12213
12213
12214
$DBversion = "XXX";
12215
if ( CheckVersion($DBversion) ) {
12216
    my $letters = $dbh->selectall_arrayref(q|
12217
        SELECT code, name
12218
        FROM letter
12219
        WHERE message_transport_type="email"
12220
    |, { Slice => {} });
12221
    for my $letter ( @$letters ) {
12222
        use Data::Dumper;warn Dumper $letter;
12223
        $dbh->do(q|
12224
            UPDATE letter
12225
            SET name = ?
12226
            WHERE code = ?
12227
            AND message_transport_type <> "email"
12228
        |, undef, $letter->{name}, $letter->{code});
12229
    }
12230
12231
    print "Upgrade to $DBversion done (Bug 16217: Resync names of notices)\n";
12232
    SetVersion($DBversion);
12233
}
12234
12235
12236
12214
# DEVELOPER PROCESS, search for anything to execute in the db_update directory
12237
# DEVELOPER PROCESS, search for anything to execute in the db_update directory
12215
# SEE bug 13068
12238
# SEE bug 13068
12216
# if there is anything in the atomicupdate, read and execute it.
12239
# if there is anything in the atomicupdate, read and execute it.
12217
- 

Return to bug 16217