From: Sven Schöling <s.schoeling@linet-services.de>
Date: Mon, 13 Jan 2014 12:26:53 +0000 (+0100)
Subject: Bessere Fehlermeldung bei Fehlkonfiguration von GetModels::Sorted werfen
X-Git-Tag: release-3.1.0beta1~22^2~8^2
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/commitdiff_plain/3a442e98d0ea275d19d056672e8ccc7c8829e6ac?ds=inline;hp=-c

Bessere Fehlermeldung bei Fehlkonfiguration von GetModels::Sorted werfen
---

3a442e98d0ea275d19d056672e8ccc7c8829e6ac
diff --git a/SL/Controller/Helper/GetModels/Sorted.pm b/SL/Controller/Helper/GetModels/Sorted.pm
index 216215efa..3b03e04f7 100644
--- a/SL/Controller/Helper/GetModels/Sorted.pm
+++ b/SL/Controller/Helper/GetModels/Sorted.pm
@@ -76,6 +76,12 @@ sub finalize {
   my %sort_params     = $self->read_params;
   my $sort_spec       = $self->specs->{ $sort_params{sort_by} };
 
+  if (!$sort_spec) {
+    no warnings 'once';
+    $::lxdebug->show_backtrace(1);
+    die "Unknown sort spec '$sort_params{sort_by}'";
+  }
+
   $params{sort_by}    = "SL::DB::Manager::$sort_spec->{model}"->make_sort_string(sort_by => $sort_spec->{model_column}, sort_dir => $sort_params{sort_dir});
 
   %params;