Koha/installer/data/mysql/db_revs/220600039.pl
Tomas Cohen Arazi 7a413f8015
Bug 32191: Tidy upgrade scripts output
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
2022-11-14 15:08:10 -03:00

20 lines
609 B
Perl
Executable file

use Modern::Perl;
return {
bug_number => "31374",
description => "Add a non-public note column to the suggestions table",
up => sub {
my ($args) = @_;
my ($dbh, $out) = @$args{qw(dbh out)};
if ( !column_exists( 'suggestions', 'staff_note' ) ) {
$dbh->do(q{
ALTER TABLE suggestions
ADD COLUMN staff_note longtext NULL DEFAULT NULL
COMMENT "suggestions table non-public note"
AFTER note
});
}
say $out "Added column 'suggestions.staff_note'";
},
};