From b262a6e881ec54629afda2e666b9076e8e14aacc Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Fri, 1 Jun 2007 12:55:40 +0000
Subject: [PATCH] =?utf8?q?Wechselkurse=20d=C3=BCrfen=20nicht=200=20sein.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/Form.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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