X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/3dc29e42a53f674d4a5b745663b1f85b54131de2..53593baa211863fbf66540cf1bcc36c8fb37257f:/SL/Layout/ActionBar/Submit.pm

diff --git a/SL/Layout/ActionBar/Submit.pm b/SL/Layout/ActionBar/Submit.pm
index a277e3be2..f3288c7d9 100644
--- a/SL/Layout/ActionBar/Submit.pm
+++ b/SL/Layout/ActionBar/Submit.pm
@@ -3,11 +3,18 @@ package SL::Layout::ActionBar::Submit;
 use strict;
 use parent qw(SL::Layout::ActionBar::Action);
 
+use SL::Presenter::Tag qw(html_tag);
+
 sub render {
-  $_[0]->p->html_tag('div', $_[0]->text,
+  html_tag('div', $_[0]->text,
     id    => $_[0]->id,
     class => 'layout-actionbar-action layout-actionbar-submit',
   );
 }
 
+sub callable {
+  my ($self) = @_;
+  return $self->params->{submit} || $self->params->{call} || $self->params->{link};
+}
+
 1;