From de325c58e61b36971032cd1931b19ce84c834fbc Mon Sep 17 00:00:00 2001
From: Pedro Amorim <pedro.amorim@ptfs-europe.com>
Date: Wed, 22 May 2024 14:40:28 +0000
Subject: [PATCH] Bug 35570: (QA follow-up): Rebase on final state of bug 35681

---
 .../data/mysql/atomicupdate/bug_35570.pl      | 30 +++++++++++++------
 1 file changed, 21 insertions(+), 9 deletions(-)

diff --git a/installer/data/mysql/atomicupdate/bug_35570.pl b/installer/data/mysql/atomicupdate/bug_35570.pl
index 3fc574775e..f1603182a0 100755
--- a/installer/data/mysql/atomicupdate/bug_35570.pl
+++ b/installer/data/mysql/atomicupdate/bug_35570.pl
@@ -1,8 +1,8 @@
 use Modern::Perl;
+use Koha::Installer::Output qw(say_warning say_failure say_success say_info);
 
 use C4::Context;
 use Koha::Reports;
-use Term::ANSIColor;
 
 return {
     bug_number  => "35570",
@@ -19,7 +19,10 @@ return {
 
         if ($illbatches) {
             $dbh->do("UPDATE illbatches SET backend = 'Standard' where backend = 'FreeForm'");
-            say $out colored( "Bug 35570: Updated ILL batches from 'FreeForm' to 'Standard'", 'green' );
+            say_success(
+                $out,
+                "Bug 35570: Updated ILL batches from 'FreeForm' to 'Standard'"
+            );
         }
 
         my ($illrequestattributes) = $dbh->selectrow_array(
@@ -30,7 +33,10 @@ return {
 
         if ($illrequestattributes) {
             $dbh->do("UPDATE illrequestattributes SET backend = 'Standard' where backend = 'FreeForm'");
-            say $out colored( "Bug 35570: Updated ILL request attributes from 'FreeForm' to 'Standard'", 'green' );
+            say_success(
+                $out,
+                "Bug 35570: Updated ILL request attributes from 'FreeForm' to 'Standard'"
+            );
         }
 
         my ($illrequests) = $dbh->selectrow_array(
@@ -41,7 +47,10 @@ return {
 
         if ($illrequests) {
             $dbh->do("UPDATE illrequests SET backend = 'Standard' where backend = 'FreeForm'");
-            say $out colored( "Bug 35570: Updated ILL requests from 'FreeForm' to 'Standard'", 'green' );
+            say_success(
+                $out,
+                "Bug 35570: Updated ILL requests from 'FreeForm' to 'Standard'"
+            );
         }
 
         my $reports = join(
@@ -57,13 +66,16 @@ return {
         );
 
         if ($reports) {
-            say $out colored(
-                "Bug 35570: **ACTION REQUIRED**: Saved SQL reports containing occurrences of 'FreeForm' were found. The following reports MUST be updated accordingly ('FreeForm' -> 'Standard'):",
-                'yellow'
+            say_warning(
+                $out,
+                "Bug 35570: **ACTION REQUIRED**: Saved SQL reports containing occurrences of 'FreeForm' were found. The following reports MUST be updated accordingly ('FreeForm' -> 'Standard'):"
+            );
+            say_info(
+                $out,
+                $reports
             );
-            say $out colored( $reports, 'blue');
         } else {
-            say $out "Bug 35570: Finished database update.";
+            say_info( $out, "Bug 35570: Finished database update." );
         }
 
     },
-- 
2.39.2