From 8b68b3f8f2cc88d620b484a2219c85f6ff4d78a8 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Tue, 21 Feb 2006 09:50:43 +0000
Subject: [PATCH] Kosmetik: Einige Anfuehrungszeichen gequotet, um
 Syntaxhighlighting zu erleichtern.

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

diff --git a/SL/Form.pm b/SL/Form.pm
index e7fea51f4..fe9d2b862 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -197,7 +197,7 @@ sub quote {
   my ($self, $str) = @_;
 
   if ($str && !ref($str)) {
-    $str =~ s/"/&quot;/g;
+    $str =~ s/\"/&quot;/g;
   }
 
   $str;
@@ -208,7 +208,7 @@ sub unquote {
   my ($self, $str) = @_;
 
   if ($str && !ref($str)) {
-    $str =~ s/&quot;/"/g;
+    $str =~ s/&quot;/\"/g;
   }
 
   $str;
@@ -692,7 +692,7 @@ sub parse_amount {
   }
 
   if ($myconfig->{numberformat} eq "1'000.00") {
-    $amount =~ s/'//g;
+    $amount =~ s/\'//g;
   }
 
   $amount =~ s/,//g;
-- 
2.20.1