X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/36c8af5266db4c2894cd37df798212c2e7f06f68..41ec1a254c67a6bbd3ce97b91fb9521876a2e91b:/SL/Layout/ActionBar/Action.pm diff --git a/SL/Layout/ActionBar/Action.pm b/SL/Layout/ActionBar/Action.pm index b72314b4a..4243b652b 100644 --- a/SL/Layout/ActionBar/Action.pm +++ b/SL/Layout/ActionBar/Action.pm @@ -4,7 +4,6 @@ use strict; use parent qw(Rose::Object); use SL::Presenter; - require SL::Layout::ActionBar::Submit; use Rose::Object::MakeMethods::Generic ( 'scalar --get_set_init' => [ qw(id params text) ], @@ -24,12 +23,16 @@ sub script { sub from_params { my ($class, $data) = @_; + require SL::Layout::ActionBar::Submit; + my ($text, %params) = @$data; return if exists($params{only_if}) && !$params{only_if}; return if exists($params{not_if}) && $params{not_if}; return SL::Layout::ActionBar::Submit->new(text => $text, params => \%params); } +sub callable { 0 } + # shortcut for presenter sub p {