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

(-)a/Koha/Installer/Output.pm (-5 / +28 lines)
Lines 71-92 Output an informational message in blue. Link Here
71
71
72
sub say_warning {
72
sub say_warning {
73
    my ( $fh, $msg ) = @_;
73
    my ( $fh, $msg ) = @_;
74
    say $fh YELLOW, "$msg", RESET;
74
75
    if( $fh ) {
76
        say $fh YELLOW, "$msg", RESET;
77
    }
78
    else {
79
        say YELLOW, "$msg", RESET;
80
    }
75
}
81
}
76
82
77
sub say_failure {
83
sub say_failure {
78
    my ( $fh, $msg ) = @_;
84
    my ( $fh, $msg ) = @_;
79
    say $fh RED, "$msg", RESET;
85
86
    if( $fh ) {
87
        say $fh RED, "$msg", RESET;
88
    }
89
    else {
90
        say RED, "$msg", RESET;
91
    }
80
}
92
}
81
93
82
sub say_success {
94
sub say_success {
83
    my ( $fh, $msg ) = @_;
95
    my ( $fh, $msg ) = @_;
84
    say $fh GREEN, "$msg", RESET;
96
97
    if( $fh ) {
98
        say $fh GREEN, "$msg", RESET;
99
    }
100
    else {
101
        say GREEN, "$msg", RESET;
102
    }
85
}
103
}
86
104
87
sub say_info {
105
sub say_info {
88
    my ( $fh, $msg ) = @_;
106
    my ( $fh, $msg ) = @_;
89
    say $fh BLUE, "$msg", RESET;
107
108
    if( $fh ) {
109
        say $fh BLUE, "$msg", RESET;
110
    }
111
    else {
112
        say BLUE, "$msg", RESET;
113
    }
90
}
114
}
91
115
92
=head1 AUTHORS
116
=head1 AUTHORS
93
- 

Return to bug 38299