Lines 12219-12224
if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
Link Here
|
12219 |
print "Upgrade to $DBversion done (Bug 15008 - Add custom HTML areas to circulation and reports home pages)\n"; |
12219 |
print "Upgrade to $DBversion done (Bug 15008 - Add custom HTML areas to circulation and reports home pages)\n"; |
12220 |
SetVersion($DBversion); |
12220 |
SetVersion($DBversion); |
12221 |
} |
12221 |
} |
|
|
12222 |
|
12223 |
$DBversion = "XXX"; |
12224 |
if ( CheckVersion($DBversion) ) { |
12225 |
my $letters = $dbh->selectall_arrayref(q| |
12226 |
SELECT code, name |
12227 |
FROM letter |
12228 |
WHERE message_transport_type="email" |
12229 |
|, { Slice => {} }); |
12230 |
for my $letter ( @$letters ) { |
12231 |
use Data::Dumper;warn Dumper $letter; |
12232 |
$dbh->do(q| |
12233 |
UPDATE letter |
12234 |
SET name = ? |
12235 |
WHERE code = ? |
12236 |
AND message_transport_type <> "email" |
12237 |
|, undef, $letter->{name}, $letter->{code}); |
12238 |
} |
12239 |
|
12240 |
print "Upgrade to $DBversion done (Bug 16217: Resync names of notices)\n"; |
12241 |
SetVersion($DBversion); |
12242 |
} |
12243 |
|
12244 |
|
12245 |
|
12222 |
# DEVELOPER PROCESS, search for anything to execute in the db_update directory |
12246 |
# DEVELOPER PROCESS, search for anything to execute in the db_update directory |
12223 |
# SEE bug 13068 |
12247 |
# SEE bug 13068 |
12224 |
# if there is anything in the atomicupdate, read and execute it. |
12248 |
# if there is anything in the atomicupdate, read and execute it. |
12225 |
- |
|
|