From b65d3ea95aa2cb31db01775c9d7731b2b541bc06 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 7 Dec 2006 13:07:32 +0000
Subject: [PATCH] Erleichterung fuer Emacs' Syntaxhighlighting.

---
 SL/AM.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/SL/AM.pm b/SL/AM.pm
index d738dc29d..0757ee6d1 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})
@@ -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"}'
-- 
2.20.1