From 81006c45d65087f078d6706831dd4b307b226e25 Mon Sep 17 00:00:00 2001
From: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Mon, 7 May 2007 19:40:00 +0000
Subject: Fixing behaviour of 'months' and 'years' units in add_date

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1156 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/Form.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm
index d50fd49f..bfdf7d7f 100644
--- a/LedgerSMB/Form.pm
+++ b/LedgerSMB/Form.pm
@@ -1416,12 +1416,13 @@ sub add_date {
             my $whole = int( $diff / 12 );
             $yy += $whole;
 
-            $mm   = ( $diff % 12 ) + 1;
+            $mm = ( $diff % 12 );
+            $mm = '12' if $mm == 0;
             $diff = 0;
         }
 
         if ( $unit eq 'years' ) {
-            $yy++;
+            $yy += $repeat;
         }
 
         $mm--;
-- 
cgit v1.2.3