diff options
| author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-05-07 21:19:32 +0000 |
|---|---|---|
| committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-05-07 21:19:32 +0000 |
| commit | 5f08e16d4ccc930ad22f53800cd09a4d0e0a7867 (patch) | |
| tree | 6922f5eeac49f73642260066c73b6cbffc77dce6 /LedgerSMB/Form.pm | |
| parent | 7b0c5980f358925ddb4f9f9eef86774249e7de5b (diff) | |
Scope fixing and a bugfix for $form->add_date
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1160 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/Form.pm')
| -rw-r--r-- | LedgerSMB/Form.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm index 5771e124..b8a23b01 100644 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -1376,6 +1376,9 @@ sub add_date { my $diff = 0; my $spc = $myconfig->{dateformat}; + my $yy; + my $mm; + my $dd; $spc =~ s/\w//g; $spc = substr( $spc, 0, 1 ); @@ -1399,7 +1402,7 @@ sub add_date { else { # ISO - ( $yy, $mm, $dd ) =~ /(....)(..)(..)/; + ( $yy, $mm, $dd ) = ($date =~ /(....)(..)(..)/); } if ( $unit eq 'days' ) { |