use SL::Menu;
use SL::Presenter;
+use SL::DBUtils;
my %menu_cache;
}
sub init_menu {
- my @menu_files = qw(menus/erp.ini);
+ 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);
}
} else {
$css_path = "$css_path/kivitendo";
}
- $::myconfig{css_path} = $css_path; # needed for menunew, FIXME: don't do this here
return $css_path;
}