X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/16df30aaca2c8d4173f1ea76be206ef5a23e69c9..5c33c334954732080f68768ceeddde42b85d2c1e:/SL/Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index ce887c347..3e9704fd2 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1607,7 +1607,7 @@ sub get_exchangerate {
   my ($self, $dbh, $curr, $transdate, $fld) = @_;
   my ($query);
 
-  unless ($transdate) {
+  unless ($transdate && $curr) {
     $main::lxdebug->leave_sub();
     return 1;
   }