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

(-)a/installer/data/mysql/atomicupdate/bug_28633.perl (-1 / +39 lines)
Line 0 Link Here
0
- 
1
use Modern::Perl;
2
3
return {
4
    bug_number => "28633",
5
    description => "Add preferredname to borrowers table",
6
    up => sub {
7
        my ($args) = @_;
8
        my ($dbh, $out) = @$args{qw(dbh out)};
9
        if( !column_exists( 'borrowers', 'preferredname' ) ) {
10
            $dbh->do(q{
11
                ALTER TABLE borrowers
12
                ADD COLUMN preferredname longtext NULL DEFAULT NULL
13
                COMMENT "patron/borrower's preferred name"
14
                AFTER firstname
15
            });
16
            say $out "Add preferred name column to borrowers table";
17
        }
18
        if( !column_exists( 'deletedborrowers', 'preferredname' ) ) {
19
            $dbh->do(q{
20
                ALTER TABLE deletedborrowers
21
                ADD COLUMN preferredname longtext NULL DEFAULT NULL
22
                COMMENT "patron/borrower's preferred name"
23
                AFTER firstname
24
            });
25
            say $out "Add preferred name column to deletedborrowers table";
26
        }
27
        if( !column_exists( 'borrower_modifications', 'preferredname' ) ) {
28
            $dbh->do(q{
29
                ALTER TABLE borrower_modifications
30
                ADD COLUMN preferredname longtext NULL DEFAULT NULL
31
                COMMENT "patron/borrower's preferred name"
32
                AFTER firstname
33
            });
34
            say $out "Add preferred name column to borrower_modifications table";
35
        }
36
        $dbh->do(q{});
37
        # Print useful stuff here
38
    },
39
}

Return to bug 28633