More improvements

[clearscm.git] / maps / lib / MAPSLog.pm

diff --git a/maps/lib/MAPSLog.pm b/maps/lib/MAPSLog.pm
index 433de2b..9d88db4 100644 (file)
--- a/maps/lib/MAPSLog.pm
+++ b/maps/lib/MAPSLog.pm
@@ -24,6 +24,7 @@ use MAPS;
 use DateUtils;
 use Utils;
 
+our @ISA = qw(Exporter);
 our @EXPORT = qw (
   Debug
   Error
@@ -34,12 +35,12 @@ our @EXPORT = qw (
 );
 
 our @Types = (
+  'nulllist',
   'returned',
   'whitelist',
   'blacklist',
   'registered',
   'mailloop',
-  'nulllist'
 );
 
 sub nbr_msgs($) {
@@ -105,6 +106,8 @@ sub Debug(%) {
 sub Error(%) {
   my (%params) = @_;
 
+CheckParms(['userid', 'message'], \%params);
+
   return Logmsg(
     userid  => $params{userid},
     type    => 'error',