diff options
| -rwxr-xr-x | LedgerSMB/Form.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm index 86ecad77..372a615c 100755 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -3024,7 +3024,7 @@ sub from_to { } $mm--; - @t = localtime(timelocal(0,0,0,$dd,$mm,$yy) - $bd); + @t = localtime(Time::Local::timelocal(0,0,0,$dd,$mm,$yy) - $bd); $t[4]++; $t[4] = substr("0$t[4]",-2); |