|
Lines 8363-8372
if ( CheckVersion($DBversion) ) {
Link Here
|
| 8363 |
|
8363 |
|
| 8364 |
$DBversion = "3.15.00.041"; |
8364 |
$DBversion = "3.15.00.041"; |
| 8365 |
if ( CheckVersion($DBversion) ) { |
8365 |
if ( CheckVersion($DBversion) ) { |
| 8366 |
my $name = $dbh->selectcol_arrayref(q| |
8366 |
my ( $name ) = $dbh->selectrow_array(q| |
| 8367 |
SELECT name FROM letter WHERE code="HOLD" |
8367 |
SELECT name FROM letter WHERE code="HOLD" |
| 8368 |
|); |
8368 |
|); |
| 8369 |
$name = $name->[0]; |
|
|
| 8370 |
$dbh->do(q| |
8369 |
$dbh->do(q| |
| 8371 |
UPDATE letter |
8370 |
UPDATE letter |
| 8372 |
SET code="HOLD", |
8371 |
SET code="HOLD", |
|
Lines 8375-8380
if ( CheckVersion($DBversion) ) {
Link Here
|
| 8375 |
WHERE code="HOLD_PHONE" |
8374 |
WHERE code="HOLD_PHONE" |
| 8376 |
|, {}, $name); |
8375 |
|, {}, $name); |
| 8377 |
|
8376 |
|
|
|
8377 |
( $name ) = $dbh->selectrow_array(q| |
| 8378 |
SELECT name FROM letter WHERE code="PREDUE" |
| 8379 |
|); |
| 8378 |
$dbh->do(q| |
8380 |
$dbh->do(q| |
| 8379 |
UPDATE letter |
8381 |
UPDATE letter |
| 8380 |
SET code="PREDUE", |
8382 |
SET code="PREDUE", |
|
Lines 8383-8388
if ( CheckVersion($DBversion) ) {
Link Here
|
| 8383 |
WHERE code="PREDUE_PHONE" |
8385 |
WHERE code="PREDUE_PHONE" |
| 8384 |
|, {}, $name); |
8386 |
|, {}, $name); |
| 8385 |
|
8387 |
|
|
|
8388 |
( $name ) = $dbh->selectrow_array(q| |
| 8389 |
SELECT name FROM letter WHERE code="OVERDUE" |
| 8390 |
|); |
| 8386 |
$dbh->do(q| |
8391 |
$dbh->do(q| |
| 8387 |
UPDATE letter |
8392 |
UPDATE letter |
| 8388 |
SET code="OVERDUE", |
8393 |
SET code="OVERDUE", |
| 8389 |
- |
|
|