diff --git a/Koha.pm b/Koha.pm index c260776f61..143289e132 100644 --- a/Koha.pm +++ b/Koha.pm @@ -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; diff --git a/installer/data/mysql/atomicupdate/001-26684-drop_marc_column_from_auth_header.perl b/installer/data/mysql/atomicupdate/001-26684-drop_marc_column_from_auth_header.perl deleted file mode 100755 index bf4500c442..0000000000 --- a/installer/data/mysql/atomicupdate/001-26684-drop_marc_column_from_auth_header.perl +++ /dev/null @@ -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"); -} diff --git a/installer/data/mysql/db_revs/241200011.pl b/installer/data/mysql/db_revs/241200011.pl new file mode 100755 index 0000000000..55f4895238 --- /dev/null +++ b/installer/data/mysql/db_revs/241200011.pl @@ -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'" ); + } + }, +};