Benutzereinstellungen für Höhe des Scrollbereichs f. Positionen …

… im neuen Auftrags-Controller

diff --git a/SL/AM.pm b/SL/AM.pm
index 5db3f71ca0bc733198ba7fe5c1522f16732510df..a9810172448733484e957424389d755576e59bfe 100644 (file)
--- a/SL/AM.pm
+++ b/SL/AM.pm
@@ -52,6 +52,7 @@ use SL::DB::Part;
 use SL::DB::Vendor;
 use SL::DB;
 use SL::GenericTranslations;
+use SL::Helper::UserPreferences::PositionsScrollbar;
 
 use strict;
 
@@ -527,6 +528,10 @@ sub displayable_name_specs_by_module {
   };
 }
 
+sub positions_scrollbar_height {
+  SL::Helper::UserPreferences::PositionsScrollbar->new()->get_height();
+}
+
 sub save_preferences {
   $main::lxdebug->enter_sub();
 
@@ -552,6 +557,10 @@ sub save_preferences {
     }
   }
 
+  if (exists $form->{positions_scrollbar_height}) {
+    SL::Helper::UserPreferences::PositionsScrollbar->new()->store_height($form->{positions_scrollbar_height})
+  }
+
   $main::lxdebug->leave_sub();
 
   return 1;

diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl
index 432eb7b9d248cab92eb2edc8233e472e19e38f7c..fa7f092af7f41655b08ccd2406cd6160e2f930a2 100644 (file)
--- a/bin/mozilla/am.pl
+++ b/bin/mozilla/am.pl
@@ -660,6 +660,7 @@ sub config {
   $form->{default_quick_searchmodules} = \@quick_search_modules;
 
   $form->{displayable_name_specs_by_module} = AM->displayable_name_specs_by_module();
+  $form->{positions_scrollbar_height}       = AM->positions_scrollbar_height();
 
   $myconfig{show_form_details} = 1 unless (defined($myconfig{show_form_details}));
   $form->{CAN_CHANGE_PASSWORD} = $main::auth->can_change_password();

diff --git a/locale/de/all b/locale/de/all
index 10622726c9524a02f2df2b61f9b3873561c980bc..085c932cdac5f963474013147b8f22374ee4717a 100755 (executable)
--- a/locale/de/all
+++ b/locale/de/all
@@ -2767,6 +2767,7 @@ $self->{texts} = {
   'Saving the record template \'#1\' failed.' => 'Das Speichern der Belegvorlage »#1« schlug fehl.',
   'Score'                       => 'Punkte',
   'Screen'                      => 'Bildschirm',
+  'Scrollbar height percentage for form postion area (0 means no scrollbar)' => 'Prozentuale Höhe des Scrollbereichs der Positionen in Belegen (0 bedeutet kein Scrollbar)',
   'Search'                      => 'Suchen',
   'Search AP Aging'             => 'Offene Verbindlichkeiten',
   'Search AR Aging'             => 'Offene Forderungen',

diff --git a/locale/en/all b/locale/en/all
index 0865ca9225f8ff2b0b59a0ef1259f8ba6181005b..9a77b733a7bef2a6ae50fa41eaaa6ac4200a504f 100644 (file)
--- a/locale/en/all
+++ b/locale/en/all
@@ -2730,6 +2730,7 @@ $self->{texts} = {
   'Saving the record template \'#1\' failed.' => '',
   'Score'                       => '',
   'Screen'                      => '',
+  'Scrollbar height percentage for form postion area (0 means no scrollbar)' => '',
   'Search'                      => '',
   'Search AP Aging'             => '',
   'Search AR Aging'             => '',

diff --git a/templates/webpages/am/config.html b/templates/webpages/am/config.html
index f64ce7da4533b0727f568a453675c4167d8b0b07..6f5dea74b6b81e0aadbbc75afc9b10abe2563e9b 100644 (file)
--- a/templates/webpages/am/config.html
+++ b/templates/webpages/am/config.html
@@ -147,6 +147,15 @@
       </td>
      </tr>
 
+     [%- IF INSTANCE_CONF.get_feature_experimental_order -%]
+     <tr>
+      <th align="right">[% 'Scrollbar height percentage for form postion area (0 means no scrollbar)' | $T8 %]</th>
+      <td>
+        [% L.input_tag('positions_scrollbar_height',  positions_scrollbar_height, size = 5) %]
+      </td>
+     </tr>
+     [%- END -%]
+
      <tr>
       <th align="right">[% 'Show custom variable search inputs' | $T8 %]</th>
       <td>