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

(-)a/installer/data/mysql/atomicupdate/bug_34789-rename-column.pl (-5 / +4 lines)
Lines 2-8 use Modern::Perl; Link Here
2
2
3
return {
3
return {
4
    bug_number  => "34789",
4
    bug_number  => "34789",
5
    description => "A single line description",
5
    description => "Correct datatypes and column name in table erm_eholdings_titles",
6
    up          => sub {
6
    up          => sub {
7
        my ($args) = @_;
7
        my ($args) = @_;
8
        my ( $dbh, $out ) = @$args{qw(dbh out)};
8
        my ( $dbh, $out ) = @$args{qw(dbh out)};
Lines 13-19 return { Link Here
13
                ALTER TABLE erm_eholdings_titles RENAME COLUMN preceeding_publication_title_id TO preceding_publication_title_id
13
                ALTER TABLE erm_eholdings_titles RENAME COLUMN preceeding_publication_title_id TO preceding_publication_title_id
14
            }
14
            }
15
            );
15
            );
16
            say $out 'Column renamed to preceding_publication_title_id';
16
            say $out 'Column preceeding_publication_title renamed to preceding_publication_title_id';
17
        }
17
        }
18
        if ( column_exists( 'erm_eholdings_titles', 'publication_title' ) ) {
18
        if ( column_exists( 'erm_eholdings_titles', 'publication_title' ) ) {
19
            $dbh->do(
19
            $dbh->do(
Lines 21-27 return { Link Here
21
                ALTER TABLE erm_eholdings_titles MODIFY COLUMN publication_title mediumtext
21
                ALTER TABLE erm_eholdings_titles MODIFY COLUMN publication_title mediumtext
22
            }
22
            }
23
            );
23
            );
24
            say $out 'Column datatype amended to mediumtext';
24
            say $out 'Column publication_title datatype amended to mediumtext';
25
        }
25
        }
26
        if ( column_exists( 'erm_eholdings_titles', 'notes' ) ) {
26
        if ( column_exists( 'erm_eholdings_titles', 'notes' ) ) {
27
            $dbh->do(
27
            $dbh->do(
Lines 29-35 return { Link Here
29
                ALTER TABLE erm_eholdings_titles MODIFY COLUMN notes mediumtext
29
                ALTER TABLE erm_eholdings_titles MODIFY COLUMN notes mediumtext
30
            }
30
            }
31
            );
31
            );
32
            say $out 'Column datatype amended to mediumtext';
32
            say $out 'Column notes datatype amended to mediumtext';
33
        }
33
        }
34
    },
34
    },
35
};
35
};
36
- 

Return to bug 34789