From 336ef3a0191329444d28ce3fb36d44ab7cec426b Mon Sep 17 00:00:00 2001 From: Katrin Fischer Date: Thu, 24 Oct 2024 13:08:01 +0000 Subject: [PATCH] Bug 30955: DBRev 26.04.00.041 Signed-off-by: Katrin Fischer --- Koha.pm | 2 +- .../bug_30955-move-notices-to-lists.pl | 16 ---------------- installer/data/mysql/db_revs/240600041.pl | 17 +++++++++++++++++ 3 files changed, 18 insertions(+), 17 deletions(-) delete mode 100755 installer/data/mysql/atomicupdate/bug_30955-move-notices-to-lists.pl create mode 100755 installer/data/mysql/db_revs/240600041.pl diff --git a/Koha.pm b/Koha.pm index 1b4f4856d0..511b5ce2fa 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.06.00.040"; +$VERSION = "24.06.00.041"; sub version { return $VERSION; diff --git a/installer/data/mysql/atomicupdate/bug_30955-move-notices-to-lists.pl b/installer/data/mysql/atomicupdate/bug_30955-move-notices-to-lists.pl deleted file mode 100755 index 64eca2e0b9..0000000000 --- a/installer/data/mysql/atomicupdate/bug_30955-move-notices-to-lists.pl +++ /dev/null @@ -1,16 +0,0 @@ -use Modern::Perl; - -return { - bug_number => "30955", - description => "Move existing list-based notices to new lists category", - up => sub { - my ($args) = @_; - my ( $dbh, $out ) = @$args{qw(dbh out)}; - - $dbh->do( q{ UPDATE IGNORE letter SET module = 'lists' WHERE code = 'SHARE_ACCEPT'; } ); - say $out "Moved SHARE_ACCEPT notice to lists module"; - - $dbh->do( q{ UPDATE IGNORE letter SET module = 'lists' WHERE code = 'SHARE_INVITE'; } ); - say $out "Moved SHARE_INVITE notice to lists module"; - }, -}; diff --git a/installer/data/mysql/db_revs/240600041.pl b/installer/data/mysql/db_revs/240600041.pl new file mode 100755 index 0000000000..26b91e9703 --- /dev/null +++ b/installer/data/mysql/db_revs/240600041.pl @@ -0,0 +1,17 @@ +use Modern::Perl; +use Koha::Installer::Output qw(say_warning say_failure say_success say_info); + +return { + bug_number => "30955", + description => "Move existing list notices to new lists category", + up => sub { + my ($args) = @_; + my ( $dbh, $out ) = @$args{qw(dbh out)}; + + $dbh->do(q{ UPDATE IGNORE letter SET module = 'lists' WHERE code = 'SHARE_ACCEPT'; }); + say_success( $out, "Moved SHARE_ACCEPT notice to lists module" ); + + $dbh->do(q{ UPDATE IGNORE letter SET module = 'lists' WHERE code = 'SHARE_INVITE'; }); + say_success( $out, "Moved SHARE_INVITE notice to lists module" ); + }, +}; -- 2.39.5