- 

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

            });

        }

        say $out "Added column 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

            });

        }

        say $out "Added column fee_limit";

    },

};