@@ -, +, @@ update reasonable and is colored. `koha-mysql kohadev` `UPDATE systempreferences SET value = '23.1200002';` `http://localhost:8081/cgi-bin/koha/installer/install.pl?step=3&op=updatestructure` confirming the browser output looks good. --- Koha.pm | 2 +- installer/data/mysql/atomicupdate/bug_35681.pl | 18 ++++++++++++++++++ installer/data/mysql/db_revs/231200003.pl | 18 ++++++++++++++++++ 3 files changed, 37 insertions(+), 1 deletion(-) create mode 100755 installer/data/mysql/atomicupdate/bug_35681.pl create mode 100755 installer/data/mysql/db_revs/231200003.pl --- a/Koha.pm +++ a/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 = "23.12.00.002"; +$VERSION = "23.12.00.003"; sub version { return $VERSION; --- a/installer/data/mysql/atomicupdate/bug_35681.pl +++ a/installer/data/mysql/atomicupdate/bug_35681.pl @@ -0,0 +1,18 @@ +use Modern::Perl; + +use Term::ANSIColor qw(:constants); + +return { + bug_number => "35681", + description => "Test Atomic update output", + up => sub { + my ($args) = @_; + my ( $dbh, $out ) = @$args{qw(dbh out)}; + + say $out RED, "Something in red is a warning"; + say $out YELLOW, "Somthing in yellow is a call to action"; + say $out BLUE, "Something in blue is for information only"; + say $out WHITE, "You could use 'WHITE' too?"; + say $out "Or leave color off and stick to default"; + }, +}; --- a/installer/data/mysql/db_revs/231200003.pl +++ a/installer/data/mysql/db_revs/231200003.pl @@ -0,0 +1,18 @@ +use Modern::Perl; + +use Term::ANSIColor qw(:constants); + +return { + bug_number => "35681", + description => "Test DB Rev output", + up => sub { + my ($args) = @_; + my ( $dbh, $out ) = @$args{qw(dbh out)}; + + say $out RED, "Something in red is a warning"; + say $out YELLOW, "Somthing in yellow is a call to action"; + say $out BLUE, "Something in blue is for information only"; + say $out WHITE, "You could use 'WHITE' too?"; + say $out "Or leave color off and stick to default"; + }, +}; --