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

(-)a/installer/data/mysql/atomicupdate/bug_35610.pl (-7 / +10 lines)
Lines 7-24 return { Link Here
7
        my ($args) = @_;
7
        my ($args) = @_;
8
        my ( $dbh, $out ) = @$args{qw(dbh out)};
8
        my ( $dbh, $out ) = @$args{qw(dbh out)};
9
9
10
        unless ( foreign_key_exists('old_reserves', 'old_reserves_ibfk_branchcode') ) {
10
        unless ( foreign_key_exists( 'old_reserves', 'old_reserves_ibfk_branchcode' ) ) {
11
            $dbh->do(q{
11
            $dbh->do(
12
                q{
12
                UPDATE old_reserves
13
                UPDATE old_reserves
13
                SET branchcode = NULL
14
                SET branchcode = NULL
14
                WHERE branchcode NOT IN (SELECT branchcode FROM branches)
15
                WHERE branchcode NOT IN (SELECT branchcode FROM branches)
15
            });
16
            }
17
            );
16
18
17
            $dbh->do(q{
19
            $dbh->do(
20
                q{
18
                ALTER TABLE old_reserves
21
                ALTER TABLE old_reserves
19
                ADD CONSTRAINT `old_reserves_ibfk_branchcode` FOREIGN KEY (`branchcode`) REFERENCES `branches` (`branchcode`) ON DELETE SET NULL ON UPDATE CASCADE;
22
                ADD CONSTRAINT `old_reserves_ibfk_branchcode` FOREIGN KEY (`branchcode`) REFERENCES `branches` (`branchcode`) ON DELETE SET NULL ON UPDATE CASCADE;
20
            });
23
            }
21
            say $out "Added foreign key on 'old_reserves.branchcode'"
24
            );
25
            say $out "Added foreign key on 'old_reserves.branchcode'";
22
        }
26
        }
23
    },
27
    },
24
};
28
};
25
- 

Return to bug 35610