X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/0ff43ab4cc5ee64577953acf90b2a3f93941b92c..bc2b5fe6f8ceae8fd4135c0e44a5329cc22edfca:/SL/AM.pm

diff --git a/SL/AM.pm b/SL/AM.pm
index 5db3f71ca..a98101724 100644
--- 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;