X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FAM.pm;h=01167eebebfddfb02f2a43d25e414a47f6f25a70;hb=0b749d12146e361b25af606af074438d71282954;hp=d738dc29df297c3417c902b298350ec9393bf9f9;hpb=e7214232350249fdab6da3445442ff85891a0d7c;p=kivitendo-erp.git

diff --git a/SL/AM.pm b/SL/AM.pm
index d738dc29d..01167eebe 100644
--- a/SL/AM.pm
+++ b/SL/AM.pm
@@ -1009,7 +1009,7 @@ sub get_buchungsgruppe {
   my $sth = $dbh->prepare($query);
   $sth->execute || $form->dberror($query);
   while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
-    foreach my $key (split /:/, $ref->{link}) {
+    foreach my $key (split(/:/, $ref->{link})) {
       if ($key =~ /$module/) {
         if (   ($ref->{id} eq $ref->{inventory_accno_id})
             || ($ref->{id} eq $ref->{income_accno_id})
@@ -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},
@@ -1435,12 +1435,12 @@ sub save_preferences {
 
   my ($self, $myconfig, $form, $memberfile, $userspath, $webdav) = @_;
 
-  map { ($form->{$_}) = split /--/, $form->{$_} }
+  map { ($form->{$_}) = split(/--/, $form->{$_}) }
     qw(inventory_accno income_accno expense_accno fxgain_accno fxloss_accno);
 
   my @a;
   $form->{curr} =~ s/ //g;
-  map { push(@a, uc pack "A3", $_) if $_ } split /:/, $form->{curr};
+  map { push(@a, uc pack "A3", $_) if $_ } split(/:/, $form->{curr});
   $form->{curr} = join ':', @a;
 
   # connect to database
@@ -1490,7 +1490,7 @@ sub save_preferences {
 	      WHERE login = '$form->{login}'|;
   $dbh->do($query) || $form->dberror($query);
 
-  foreach my $item (split / /, $form->{taxaccounts}) {
+  foreach my $item (split(/ /, $form->{taxaccounts})) {
     $query = qq|UPDATE tax
 		SET rate = | . ($form->{$item} / 100) . qq|,
 		taxnumber = '$form->{"taxnumber_$item"}'
@@ -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