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

Bug 26684: DBRev 24.12.00.011 

Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
This commit is contained in:
Katrin Fischer 2025-02-21 09:18:40 +00:00
parent 271ca1f067
commit f7a43db1a0
No known key found for this signature in database
GPG Key ID: 0EF6E2C03357A834
3 changed files with 17 additions and 9 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 = "24.12.00.010";
$VERSION = "24.12.00.011";
sub version {
return $VERSION;

8
installer/data/mysql/atomicupdate/001-26684-drop_marc_column_from_auth_header.perl
View File

@ -1,8 +0,0 @@
$DBversion = 'XXX'; # will be replaced by the RM
if( CheckVersion( $DBversion ) ) {
if( column_exists( 'auth_header', 'marc' ) ) {
$dbh->do( "ALTER TABLE auth_header DROP COLUMN marc" );
}
NewVersion( $DBversion, 26684, "Drop marc column from auth_header");
}

16
installer/data/mysql/db_revs/241200011.pl Executable file
View File

@ -0,0 +1,16 @@
use Modern::Perl;
use Koha::Installer::Output qw(say_warning say_success say_info);
return {
bug_number => "26684",
description => "Drop marc column from auth_header",
up => sub {
my ($args) = @_;
my ( $dbh, $out ) = @$args{qw(dbh out)};
if ( column_exists( 'auth_header', 'marc' ) ) {
$dbh->do("ALTER TABLE auth_header DROP COLUMN marc");
say_success( $out, "Removed column 'auth_header.marc'" );
}
},
};