From b961b2aded1c7cb4f16867793a0f4e68cdd8fff5 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@biblibre.com>
Date: Mon, 10 Jun 2013 14:43:41 +0200
Subject: [PATCH] Bug 8190: Add the 'alert' level.

Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com>
Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
---
 Koha/Utils/Logger.pm                                             | 9 ++++++++-
 .../intranet-tmpl/prog/en/modules/admin/preferences/admin.pref   | 3 ++-
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/Koha/Utils/Logger.pm b/Koha/Utils/Logger.pm
index c7b4680..f4a097f 100644
--- a/Koha/Utils/Logger.pm
+++ b/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 );
 }
 
diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/admin.pref b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/admin.pref
index 7c94d14..7bd9894 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/admin.pref
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/admin.pref
@@ -162,7 +162,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
-- 
2.1.0