standardise log level names

diff --git a/site/cgi-bin/modules/BSE/TB/ArticleFile.pm b/site/cgi-bin/modules/BSE/TB/ArticleFile.pm
index f254ee7bae7a86b85781ff8a6789ff2ba0f231d3..2d29a3615a66c8c863c6e02f4f681f9db04c2875 100644 (file)
--- a/site/cgi-bin/modules/BSE/TB/ArticleFile.pm
+++ b/site/cgi-bin/modules/BSE/TB/ArticleFile.pm
@@ -6,7 +6,7 @@ use vars qw/@ISA/;
 @ISA = qw/Squirrel::Row/;
 use Carp 'confess';
 
-our $VERSION = "1.007";
+our $VERSION = "1.008";
 
 sub columns {
   return qw/id articleId displayName filename sizeInBytes description 
@@ -487,7 +487,7 @@ sub update {
     BSE::TB::AuditLog->log
       (
        component => "admin:edit:saveimage",
-       level => "warn",
+       level => "warning",
        object => $self,
        actor => $actor,
        msg => "Error saving file to storage $new_storage: $msg",
@@ -506,7 +506,7 @@ sub update {
       BSE::TB::AuditLog->log
        (
         component => "admin:edit:savefile",
-        level => "warn",
+        level => "warning",
         object => $self,
         actor => $actor,
         msg => "Error saving file to storage $new_storage: $msg",

diff --git a/site/cgi-bin/modules/BSE/TB/Image.pm b/site/cgi-bin/modules/BSE/TB/Image.pm
index c2862795a0db00e6c3dd648859947476981fd5bd..568d4c58fb6698a2b65482a8c3ed27be182b87fc 100644 (file)
--- a/site/cgi-bin/modules/BSE/TB/Image.pm
+++ b/site/cgi-bin/modules/BSE/TB/Image.pm
@@ -7,7 +7,7 @@ use vars qw/@ISA/;
 @ISA = qw/Squirrel::Row BSE::ThumbCommon/;
 use Carp qw(confess);
 
-our $VERSION = "1.005";
+our $VERSION = "1.006";
 
 sub columns {
   return qw/id articleId image alt width height url displayOrder name
@@ -247,7 +247,7 @@ sub update {
     BSE::TB::AuditLog->log
       (
        component => "admin:edit:saveimage",
-       level => "warn",
+       level => "warning",
        object => $image,
        actor => $actor,
        msg => "Error saving image to storage $new_storage: $msg",
@@ -266,7 +266,7 @@ sub update {
       BSE::TB::AuditLog->log
        (
         component => "admin:edit:saveimage",
-        level => "warn",
+        level => "warning",
         object => $image,
         actor => $actor,
         msg => "Error saving image to storage $new_storage: $msg",

diff --git a/site/cgi-bin/modules/BSE/Util/ValidateHTML.pm b/site/cgi-bin/modules/BSE/Util/ValidateHTML.pm
index ef1ed63f0ce6b1e5a5114d6de970454ae01f7e15..5b960e7313498c4671907e97ae1b176775c3c7be 100644 (file)
--- a/site/cgi-bin/modules/BSE/Util/ValidateHTML.pm
+++ b/site/cgi-bin/modules/BSE/Util/ValidateHTML.pm
@@ -1,7 +1,7 @@
 package BSE::Util::ValidateHTML;
 use strict;
 
-our $VERSION = "1.000";
+our $VERSION = "1.001";
 
 sub validate {
   my ($class, $cfg, $result) = @_;
@@ -20,7 +20,7 @@ sub validate {
       BSE::TB::AuditLog->log
          (
           component => "template:validatehtml:load",
-          level => "critical",
+          level => "crit",
           actor => "S",
           msg => "Could not load $real_class",
           dump => $@,