weitere umstrukturierung

[mfinanz.git] / SL / Controller / Helper / GetModels / Base.pm

diff --git a/SL/Controller/Helper/GetModels/Base.pm b/SL/Controller/Helper/GetModels/Base.pm
index 3d28de5d14d7fedb304002a8db2420c286d455bf..97aa84d0ce76df80bb43c9dffb25ca3fb98a950f 100644 (file)
--- a/SL/Controller/Helper/GetModels/Base.pm
+++ b/SL/Controller/Helper/GetModels/Base.pm
@@ -4,11 +4,15 @@ use strict;
 use parent 'Rose::Object';
 use Scalar::Util qw(weaken);
 
-
 use Rose::Object::MakeMethods::Generic (
-  scalar => [ qw(get_models) ],
+  scalar => [ qw(get_models disabled finalized) ],
 );
 
+# phase stubs
+sub read_params { die 'implement me' }
+
+sub finalize { die 'implement me' }
+
 sub set_get_models {
   $_[0]->get_models($_[1]);
 
@@ -23,7 +27,19 @@ sub merge_args {
     $final_args->{$field} = [ map { @{ $_->{$field} || [] } } @args ];
   }
 
+  for my $field (qw(page per_page sort_by sort_dir )) {
+    for my $arg (@args) {
+      next unless defined $_->{$field};
+      $final_args->{$field} //= $_->{$field};
+    }
+  }
+
   return %$final_args;
 }
 
+sub is_enabled {
+  my ($self) = @_;
+  return !$self->disabled;
+}
+
 1;