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

(-)a/installer/data/mysql/atomicupdate/bug_40292.pl (-1 / +19 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  => "40292",
6
    description => "Rename new_record_id if exists",
7
    up          => sub {
8
        my ($args) = @_;
9
        my ( $dbh, $out ) = @$args{qw(dbh out)};
10
11
        if ( column_exists('additional_field_values', 'new_record_id') ) {
12
            $dbh->do(
13
                q{ ALTER TABLE additional_field_values CHANGE COLUMN new_record_id record_id VARCHAR(11) NOT NULL DEFAULT '' COMMENT 'record_id'; }
14
            );
15
16
            say_success( $out, "Renamed new_record_id to record_id" );
17
        }
18
    },
19
};

Return to bug 40292