standardise log message wording and promote level

diff --git a/site/cgi-bin/modules/BSE/AdminUsers.pm b/site/cgi-bin/modules/BSE/AdminUsers.pm
index ff2d1178db15a35caecb41512ae5eddfba7e7b88..907d05757ef642e3f27189f5d28658210af247ef 100644 (file)
--- a/site/cgi-bin/modules/BSE/AdminUsers.pm
+++ b/site/cgi-bin/modules/BSE/AdminUsers.pm
@@ -9,7 +9,7 @@ use BSE::TB::AdminUsers;
 use BSE::TB::AdminGroups;
 use BSE::Util::Iterate;
 
-our $VERSION = "1.006";
+our $VERSION = "1.007";
 
 my %actions =
   (
@@ -303,8 +303,8 @@ sub req_adduser {
     (
      component => "admin:users:adduser",
      object => $user,
-     msg => "User '".$user->logon."' created",
-     level => "info",
+     msg => "Admin User '".$user->logon."' created",
+     level => "notice",
     );
 
   return $class->refresh($req, 'a_showuser', userid=>$user->{id},
@@ -949,6 +949,14 @@ sub req_deluser {
 
   $class->_save_htusers($req, \$msg);
 
+  $req->audit
+    (
+     component => "admin:users:deluser",
+     object => $user,
+     msg => "Admin User '".$user->logon."' deleted",
+     level => "notice",
+    );
+
   return $class->refresh($req, a_users =>
                         'm' => $msg);
 }