View | Details | Raw Unified | Return to bug 21901
Collapse All | Expand All

(-)a/installer/data/mysql/atomicupdate/bug_21901.perl (-1 / +42 lines)
Lines 1-12 Link Here
1
$DBversion = 'XXX'; # will be replaced by the RM
1
$DBversion = 'XXX'; # will be replaced by the RM
2
if( CheckVersion( $DBversion ) ) {
2
if( CheckVersion( $DBversion ) ) {
3
3
4
    $dbh->do(q|
5
        UPDATE
6
          serial
7
        SET
8
          planneddate = NULL
9
        WHERE
10
          planneddate = '0000-00-00'
11
    |);
12
13
    $dbh->do(q|
14
        UPDATE
15
          serial
16
        SET
17
          publisheddate = NULL
18
        WHERE
19
          publisheddate = '0000-00-00'
20
    |);
21
22
    $dbh->do(q|
23
        UPDATE
24
          serial
25
        SET
26
          claimdate = NULL
27
        WHERE
28
          claimdate = '0000-00-00'
29
    |);
30
4
    $dbh->do(q|
31
    $dbh->do(q|
5
        ALTER TABLE serial
32
        ALTER TABLE serial
6
        MODIFY COLUMN biblionumber INT(11) NOT NULL
33
        MODIFY COLUMN biblionumber INT(11) NOT NULL
7
    |);
34
    |);
8
35
9
    unless ( foreign_key_exists( 'serial', 'serial_ibfk_1' ) ) {
36
    unless ( foreign_key_exists( 'serial', 'serial_ibfk_1' ) ) {
37
        $dbh->do(q|
38
            DELETE FROM serial WHERE biblionumber NOT IN (SELECT biblionumber FROM biblio)
39
        |);
10
        $dbh->do(q|
40
        $dbh->do(q|
11
            ALTER TABLE serial
41
            ALTER TABLE serial
12
            ADD CONSTRAINT serial_ibfk_1 FOREIGN KEY (biblionumber) REFERENCES biblio (biblionumber) ON DELETE CASCADE ON UPDATE CASCADE
42
            ADD CONSTRAINT serial_ibfk_1 FOREIGN KEY (biblionumber) REFERENCES biblio (biblionumber) ON DELETE CASCADE ON UPDATE CASCADE
Lines 19-24 if( CheckVersion( $DBversion ) ) { Link Here
19
    |);
49
    |);
20
50
21
    unless ( foreign_key_exists( 'serial', 'serial_ibfk_2' ) ) {
51
    unless ( foreign_key_exists( 'serial', 'serial_ibfk_2' ) ) {
52
        $dbh->do(q|
53
            DELETE FROM serial WHERE subscriptionid NOT IN (SELECT subscriptionid FROM subscription)
54
        |);
22
        $dbh->do(q|
55
        $dbh->do(q|
23
            ALTER TABLE serial
56
            ALTER TABLE serial
24
            ADD CONSTRAINT serial_ibfk_2 FOREIGN KEY (subscriptionid) REFERENCES subscription (subscriptionid) ON DELETE CASCADE ON UPDATE CASCADE
57
            ADD CONSTRAINT serial_ibfk_2 FOREIGN KEY (subscriptionid) REFERENCES subscription (subscriptionid) ON DELETE CASCADE ON UPDATE CASCADE
Lines 32-37 if( CheckVersion( $DBversion ) ) { Link Here
32
    |);
65
    |);
33
66
34
    unless ( foreign_key_exists( 'subscriptionhistory', 'subscription_history_ibfk_1' ) ) {
67
    unless ( foreign_key_exists( 'subscriptionhistory', 'subscription_history_ibfk_1' ) ) {
68
        $dbh->do(q|
69
            DELETE FROM subscriptionhistory WHERE biblionumber NOT IN (SELECT biblionumber FROM biblio)
70
        |);
35
        $dbh->do(q|
71
        $dbh->do(q|
36
            ALTER TABLE subscriptionhistory
72
            ALTER TABLE subscriptionhistory
37
            ADD CONSTRAINT subscription_history_ibfk_1 FOREIGN KEY (biblionumber) REFERENCES biblio (biblionumber) ON DELETE CASCADE ON UPDATE CASCADE
73
            ADD CONSTRAINT subscription_history_ibfk_1 FOREIGN KEY (biblionumber) REFERENCES biblio (biblionumber) ON DELETE CASCADE ON UPDATE CASCADE
Lines 39-44 if( CheckVersion( $DBversion ) ) { Link Here
39
    }
75
    }
40
76
41
    unless ( foreign_key_exists( 'subscriptionhistory', 'subscription_history_ibfk_2' ) ) {
77
    unless ( foreign_key_exists( 'subscriptionhistory', 'subscription_history_ibfk_2' ) ) {
78
        $dbh->do(q|
79
            DELETE FROM subscriptionhistory WHERE subscriptionid NOT IN (SELECT subscriptionid FROM subscription)
80
        |);
42
        $dbh->do(q|
81
        $dbh->do(q|
43
            ALTER TABLE subscriptionhistory
82
            ALTER TABLE subscriptionhistory
44
            ADD CONSTRAINT subscription_history_ibfk_2 FOREIGN KEY (subscriptionid) REFERENCES subscription (subscriptionid) ON DELETE CASCADE ON UPDATE CASCADE
83
            ADD CONSTRAINT subscription_history_ibfk_2 FOREIGN KEY (subscriptionid) REFERENCES subscription (subscriptionid) ON DELETE CASCADE ON UPDATE CASCADE
Lines 51-56 if( CheckVersion( $DBversion ) ) { Link Here
51
    |);
90
    |);
52
91
53
    unless ( foreign_key_exists( 'subscription', 'subscription_ibfk_3' ) ) {
92
    unless ( foreign_key_exists( 'subscription', 'subscription_ibfk_3' ) ) {
93
        $dbh->do(q|
94
            DELETE FROM subscription WHERE biblionumber NOT IN (SELECT biblionumber FROM biblio)
95
        |);
54
        $dbh->do(q|
96
        $dbh->do(q|
55
            ALTER TABLE subscription
97
            ALTER TABLE subscription
56
            ADD CONSTRAINT subscription_ibfk_3 FOREIGN KEY (biblionumber) REFERENCES biblio (biblionumber) ON DELETE CASCADE ON UPDATE CASCADE
98
            ADD CONSTRAINT subscription_ibfk_3 FOREIGN KEY (biblionumber) REFERENCES biblio (biblionumber) ON DELETE CASCADE ON UPDATE CASCADE
57
- 

Return to bug 21901