X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/46135cc6988f5ce2d8d1be1627651e5da28d64ae..0b34e29fb04ad9ac9912f67b767f9f401700ca97:/bin/mozilla/am.pl

diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl
index 4d4465e7f..392aedcda 100644
--- a/bin/mozilla/am.pl
+++ b/bin/mozilla/am.pl
@@ -215,7 +215,7 @@ sub account_header {
 
   my $select_eur = q|<option value=""> |. $locale->text('None') .q|</option>\n|;
   my %eur;
-  if ($form->{use_case} = scalar(grep(/^Switzerland/, (selectrow_query($form, $form->get_standard_dbh, 'SELECT coa FROM defaults'))[0]))) {
+  if (($form->{country_mode} = SL::DB::Default->get->country_mode) eq 'CH') {
     %eur = (
          1  => "Ertrag",
          6  => "Aufwand",