X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/6e6e6849a1c346ad13d297f24c02bf9b54ecf28f..5efcb49405b1caa362cd214b52c9314b66d569da:/bin/mozilla/am.pl

diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl
index 2aeba0372..c776ef60a 100644
--- a/bin/mozilla/am.pl
+++ b/bin/mozilla/am.pl
@@ -34,6 +34,8 @@
 
 use utf8;
 
+use List::MoreUtils qw(any);
+
 use SL::Auth;
 use SL::Auth::PasswordPolicy;
 use SL::AM;
@@ -1290,6 +1292,8 @@ sub add_warehouse {
   $form->{title}      = $locale->text('Add Warehouse');
   $form->{callback} ||= build_std_url('action=add_warehouse');
 
+  setup_am_edit_warehouse_action_bar();
+
   $form->header();
   print $form->parse_html_template('am/edit_warehouse');
 
@@ -1312,12 +1316,28 @@ sub edit_warehouse {
   $form->{title}      = $locale->text('Edit Warehouse');
   $form->{callback} ||= build_std_url('action=list_warehouses');
 
+  setup_am_edit_warehouse_action_bar(id => $::form->{id}, in_use => any { $_->{in_use} } @{ $::form->{BINS} });
+
   $form->header();
   print $form->parse_html_template('am/edit_warehouse');
 
   $main::lxdebug->leave_sub();
 }
 
+sub edit_bins {
+  $::auth->assert('config');
+
+  AM->get_warehouse(\%::myconfig, $::form);
+
+  $::form->{title}      = $::locale->text('Edit Bins for Warehouse \'#1\'', $::form->{description});
+  $::form->{callback} ||= build_std_url('action=list_warehouses');
+
+  setup_am_edit_bins_action_bar(id => $::form->{id});
+
+  $::form->header;
+  print $::form->parse_html_template('am/edit_bins');
+}
+
 sub list_warehouses {
   $main::lxdebug->enter_sub();
 
@@ -1333,6 +1353,8 @@ sub list_warehouses {
   $form->{title}    = $locale->text('Warehouses');
   $form->{url_base} = build_std_url('callback');
 
+  setup_am_list_warehouses_action_bar();
+
   $form->header();
   print $form->parse_html_template('am/list_warehouses');
 
@@ -1370,14 +1392,6 @@ sub delete_warehouse {
 
   $main::auth->assert('config');
 
-  if (!$form->{confirmed}) {
-    $form->{title} = $locale->text('Confirmation');
-
-    $form->header();
-    print $form->parse_html_template('am/confirm_delete_warehouse');
-    $::dispatcher->end_request;
-  }
-
   if (AM->delete_warehouse(\%myconfig, $form)) {
     $form->{callback} .= '&saved_message=' . E($locale->text('Warehouse deleted.')) if ($form->{callback});
     $form->redirect($locale->text('Warehouse deleted.'));
@@ -1531,3 +1545,74 @@ sub setup_am_edit_units_action_bar {
     );
   }
 }
+
+sub setup_am_list_warehouses_action_bar {
+  my %params = @_;
+
+  for my $bar ($::request->layout->get('actionbar')) {
+    $bar->add(
+      link => [
+        t8('Add'),
+        link      => 'am.pl?action=add&type=warehouse&callback=' . E($::form->{callback}),
+        accesskey => 'enter',
+      ],
+    );
+  }
+}
+
+sub setup_am_edit_warehouse_action_bar {
+  my %params = @_;
+
+  for my $bar ($::request->layout->get('actionbar')) {
+    $bar->add(
+      action => [
+        t8('Save'),
+        submit    => [ '#form', { action => 'save_warehouse' } ],
+        accesskey => 'enter',
+      ],
+
+      action => [
+        t8('Delete'),
+        submit   => [ '#form', { action => 'delete_warehouse' } ],
+        disabled => !$params{id}    ? t8('The object has not been saved yet.')
+                  : $params{in_use} ? t8('The object is in use and cannot be deleted.')
+                  :                   undef,
+        confirm  => t8('Do you really want to delete this object?'),
+      ],
+
+      'separator',
+
+      link => [
+        t8('Bins'),
+        link    => 'am.pl?action=edit_bins&id=' . E($params{id}),
+        only_if => $params{id},
+      ],
+
+      link => [
+        t8('Abort'),
+        link => $::form->{callback} || 'am.pl?action=list_warehouses',
+      ],
+    );
+  }
+}
+
+sub setup_am_edit_bins_action_bar {
+  my %params = @_;
+
+  for my $bar ($::request->layout->get('actionbar')) {
+    $bar->add(
+      action => [
+        t8('Save'),
+        submit    => [ '#form', { action => 'save_bin' } ],
+        accesskey => 'enter',
+      ],
+
+      'separator',
+
+      link => [
+        t8('Abort'),
+        link => 'am.pl?action=edit_warehouse&id=' . E($params{id}),
+      ],
+    );
+  }
+}