X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/6f90b1ba5d1301194ad12591a000794acd89449b..41ec1a254c67a6bbd3ce97b91fb9521876a2e91b:/SL/Controller/RequirementSpec.pm diff --git a/SL/Controller/RequirementSpec.pm b/SL/Controller/RequirementSpec.pm index 9fd3cf328..ecc8e32f8 100644 --- a/SL/Controller/RequirementSpec.pm +++ b/SL/Controller/RequirementSpec.pm @@ -53,6 +53,7 @@ my %sort_columns = ( sub action_list { my ($self) = @_; + $self->_setup_search_action_bar; $self->prepare_report; $self->report_generator_list_objects(report => $self->{report}, objects => $self->models->get); } @@ -703,4 +704,22 @@ sub _setup_form_action_bar { } } +sub _setup_search_action_bar { + my ($self, %params) = @_; + + for my $bar ($::request->layout->get('actionbar')) { + $bar->add( + action => [ + t8('Update'), + submit => [ '#search_form', { action => 'RequirementSpec/list' } ], + accesskey => 'enter', + ], + link => [ + t8('Add'), + link => $self->url_for(action => 'new', is_template => $::form->{is_template}), + ], + ); + } +} + 1;