X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/ff424b75f8f66c796eae294d0239f0440741e578..2dfa3a4c75b6f68ab75df739a3e82ceb1b61dcff:/SL/Layout/ActionBar.pm

diff --git a/SL/Layout/ActionBar.pm b/SL/Layout/ActionBar.pm
index a28e1a9fb..3279ba8dc 100644
--- a/SL/Layout/ActionBar.pm
+++ b/SL/Layout/ActionBar.pm
@@ -7,6 +7,7 @@ use Carp;
 use Scalar::Util qw(blessed);
 use SL::Layout::ActionBar::Action;
 use SL::Layout::ActionBar::ComboBox;
+use SL::Layout::ActionBar::Link;
 use SL::Layout::ActionBar::Separator;
 
 use constant HTML_CLASS => 'layout-actionbar';
@@ -18,6 +19,7 @@ use Rose::Object::MakeMethods::Generic (
 my %class_descriptors = (
   action    => { class => 'SL::Layout::ActionBar::Action',    num_params => 1, },
   combobox  => { class => 'SL::Layout::ActionBar::ComboBox',  num_params => 1, },
+  link      => { class => 'SL::Layout::ActionBar::Link',      num_params => 1, },
   separator => { class => 'SL::Layout::ActionBar::Separator', num_params => 0, },
 );
 
@@ -57,7 +59,7 @@ sub parse_actions {
   while (my $type = shift(@actions)) {
     if (blessed($type) && $type->isa('SL::Layout::ActionBar::Action')) {
       push @parsed, $type;
-      continue;
+      next;
     }
 
     my $descriptor = $class_descriptors{lc $type} || croak("Unknown action type '${type}'");
@@ -113,16 +115,11 @@ Arrangement utility
 
 =over 4
 
-=item C<add_actions LIST>
+=item C<add LIST>
 
-Dispatches each each argument to C<add_action>
+to be documented
 
-=item C<add_action>
-
-
-=item C<add_separator>
-
-=item C<add_
+=back
 
 =head1 ACCESS FROM CODE