use SL::Menu;
use SL::Presenter;
+use SL::DBUtils;
my %menu_cache;
}
sub init_menu {
- SL::Menu->new('user');
+ my @menu_files;
+ if(scalar(grep(/^Switzerland/, (selectrow_query($::form, $::form->get_standard_dbh, 'SELECT coa FROM defaults'))[0]))) {
+ @menu_files = qw(menus/erp_ch.ini);
+ } else {
+ @menu_files = qw(menus/erp.ini);
+ }
+ unshift @menu_files, 'menus/crm.ini' if $::instance_conf->crm_installed;
+ Menu->new(@menu_files);
}
sub init_auto_reload_resources_param {