34 lines
1 KiB
Perl
Executable file
34 lines
1 KiB
Perl
Executable file
use Modern::Perl;
|
|
|
|
return {
|
|
bug_number => "16223",
|
|
description => "Add new columns lift_after_payment and fee_limit to table restriction_types",
|
|
up => sub {
|
|
my ($args) = @_;
|
|
my ( $dbh, $out ) = @$args{qw(dbh out)};
|
|
|
|
if ( !column_exists( 'restriction_types', 'lift_after_payment' ) ) {
|
|
$dbh->do(
|
|
q{
|
|
ALTER TABLE restriction_types
|
|
ADD COLUMN `lift_after_payment` tinyint(1) NOT NULL DEFAULT 0
|
|
AFTER `is_default`
|
|
}
|
|
);
|
|
|
|
say $out "Added column 'restriction_types.lift_after_payment'";
|
|
}
|
|
|
|
if ( !column_exists( 'restriction_types', 'fee_limit' ) ) {
|
|
$dbh->do(
|
|
q{
|
|
ALTER TABLE restriction_types
|
|
ADD COLUMN `fee_limit` decimal(28,6) DEFAULT NULL
|
|
AFTER `lift_after_payment`
|
|
}
|
|
);
|
|
|
|
say $out "Added column 'restriction_types.fee_limit'";
|
|
}
|
|
},
|
|
};
|