From f9c86f3fda5c81cc7f0498310d0570dbb3dd7792 Mon Sep 17 00:00:00 2001
From: Bernd Blessmann <bibi@online.de>
Date: Wed, 31 Aug 2011 16:22:58 +0200
Subject: [PATCH] Wechselkurs ging bei Kreditoren/Debitoren-Buchungen verloren,
 wenn er kleiner 1 war.

---
 bin/mozilla/ap.pl | 7 ++++---
 bin/mozilla/ar.pl | 6 +++---
 2 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/bin/mozilla/ap.pl b/bin/mozilla/ap.pl
index d90b06209..bc2986c27 100644
--- a/bin/mozilla/ap.pl
+++ b/bin/mozilla/ap.pl
@@ -684,12 +684,13 @@ $jsscript
     # format amounts
     if ($form->{"paid_$i"}) {
       $form->{"paid_$i"} =
-      $form->format_amount(\%myconfig, $form->{"paid_$i"}, 2);
+        $form->format_amount(\%myconfig, $form->{"paid_$i"}, 2);
     }
-    $form->{"exchangerate_$i"} =
-      $form->format_amount(\%myconfig, $form->{"exchangerate_$i"});
     if ($form->{"exchangerate_$i"} == 0) {
       $form->{"exchangerate_$i"} = "";
+    } else {
+      $form->{"exchangerate_$i"} =
+        $form->format_amount(\%myconfig, $form->{"exchangerate_$i"});
     }
 
     print qq|<input type=hidden name="gldate_$i" value=$form->{"gldate_$i"}>\n|;
diff --git a/bin/mozilla/ar.pl b/bin/mozilla/ar.pl
index 8a04ac517..8ec365ada 100644
--- a/bin/mozilla/ar.pl
+++ b/bin/mozilla/ar.pl
@@ -727,11 +727,11 @@ $jsscript
       $form->{"paid_$i"} =
         $form->format_amount(\%myconfig, $form->{"paid_$i"}, 2);
     }
-    $form->{"exchangerate_$i"} =
-      $form->format_amount(\%myconfig, $form->{"exchangerate_$i"});
-
     if ($form->{"exchangerate_$i"} == 0) {
       $form->{"exchangerate_$i"} = "";
+    } else {
+      $form->{"exchangerate_$i"} =
+        $form->format_amount(\%myconfig, $form->{"exchangerate_$i"});
     }
 
     $exchangerate = qq|&nbsp;|;
-- 
2.20.1