lx-office-erp stylesheet als fallback

[mfinanz.git] / SL / Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index 7eab5c294e1dfcb368e9f7769e207faacc5c829a..810552b1c6cc6ed03552858385b1e3b3a9b81a2c 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -465,6 +465,8 @@ sub get_stylesheet_for_user {
   if (my $user_style = $::myconfig{stylesheet}) {
     $user_style =~ s/\.css$//; # nuke trailing .css, this is a remnand of pre 2.7.0 stylesheet handling
     $css_path = "$css_path/$user_style" if -d "$css_path/$user_style";
   if (my $user_style = $::myconfig{stylesheet}) {
     $user_style =~ s/\.css$//; # nuke trailing .css, this is a remnand of pre 2.7.0 stylesheet handling
     $css_path = "$css_path/$user_style" if -d "$css_path/$user_style";

+  } else {
+    $css_path = "$css_path/lx-office-erp";

   }
   $::myconfig{css_path} = $css_path; # needed for menunew, FIXME: don't do this here
 
   }
   $::myconfig{css_path} = $css_path; # needed for menunew, FIXME: don't do this here