|
Lines 8-89
return {
Link Here
|
| 8 |
my ($args) = @_; |
8 |
my ($args) = @_; |
| 9 |
my ( $dbh, $out ) = @$args{qw(dbh out)}; |
9 |
my ( $dbh, $out ) = @$args{qw(dbh out)}; |
| 10 |
|
10 |
|
| 11 |
my $col_type_borrowers = $dbh->selectrow_array( |
11 |
$dbh->do( |
| 12 |
q{ |
12 |
q{ |
| 13 |
SELECT COLUMN_TYPE |
|
|
| 14 |
FROM INFORMATION_SCHEMA.COLUMNS |
| 15 |
WHERE TABLE_SCHEMA = DATABASE() |
| 16 |
AND TABLE_NAME = 'borrowers' |
| 17 |
AND COLUMN_NAME = 'checkprevcheckout' |
| 18 |
} |
| 19 |
); |
| 20 |
|
| 21 |
if ( $col_type_borrowers !~ /^enum/i ) { |
| 22 |
$dbh->do( |
| 23 |
q{ |
| 24 |
UPDATE borrowers |
13 |
UPDATE borrowers |
| 25 |
SET checkprevcheckout = 'inherit' |
14 |
SET checkprevcheckout = 'inherit' |
| 26 |
WHERE checkprevcheckout NOT IN ('yes','no','inherit'); |
15 |
WHERE checkprevcheckout NOT IN ('yes','no','inherit'); |
| 27 |
} |
16 |
} |
| 28 |
); |
17 |
); |
| 29 |
$dbh->do( |
18 |
$dbh->do( |
| 30 |
q{ |
19 |
q{ |
| 31 |
ALTER TABLE borrowers |
20 |
ALTER TABLE borrowers |
| 32 |
MODIFY COLUMN `checkprevcheckout` enum('yes', 'no', 'inherit') NOT NULL DEFAULT 'inherit' COMMENT 'produce a warning for this patron if this item has previously been checked out to this patron if ''yes'', not if ''no'', defer to category setting if ''inherit''.' |
21 |
MODIFY COLUMN `checkprevcheckout` enum('yes', 'no', 'inherit') NOT NULL DEFAULT 'inherit' COMMENT 'produce a warning for this patron if this item has previously been checked out to this patron if ''yes'', not if ''no'', defer to category setting if ''inherit''.' |
| 33 |
} |
22 |
} |
| 34 |
); |
|
|
| 35 |
} |
| 36 |
|
| 37 |
my $col_type_categories = $dbh->selectrow_array( |
| 38 |
q{ |
| 39 |
SELECT COLUMN_TYPE |
| 40 |
FROM INFORMATION_SCHEMA.COLUMNS |
| 41 |
WHERE TABLE_SCHEMA = DATABASE() |
| 42 |
AND TABLE_NAME = 'categories' |
| 43 |
AND COLUMN_NAME = 'checkprevcheckout' |
| 44 |
} |
| 45 |
); |
23 |
); |
| 46 |
|
24 |
|
| 47 |
if ( $col_type_categories !~ /^enum/i ) { |
25 |
$dbh->do( |
| 48 |
$dbh->do( |
26 |
q{ |
| 49 |
q{ |
|
|
| 50 |
UPDATE categories |
27 |
UPDATE categories |
| 51 |
SET checkprevcheckout = 'inherit' |
28 |
SET checkprevcheckout = 'inherit' |
| 52 |
WHERE checkprevcheckout NOT IN ('yes','no','inherit'); |
29 |
WHERE checkprevcheckout NOT IN ('yes','no','inherit'); |
| 53 |
} |
30 |
} |
| 54 |
); |
31 |
); |
| 55 |
$dbh->do( |
32 |
$dbh->do( |
| 56 |
q{ |
33 |
q{ |
| 57 |
ALTER TABLE categories |
34 |
ALTER TABLE categories |
| 58 |
MODIFY COLUMN `checkprevcheckout` enum('yes', 'no', 'inherit') NOT NULL DEFAULT 'inherit' COMMENT 'produce a warning for this patron category if this item has previously been checked out to this patron if ''yes'', not if ''no'', defer to syspref setting if ''inherit''.' |
35 |
MODIFY COLUMN `checkprevcheckout` enum('yes', 'no', 'inherit') NOT NULL DEFAULT 'inherit' COMMENT 'produce a warning for this patron category if this item has previously been checked out to this patron if ''yes'', not if ''no'', defer to syspref setting if ''inherit''.' |
| 59 |
} |
36 |
} |
| 60 |
); |
|
|
| 61 |
} |
| 62 |
|
| 63 |
my $col_type_deletedborrowers = $dbh->selectrow_array( |
| 64 |
q{ |
| 65 |
SELECT COLUMN_TYPE |
| 66 |
FROM INFORMATION_SCHEMA.COLUMNS |
| 67 |
WHERE TABLE_SCHEMA = DATABASE() |
| 68 |
AND TABLE_NAME = 'deletedborrowers' |
| 69 |
AND COLUMN_NAME = 'checkprevcheckout' |
| 70 |
} |
| 71 |
); |
37 |
); |
| 72 |
|
38 |
|
| 73 |
if ( $col_type_deletedborrowers !~ /^enum/i ) { |
39 |
$dbh->do( |
| 74 |
$dbh->do( |
40 |
q{ |
| 75 |
q{ |
|
|
| 76 |
UPDATE deletedborrowers |
41 |
UPDATE deletedborrowers |
| 77 |
SET checkprevcheckout = 'inherit' |
42 |
SET checkprevcheckout = 'inherit' |
| 78 |
WHERE checkprevcheckout NOT IN ('yes','no','inherit'); |
43 |
WHERE checkprevcheckout NOT IN ('yes','no','inherit'); |
| 79 |
} |
44 |
} |
| 80 |
); |
45 |
); |
| 81 |
$dbh->do( |
46 |
$dbh->do( |
| 82 |
q{ |
47 |
q{ |
| 83 |
ALTER TABLE deletedborrowers |
48 |
ALTER TABLE deletedborrowers |
| 84 |
MODIFY COLUMN `checkprevcheckout` enum('yes', 'no', 'inherit') NOT NULL DEFAULT 'inherit' COMMENT 'produce a warning for this patron if this item has previously been checked out to this patron if ''yes'', not if ''no'', defer to category setting if ''inherit''.' |
49 |
MODIFY COLUMN `checkprevcheckout` enum('yes', 'no', 'inherit') NOT NULL DEFAULT 'inherit' COMMENT 'produce a warning for this patron if this item has previously been checked out to this patron if ''yes'', not if ''no'', defer to category setting if ''inherit''.' |
| 85 |
} |
50 |
} |
| 86 |
); |
51 |
); |
| 87 |
} |
|
|
| 88 |
}, |
52 |
}, |
| 89 |
}; |
53 |
}; |
| 90 |
- |
|
|