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

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

(limited to 'LedgerSMB')

diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm
index b36f838f..8ba7eaed 100755
--- a/LedgerSMB/Form.pm
+++ b/LedgerSMB/Form.pm
@@ -1423,12 +1423,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