From a36907a061a1171921dbd583418bf9852c064f75 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 7 Dec 2006 13:20:15 +0000
Subject: [PATCH] =?utf8?q?Kosmetik:=20Einr=C3=BCckung.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/AM.pm | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/SL/AM.pm b/SL/AM.pm
index 0757ee6d1..01167eebe 100644
--- a/SL/AM.pm
+++ b/SL/AM.pm
@@ -1019,7 +1019,7 @@ sub get_buchungsgruppe {
               description => $ref->{description},
               selected    => "selected",
               id          => $ref->{id} };
-            } else {
+        } else {
           push @{ $form->{"${module}_links"}{$key} },
             { accno       => $ref->{accno},
               description => $ref->{description},
@@ -1939,16 +1939,14 @@ sub closebooks {
 
     $query = qq|UPDATE defaults SET closedto = NULL,
 				    revtrans = '1'|;
-  } else {
-    if ($form->{closedto}) {
+  } elsif ($form->{closedto}) {
 
-      $query = qq|UPDATE defaults SET closedto = '$form->{closedto}',
+    $query = qq|UPDATE defaults SET closedto = '$form->{closedto}',
 				      revtrans = '0'|;
-    } else {
+  } else {
 
-      $query = qq|UPDATE defaults SET closedto = NULL,
+    $query = qq|UPDATE defaults SET closedto = NULL,
 				      revtrans = '0'|;
-    }
   }
 
   # set close in defaults
-- 
2.20.1