From 51f16885b75c6899b82b4785b25cd62ffce2fb90 Mon Sep 17 00:00:00 2001
From: Katrin Fischer <katrin.fischer@bsz-bw.de>
Date: Fri, 9 Aug 2024 15:47:39 +0000
Subject: [PATCH] Bug 36758: DBRev 24.06.00.023

Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
---
 Koha.pm                                        |  2 +-
 installer/data/mysql/atomicupdate/bug_36757.pl | 16 ----------------
 installer/data/mysql/db_revs/240600023.pl      | 17 +++++++++++++++++
 3 files changed, 18 insertions(+), 17 deletions(-)
 delete mode 100755 installer/data/mysql/atomicupdate/bug_36757.pl
 create mode 100755 installer/data/mysql/db_revs/240600023.pl

diff --git a/Koha.pm b/Koha.pm
index 31b6d9246f..a05b3b0f6d 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.022";
+$VERSION = "24.06.00.023";
 
 sub version {
     return $VERSION;
diff --git a/installer/data/mysql/atomicupdate/bug_36757.pl b/installer/data/mysql/atomicupdate/bug_36757.pl
deleted file mode 100755
index 00a531ff6b..0000000000
--- a/installer/data/mysql/atomicupdate/bug_36757.pl
+++ /dev/null
@@ -1,16 +0,0 @@
-use Modern::Perl;
-
-return {
-    bug_number  => "36757",
-    description => "Notify assignee when a concern is assigned to them",
-    up          => sub {
-        my ($args) = @_;
-        my ( $dbh, $out ) = @$args{qw(dbh out)};
-
-        $dbh->do(
-            q{INSERT IGNORE INTO letter (module, code, branchcode, name, is_html, title, message_transport_type, lang, content) VALUES ("catalogue", "TICKET_ASSIGNED", "", "Concern assigned notification", 1, "Catalog concern assigned", "email", "default", "[%- PROCESS 'html_helpers.inc' -%][%- USE Koha -%]Dear cataloger,<br>[%- INCLUDE 'patron-title.inc' patron => libraian -%] has assigned the following concern with <a href='[%- Koha.Preference('staffClientBaseURL') -%]/cgi-bin/koha/catalogue/detail.pl?biblionumber=[% ticket.biblio.biblionumber %]' >[%- INCLUDE 'biblio-title.inc' biblio=ticket.biblio link = 0 -%]</a> to you<br><br>[%- ticket.body -%]<br><br>You can action this concern from the <a href='[%- Koha.Preference('staffClientBaseURL') -%]/cgi-bin/koha/cataloguing/concerns.pl'>concern management page</a>.")}
-        );
-
-        say $out "Added notice 'TICKET_ASSIGNED'";
-    },
-};
diff --git a/installer/data/mysql/db_revs/240600023.pl b/installer/data/mysql/db_revs/240600023.pl
new file mode 100755
index 0000000000..4c1028dbf9
--- /dev/null
+++ b/installer/data/mysql/db_revs/240600023.pl
@@ -0,0 +1,17 @@
+use Modern::Perl;
+use Koha::Installer::Output qw(say_warning say_failure say_success say_info);
+
+return {
+    bug_number  => "36757",
+    description => "Notify assignee when a concern is assigned to them",
+    up          => sub {
+        my ($args) = @_;
+        my ( $dbh, $out ) = @$args{qw(dbh out)};
+
+        $dbh->do(
+            q{INSERT IGNORE INTO letter (module, code, branchcode, name, is_html, title, message_transport_type, lang, content) VALUES ("catalogue", "TICKET_ASSIGNED", "", "Concern assigned notification", 1, "Catalog concern assigned", "email", "default", "[%- PROCESS 'html_helpers.inc' -%][%- USE Koha -%]Dear cataloger,<br>[%- INCLUDE 'patron-title.inc' patron => librarian -%] has assigned the following concern with <a href='[%- Koha.Preference('staffClientBaseURL') -%]/cgi-bin/koha/catalogue/detail.pl?biblionumber=[% ticket.biblio.biblionumber %]' >[%- INCLUDE 'biblio-title.inc' biblio=ticket.biblio link = 0 -%]</a> to you<br><br>[%- ticket.body -%]<br><br>You can action this concern from the <a href='[%- Koha.Preference('staffClientBaseURL') -%]/cgi-bin/koha/cataloguing/concerns.pl'>concern management page</a>.")}
+        );
+
+        say_success( $out, "Added notice 'TICKET_ASSIGNED'" );
+    },
+};
-- 
2.39.5