X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/4247547d2a925ddad7006cae89e5f9f1fda7d469..c264d7c975209abe5cd41073e1c073d02763129d:/SL/Layout/Base.pm

diff --git a/SL/Layout/Base.pm b/SL/Layout/Base.pm
index e39502f1f..8c7aa3927 100644
--- a/SL/Layout/Base.pm
+++ b/SL/Layout/Base.pm
@@ -19,6 +19,7 @@ use Rose::Object::MakeMethods::Generic (
 
 use SL::Menu;
 use SL::Presenter;
+use SL::DBUtils;
 
 my %menu_cache;
 
@@ -29,7 +30,16 @@ sub new {
 }
 
 sub init_menu {
-  SL::Menu->new('user');
+  my @menu_files;
+  my $dbh = $::form->get_standard_dbh;
+  if(scalar(grep(/^Switzerland/, (selectrow_query($::form, $dbh, 'SELECT coa FROM defaults'))[0]))) {
+    @menu_files = qw(menus/erp_ch.ini);
+  } else {
+    @menu_files = qw(menus/erp.ini);
+  }
+  $dbh->commit;
+  unshift @menu_files, 'menus/crm.ini' if $::instance_conf->crm_installed;
+  Menu->new(@menu_files);
 }
 
 sub init_auto_reload_resources_param {