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