X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/6bab0fff323c36de9e247487f043da1b29dea6fd..53593baa211863fbf66540cf1bcc36c8fb37257f:/SL/X.pm

diff --git a/SL/X.pm b/SL/X.pm
index 756793b90..e1707cd0e 100644
--- a/SL/X.pm
+++ b/SL/X.pm
@@ -5,6 +5,11 @@ use warnings;
 
 use SL::X::Base;
 
+
+# note! the default fields "message", "error" and "show_trace" are created by
+# Exception::Class if message or error are given, they are used for
+# stringification, so don't use them in error_templates
+#
 use Exception::Class (
   'SL::X::FormError'    => {
     isa                 => 'SL::X::Base',
@@ -22,11 +27,22 @@ use Exception::Class (
   'SL::X::DBRoseError'  => {
     isa                 => 'SL::X::DBError',
     fields              => [ qw(class metaobject object) ],
-    defaults            => { error_template => [ '\'%s\' in object of type \'%s\' occured', qw(db_error class) ] },
+    defaults            => { error_template => [ '\'%s\' in object of type \'%s\' occurred', qw(db_error class) ] },
   },
   'SL::X::DBUtilsError' => {
     isa                 => 'SL::X::DBError',
   },
+  'SL::X::ZUGFeRDValidation' => {
+    isa                 => 'SL::X::Base',
+  },
+  'SL::X::Inventory' => {
+    isa                 => 'SL::X::Base',
+    fields              => [ qw(code) ],
+  },
+  'SL::X::Inventory::Allocation' => {
+    isa                 => 'SL::X::Base',
+    fields              => [ qw(code) ],
+  },
 );
 
 1;