X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/d94820d09f4848d06bf3b74bb85c2c52820fbc48..b262a6e881ec54629afda2e666b9076e8e14aacc:/SL/Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index 7022acc9d..67f378244 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1193,7 +1193,9 @@ sub check_exchangerate {
   my $query = qq|SELECT e.$fld FROM exchangerate e
                  WHERE e.curr = ? AND e.transdate = ?|;
   my ($exchangerate) = selectrow_query($self, $dbh, $query, $currency, $transdate);
-  $dbh->disconnect;
+  $dbh->disconnect();
+
+  $exchangerate = 1 if ($exchangerate == 0);
 
   $main::lxdebug->leave_sub();