@@ -, +, @@ --- Koha/Utils/Logger.pm | 9 ++++++++- .../prog/en/modules/admin/preferences/admin.pref | 3 ++- 2 files changed, 10 insertions(+), 2 deletions(-) --- a/Koha/Utils/Logger.pm +++ a/Koha/Utils/Logger.pm @@ -26,7 +26,8 @@ sub _write { my ( $self, $msg, $log_level, $dump, $cb ) = @_; my $LEVEL_STR = { - 1 => 'UNUS ', + 0 => 'UNUS ', + 1 => 'ALERT ', 2 => 'CRIT ', 3 => 'ERROR ', 4 => 'WARN ', @@ -56,6 +57,12 @@ sub _write { sub unusable { my ( $self, $msg, $dump ) = @_; my $cb = $self->_called_by(); + $self->_write( $msg, 0, $dump, $cb ); +} + +sub alert { + my ( $self, $msg, $dump ) = @_; + my $cb = $self->_called_by(); $self->_write( $msg, 1, $dump, $cb ); } --- a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/admin.pref +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/admin.pref @@ -118,7 +118,8 @@ Administration: - Set the level - pref: LogLevel choices: - 1: 1- Unusable + 0: 0- Unusable + 1: 1- Alert 2: 2- Critical 3: 3- Error 4: 4- Warning --