gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 33478: DBRev 23.12.00.032 

Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
This commit is contained in:
Katrin Fischer 2024-04-26 16:59:58 +00:00
parent 7491ef8247
commit 220a4a44e7
No known key found for this signature in database
GPG Key ID: 0EF6E2C03357A834
3 changed files with 21 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Koha.pm
View File

@ -29,7 +29,7 @@ use vars qw{ $VERSION };
# - #4 : the developer version. The 4th number is the database subversion.
# used by developers when the database changes. updatedatabase take care of the changes itself
# and is automatically called by Auth.pm when needed.
$VERSION = "23.12.00.031";
$VERSION = "23.12.00.032";
sub version {
return $VERSION;

18
installer/data/mysql/atomicupdate/bug_33478-add_letter_columns.pl
View File

@ -1,18 +0,0 @@
use Modern::Perl;
return {
bug_number => "33478",
description => "Customise the format of notices when they are printed",
up => sub {
my ($args) = @_;
my ($dbh, $out) = @$args{qw(dbh out)};
if( !column_exists( 'letter', 'style' ) ) {
$dbh->do(q{
ALTER TABLE letter ADD COLUMN `style` mediumtext DEFAULT NULL AFTER `updated_on`
});
say $out "Added column 'letter.style'";
}
},
};

20
installer/data/mysql/db_revs/231200032.pl Executable file
View File

@ -0,0 +1,20 @@
use Modern::Perl;
return {
bug_number => "33478",
description => "Customise the format of notices when they are printed",
up => sub {
my ($args) = @_;
my ( $dbh, $out ) = @$args{qw(dbh out)};
if ( !column_exists( 'letter', 'style' ) ) {
$dbh->do(
q{
ALTER TABLE letter ADD COLUMN `style` mediumtext DEFAULT NULL AFTER `updated_on`
}
);
say $out "Added column 'letter.style'";
}
},
};