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/gitweb/gitweb.cgi/kivitendo-erp.git/commitdiff_plain/b262a6e881ec54629afda2e666b9076e8e14aacc?ds=sidebyside;hp=d94820d09f4848d06bf3b74bb85c2c52820fbc48

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