]> wagnertech.de Git - mfinanz.git/blobdiff - SL/Layout/ActionBar/Submit.pm
Merge branch 'b-3.6.1' of ../kivitendo-erp_20220811
[mfinanz.git] / SL / Layout / ActionBar / Submit.pm
index a277e3be2dc4fa75b5980c7ec1bad232a947f7bd..f3288c7d9f00859a5ebdb809cfe4f0b594d080d1 100644 (file)
@@ -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;