Bei Artikelauswahl nur ID als Hidden mitschleifen, nicht alle Artikeldetails

[mfinanz.git] / SL / DB / Object / Hooks.pm

diff --git a/SL/DB/Object/Hooks.pm b/SL/DB/Object/Hooks.pm
index f2dfde49b38515841d3378c983d75c4f078daa17..ac3b0a2e60cf5779041c30d513db04a7b3951799 100644 (file)
--- a/SL/DB/Object/Hooks.pm
+++ b/SL/DB/Object/Hooks.pm
@@ -44,7 +44,10 @@ sub run_hooks {
 
   foreach my $sub (@{ ( $hooks{$when} || { })->{ ref($object) } || [ ] }) {
     my $result = ref($sub) eq 'CODE' ? $sub->($object, @args) : $object->call_sub($sub, @args);
-    SL::X::DBHookError->throw(error => "${when} hook '" . (ref($sub) eq 'CODE' ? '<anonymous sub>' : $sub) . "' failed") if !$result;
+    die SL::X::DBHookError->new(when   => $when,
+                                hook   => (ref($sub) eq 'CODE' ? '<anonymous sub>' : $sub),
+                                object => $object)
+      if !$result;
   }
 }