View | Details | Raw Unified | Return to bug 35681
Collapse All | Expand All

(-)a/Koha.pm (-1 / +1 lines)
Lines 29-35 use vars qw{ $VERSION }; Link Here
29
# - #4 : the developer version. The 4th number is the database subversion.
29
# - #4 : the developer version. The 4th number is the database subversion.
30
#        used by developers when the database changes. updatedatabase take care of the changes itself
30
#        used by developers when the database changes. updatedatabase take care of the changes itself
31
#        and is automatically called by Auth.pm when needed.
31
#        and is automatically called by Auth.pm when needed.
32
$VERSION = "23.12.00.002";
32
$VERSION = "23.12.00.003";
33
33
34
sub version {
34
sub version {
35
    return $VERSION;
35
    return $VERSION;
(-)a/installer/data/mysql/atomicupdate/bug_35681.pl (+18 lines)
Line 0 Link Here
1
use Modern::Perl;
2
3
use Term::ANSIColor;
4
5
return {
6
    bug_number  => "35681",
7
    description => "Test Atomic update output",
8
    up          => sub {
9
        my ($args) = @_;
10
        my ( $dbh, $out ) = @$args{qw(dbh out)};
11
12
        say $out colored("Something in red is a warning", 'red');
13
        say $out colored("Somthing in yellow is a call to action", 'yellow');
14
        say $out colored("Something in blue is for information only", 'blue');
15
        say $out colored("You could use 'WHITE' too?", 'white');
16
        say $out "Or leave color off and stick to default";
17
    },
18
};
(-)a/installer/data/mysql/db_revs/231200003.pl (-1 / +18 lines)
Line 0 Link Here
0
- 
1
use Modern::Perl;
2
3
use Term::ANSIColor;
4
5
return {
6
    bug_number  => "35681",
7
    description => "Test DB Rev output",
8
    up          => sub {
9
        my ($args) = @_;
10
        my ( $dbh, $out ) = @$args{qw(dbh out)};
11
12
        say $out colored("Something in red is a warning", 'red');
13
        say $out colored("Somthing in yellow is a call to action", 'yellow');
14
        say $out colored("Something in blue is for information only", 'blue');
15
        say $out colored("You could use 'WHITE' too?", 'white');
16
        say $out "Or leave color off and stick to default";
17
    },
18
};

Return to bug 35681