From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Fri, 13 Apr 2007 08:35:51 +0000 (+0000)
Subject: Bei Nummernkreisen auch Sonderzeichen erlauben (Perls eigener Algorithmus hinter... 
X-Git-Tag: release-2.4.3^2~503
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=12c628c589ea4e0da1caf190416da08946c54636;p=kivitendo-erp.git

Bei Nummernkreisen auch Sonderzeichen erlauben (Perls eigener Algorithmus hinter "$var++;" funktioniert z.B. nicht, wenn die Variable ein Gleichheitszeichen enthält).
---

diff --git a/SL/Form.pm b/SL/Form.pm
index 6b380bd6f..74e7ff28e 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -2320,7 +2320,11 @@ sub update_defaults {
   my ($var) = $sth->fetchrow_array;
   $sth->finish;
 
-  $var++;
+  if ($var =~ /^(.*?)(\d+)$/) {
+    $var = "$1" . ($2 + 1);
+  } else {
+    $var++;
+  }
 
   $query = qq|UPDATE defaults SET $fld = ?|;
   do_query($self, $dbh, $query, $var);
@@ -2352,7 +2356,11 @@ sub update_business {
   my ($var) = selectrow_query($self, $dbh, $query, $business_id);
 
   if ($var ne "") {
-    $var++;
+    if ($var =~ /^(.*?)(\d+)$/) {
+      $var = "$1" . ($2 + 1);
+    } else {
+      $var++;
+    }
   }
   $query = qq|UPDATE business
               SET customernumberinit = ?