diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-03-27 16:37:41 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-03-27 16:37:41 +0000 |
commit | b98753377ace509aeee17ee41f28a3556d8fdcb1 (patch) | |
tree | 11167b2e45a6007d6f3fbc5103de95d4e2703b57 /bin/cp.pl | |
parent | 2a7a42fc5a6f1ada7dec820303dd739bcd7c34f2 (diff) |
Payment screens now treat empty strings as current_date
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1014 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'bin/cp.pl')
-rwxr-xr-x | bin/cp.pl | 10 |
1 files changed, 9 insertions, 1 deletions
@@ -56,6 +56,11 @@ require "bin/arap.pl"; 1; # end of main +# This may need to get more sophisticated in the future +# Anyway, it provides one point of control for date handling. +sub default_date { + $form->{date} ||= 'current_date' +} sub payment { @@ -1137,7 +1142,10 @@ sub payment_footer { } -sub post { &{"post_$form->{payment}"} } +sub post { + &default_date; + &{"post_$form->{payment}"}; +} sub post_payments { |