X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FLayout%2FActionBar%2FLink.pm;fp=SL%2FLayout%2FActionBar%2FLink.pm;h=5e47663cd04b2e8e9533503193888865dc9587e6;hb=53593baa211863fbf66540cf1bcc36c8fb37257f;hp=0000000000000000000000000000000000000000;hpb=deb4d2dbb676d7d6f69dfe7815d6e0cb09bd4a44;p=kivitendo-erp.git

diff --git a/SL/Layout/ActionBar/Link.pm b/SL/Layout/ActionBar/Link.pm
new file mode 100644
index 000000000..5e47663cd
--- /dev/null
+++ b/SL/Layout/ActionBar/Link.pm
@@ -0,0 +1,30 @@
+package SL::Layout::ActionBar::Link;
+
+use strict;
+use parent qw(SL::Layout::ActionBar::Action);
+
+use SL::Presenter::Tag qw(html_tag);
+
+sub from_params {
+  my ($class, $data) = @_;
+
+  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::Link->new(text => $text, params => \%params);
+}
+
+sub render {
+  my ($self) = @_;
+
+  html_tag(
+    'div', $self->text,
+    id    => $self->id,
+    class => 'layout-actionbar-action layout-actionbar-link',
+  );
+}
+
+sub callable { 1 }
+
+1;