|
Lines 34-42
if( CheckVersion( $DBversion ) ) {
Link Here
|
| 34 |
|); |
34 |
|); |
| 35 |
|
35 |
|
| 36 |
unless ( foreign_key_exists( 'serial', 'serial_ibfk_1' ) ) { |
36 |
unless ( foreign_key_exists( 'serial', 'serial_ibfk_1' ) ) { |
| 37 |
$dbh->do(q| |
37 |
my $serials = $dbh->selectall_arrayref(q| |
| 38 |
DELETE FROM serial WHERE biblionumber NOT IN (SELECT biblionumber FROM biblio) |
38 |
SELECT serialid FROM serial WHERE biblionumber NOT IN (SELECT biblionumber FROM biblio) |
| 39 |
|); |
39 |
|, { Slice => {} }); |
|
|
40 |
if ( @$serials ) { |
| 41 |
warn q|WARNING - The following serials are deleted, they were not attached to an existing bibliographic record (serialid): | . join ", ", map { $_->{serialid} } @$serials; |
| 42 |
$dbh->do(q| |
| 43 |
DELETE FROM serial WHERE biblionumber NOT IN (SELECT biblionumber FROM biblio) |
| 44 |
|); |
| 45 |
} |
| 40 |
$dbh->do(q| |
46 |
$dbh->do(q| |
| 41 |
ALTER TABLE serial |
47 |
ALTER TABLE serial |
| 42 |
ADD CONSTRAINT serial_ibfk_1 FOREIGN KEY (biblionumber) REFERENCES biblio (biblionumber) ON DELETE CASCADE ON UPDATE CASCADE |
48 |
ADD CONSTRAINT serial_ibfk_1 FOREIGN KEY (biblionumber) REFERENCES biblio (biblionumber) ON DELETE CASCADE ON UPDATE CASCADE |
|
Lines 49-57
if( CheckVersion( $DBversion ) ) {
Link Here
|
| 49 |
|); |
55 |
|); |
| 50 |
|
56 |
|
| 51 |
unless ( foreign_key_exists( 'serial', 'serial_ibfk_2' ) ) { |
57 |
unless ( foreign_key_exists( 'serial', 'serial_ibfk_2' ) ) { |
| 52 |
$dbh->do(q| |
58 |
my $serials = $dbh->selectall_arrayref(q| |
| 53 |
DELETE FROM serial WHERE subscriptionid NOT IN (SELECT subscriptionid FROM subscription) |
59 |
SELECT serialid FROM serial WHERE subscriptionid NOT IN (SELECT subscriptionid FROM subscription) |
| 54 |
|); |
60 |
|, { Slice => {} }); |
|
|
61 |
if ( @$serials ) { |
| 62 |
warn q|WARNING - The following serials are deleted, they were not attached to an existing subscription (serialid): | . join ", ", map { $_->{serialid} } @$serials; |
| 63 |
$dbh->do(q| |
| 64 |
DELETE FROM serial WHERE subscriptionid NOT IN (SELECT subscriptionid FROM subscription) |
| 65 |
|); |
| 66 |
} |
| 55 |
$dbh->do(q| |
67 |
$dbh->do(q| |
| 56 |
ALTER TABLE serial |
68 |
ALTER TABLE serial |
| 57 |
ADD CONSTRAINT serial_ibfk_2 FOREIGN KEY (subscriptionid) REFERENCES subscription (subscriptionid) ON DELETE CASCADE ON UPDATE CASCADE |
69 |
ADD CONSTRAINT serial_ibfk_2 FOREIGN KEY (subscriptionid) REFERENCES subscription (subscriptionid) ON DELETE CASCADE ON UPDATE CASCADE |
|
Lines 90-98
if( CheckVersion( $DBversion ) ) {
Link Here
|
| 90 |
|); |
102 |
|); |
| 91 |
|
103 |
|
| 92 |
unless ( foreign_key_exists( 'subscription', 'subscription_ibfk_3' ) ) { |
104 |
unless ( foreign_key_exists( 'subscription', 'subscription_ibfk_3' ) ) { |
| 93 |
$dbh->do(q| |
105 |
my $subscriptions = $dbh->selectall_arrayref(q| |
| 94 |
DELETE FROM subscription WHERE biblionumber NOT IN (SELECT biblionumber FROM biblio) |
106 |
SELECT subscriptionid FROM subscription WHERE biblionumber NOT IN (SELECT biblionumber FROM biblio) |
| 95 |
|); |
107 |
|, { Slice => {} }); |
|
|
108 |
if ( @$subscriptions ) { |
| 109 |
warn q|WARNING - The following subscriptions are deleted, they were not attached to an existing bibliographic record (subscriptionid): | . join ", ", map { $_->{subscriptionid} } @$subscriptions; |
| 110 |
|
| 111 |
$dbh->do(q| |
| 112 |
DELETE FROM subscription WHERE biblionumber NOT IN (SELECT biblionumber FROM biblio) |
| 113 |
|); |
| 114 |
} |
| 96 |
$dbh->do(q| |
115 |
$dbh->do(q| |
| 97 |
ALTER TABLE subscription |
116 |
ALTER TABLE subscription |
| 98 |
ADD CONSTRAINT subscription_ibfk_3 FOREIGN KEY (biblionumber) REFERENCES biblio (biblionumber) ON DELETE CASCADE ON UPDATE CASCADE |
117 |
ADD CONSTRAINT subscription_ibfk_3 FOREIGN KEY (biblionumber) REFERENCES biblio (biblionumber) ON DELETE CASCADE ON UPDATE CASCADE |
| 99 |
- |
|
|