X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FX.pm;h=e1707cd0e3bfef0ff5b4137f892246e2a71e3047;hb=3782a90c336bc6c506f572e607c8526cb5e79ea3;hp=b8ae60ac632d36d45975c46c691ae026cb8a6c6a;hpb=333003d332756c5f53a33720aea7b714dfd335c8;p=kivitendo-erp.git

diff --git a/SL/X.pm b/SL/X.pm
index b8ae60ac6..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,7 +27,7 @@ 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',
@@ -30,6 +35,14 @@ use Exception::Class (
   '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;