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 |
- |
|
|