X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/9557707c3a18daeb9371f2366b8637a7e1f0fa3c..ae27679f804a02ceaf7350f86232178849697917:/SL/AM.pm

diff --git a/SL/AM.pm b/SL/AM.pm
index 3dbff77ff..c85c47911 100644
--- a/SL/AM.pm
+++ b/SL/AM.pm
@@ -1286,28 +1286,6 @@ sub defaultaccounts {
   }
 
   $sth->finish;
-
-  #Get currencies:
-  $query = qq|SELECT curr FROM currencies ORDER BY id|;
-
-  $form->{CURRENCIES} = [];
-
-  $sth = prepare_execute_query($form, $dbh, $query);
-  $sth->execute || $form->dberror($query);
-  while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
-    push @{ $form->{ CURRENCIES } } , $ref;
-  }
-  $sth->finish;
-
-  #Which of them is the default currency?
-  $query = qq|SELECT curr AS defaultcurrency FROM currencies WHERE id = (SELECT curr FROM defaults LIMIT 1);|;
-  $sth   = $dbh->prepare($query);
-  $sth->execute || $form->dberror($query);
-
-  $form->{defaultcurrency}               = ($sth->fetchrow_hashref("NAME_lc"))->{defaultcurrency};
-
-  $sth->finish;
-
   $dbh->disconnect;
 
   $main::lxdebug->leave_sub();