From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Fri, 1 Jun 2007 12:55:40 +0000 (+0000)
Subject: Wechselkurse dürfen nicht 0 sein.
X-Git-Tag: release-2.4.3^2~211
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=b262a6e881ec54629afda2e666b9076e8e14aacc;p=kivitendo-erp.git

Wechselkurse dürfen nicht 0 sein.
---

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();