X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/0c404f20f1f066a1e6fc9c4bacf4bd70eec719e4..6f1ffd59a04dab30e87d6ea38c5884624f4b926a:/bin/mozilla/acctranscorrections.pl?ds=inline

diff --git a/bin/mozilla/acctranscorrections.pl b/bin/mozilla/acctranscorrections.pl
index 6ee397f41..18d237bf1 100644
--- a/bin/mozilla/acctranscorrections.pl
+++ b/bin/mozilla/acctranscorrections.pl
@@ -1,8 +1,8 @@
 use SL::AccTransCorrections;
 use SL::Form;
+use SL::Locale::String qw(t8);
 use SL::User;
 use Data::Dumper;
-use YAML;
 
 require "bin/mozilla/common.pl";
 
@@ -14,6 +14,8 @@ sub analyze_filter {
   my $form     = $main::form;
   my $locale   = $main::locale;
 
+  setup_analyze_filter_action_bar();
+
   $form->{title}    = $locale->text('General ledger corrections');
   $form->header();
   print $form->parse_html_template('acctranscorrections/analyze_filter');
@@ -47,6 +49,8 @@ sub analyze {
     return;
   }
 
+  setup_analyze_action_bar();
+
   $form->header();
   print $form->parse_html_template('acctranscorrections/analyze_overview',
                                    { 'PROBLEMS' => \@problems,
@@ -251,4 +255,31 @@ sub dispatcher {
   $form->error($locale->text('No action defined.'));
 }
 
+sub setup_analyze_filter_action_bar {
+  my %params = @_;
+
+  for my $bar ($::request->layout->get('actionbar')) {
+    $bar->add(
+      action => [
+        t8('Analyze'),
+        submit    => [ '#form' ],
+        accesskey => 'enter',
+      ],
+    );
+  }
+}
+
+sub setup_analyze_action_bar {
+  my %params = @_;
+
+  for my $bar ($::request->layout->get('actionbar')) {
+    $bar->add(
+      action => [
+        t8('Back'),
+        call => [ 'kivi.history_back' ],
+      ],
+    );
+  }
+}
+
 1;