From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 11 Jan 2007 15:07:36 +0000 (+0000)
Subject: Syntaxhighlighting für Emacs erleichtert.
X-Git-Tag: release-2.4.1~1^2~55
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=386994b1990197a2486548ff1c77295f4e5b24cf;p=kivitendo-erp.git

Syntaxhighlighting für Emacs erleichtert.
---

diff --git a/SL/DATEV.pm b/SL/DATEV.pm
index e0a0435eb..3a7bbc15e 100644
--- a/SL/DATEV.pm
+++ b/SL/DATEV.pm
@@ -391,7 +391,7 @@ sub make_kne_data_header {
   $to   =~ s/ //g;
 
   if ($from ne "") {
-    my ($fday, $fmonth, $fyear) = split /\./, $from;
+    my ($fday, $fmonth, $fyear) = split(/\./, $from);
     if (length($fmonth) < 2) {
       $fmonth = "0" . $fmonth;
     }
@@ -406,7 +406,7 @@ sub make_kne_data_header {
   $header .= $from;
 
   if ($to ne "") {
-    my ($tday, $tmonth, $tyear) = split /\./, $to;
+    my ($tday, $tmonth, $tyear) = split(/\./, $to);
     if (length($tmonth) < 2) {
       $tmonth = "0" . $tmonth;
     }
@@ -470,7 +470,7 @@ sub datetofour {
 
   my ($date, $six) = @_;
 
-  ($day, $month, $year) = split /\./, $date;
+  ($day, $month, $year) = split(/\./, $date);
 
   if ($day =~ /^0/) {
     $day = substr($day, 1, 1);
@@ -499,7 +499,7 @@ sub formatumsatz {
   my ($umsatz, $stellen) = @_;
 
   $umsatz =~ s/-//;
-  ($vorkomma, $nachkomma) = split /\./, $umsatz;
+  ($vorkomma, $nachkomma) = split(/\./, $umsatz);
   $umsatz = "";
   if ($stellen > 0) {
     for ($i = $stellen; $i >= $stellen + 2 - length($vorkomma); $i--) {