Lines 8071-8099
if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
Link Here
|
8071 |
|
8071 |
|
8072 |
$DBversion = "3.15.00.XXX"; |
8072 |
$DBversion = "3.15.00.XXX"; |
8073 |
if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { |
8073 |
if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { |
|
|
8074 |
my $name = $dbh->selectcol_arrayref(q| |
8075 |
SELECT name FROM letter WHERE code="HOLD" |
8076 |
|); |
8077 |
$name = $name->[0]; |
8074 |
$dbh->do(q| |
8078 |
$dbh->do(q| |
8075 |
UPDATE letter |
8079 |
UPDATE letter |
8076 |
SET code="HOLD", |
8080 |
SET code="HOLD", |
8077 |
message_transport_type="phone", |
8081 |
message_transport_type="phone", |
8078 |
name=(SELECT name FROM ( SELECT name FROM letter WHERE code="HOLD" LIMIT 1 ) AS t) |
8082 |
name= ? |
8079 |
WHERE code="HOLD_PHONE" |
8083 |
WHERE code="HOLD_PHONE" |
8080 |
|); |
8084 |
|, {}, $name); |
8081 |
|
8085 |
|
8082 |
$dbh->do(q| |
8086 |
$dbh->do(q| |
8083 |
UPDATE letter |
8087 |
UPDATE letter |
8084 |
SET code="PREDUE", |
8088 |
SET code="PREDUE", |
8085 |
message_transport_type="phone", |
8089 |
message_transport_type="phone", |
8086 |
name=(SELECT name FROM ( SELECT name FROM letter WHERE code="HOLD" LIMIT 1 ) AS t) |
8090 |
name= ? |
8087 |
WHERE code="PREDUE_PHONE" |
8091 |
WHERE code="PREDUE_PHONE" |
8088 |
|); |
8092 |
|, {}, $name); |
8089 |
|
8093 |
|
8090 |
$dbh->do(q| |
8094 |
$dbh->do(q| |
8091 |
UPDATE letter |
8095 |
UPDATE letter |
8092 |
SET code="OVERDUE", |
8096 |
SET code="OVERDUE", |
8093 |
message_transport_type="phone", |
8097 |
message_transport_type="phone", |
8094 |
name=(SELECT name FROM ( SELECT name FROM letter WHERE code="HOLD" LIMIT 1 ) AS t) |
8098 |
name= ? |
8095 |
WHERE code="OVERDUE_PHONE" |
8099 |
WHERE code="OVERDUE_PHONE" |
8096 |
|); |
8100 |
|, {}, $name); |
8097 |
|
8101 |
|
8098 |
print "Upgrade to $DBversion done (Bug XXXXX: Update letters *_PHONE)\n"; |
8102 |
print "Upgrade to $DBversion done (Bug XXXXX: Update letters *_PHONE)\n"; |
8099 |
SetVersion($DBversion); |
8103 |
SetVersion($DBversion); |
8100 |
- |
|
|