X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/8f2af1b3b8bcd0c496bdd7e593f76cf05ba73637..0b34e29fb04ad9ac9912f67b767f9f401700ca97:/bin/mozilla/am.pl?ds=sidebyside

diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl
index e9c1abc96..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",
@@ -584,7 +584,7 @@ sub delete_account {
   $form->{title} = $locale->text('Delete Account');
 
   foreach my $id (
-    qw(inventory_accno_id income_accno_id expense_accno_id fxgain_accno_id fxloss_accno_id)
+    qw(inventory_accno_id income_accno_id expense_accno_id fxgain_accno_id fxloss_accno_id rndgain_accno_id rndloss_accno_id)
     ) {
     if ($form->{id} == $form->{$id}) {
       $form->error($locale->text('Cannot delete default account!'));