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

(-)a/installer/data/mysql/atomicupdate/bug_38922-clenup-auth_header.pl (-1 / +32 lines)
Line 0 Link Here
0
- 
1
use Modern::Perl;
2
use Koha::Installer::Output qw(say_warning say_success say_info);
3
4
return {
5
    bug_number  => "38922",
6
    description =>
7
        "Remove auth_header.origincode, auth_heder.linkid, deletedauth_header.origincode, deletedauth_header.linkid and auth_subfield_structure.linkid",
8
    up => sub {
9
        my ($args) = @_;
10
        my ( $dbh, $out ) = @$args{qw(dbh out)};
11
12
        $dbh->do(
13
            q{
14
        ALTER TABLE auth_header DROP COLUMN origincode, DROP COLUMN linkid
15
        }
16
        );
17
        $dbh->do(
18
            q{
19
        ALTER TABLE deletedauth_header DROP COLUMN origincode, DROP COLUMN linkid
20
        }
21
        );
22
        $dbh->do(
23
            q{
24
        ALTER TABLE auth_subfield_structure DROP COLUMN linkid
25
        }
26
        );
27
28
        say $out
29
            "Dropped columns 'auth_header.origincode', 'auth_heder.linkid', 'deletedauth_header.origincode', 'deletedauth_header.linkid' and 'auth_subfield_structure.linkid'";
30
31
    },
32
};

Return to bug 38922