diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-11-11 00:03:41 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-11-11 00:03:41 +0000 |
| commit | e0fd5d2b72f1f8306d69972ca1c067a83f48ad3d (patch) | |
| tree | cd5bbc76e2ae1e337e289e41c98dd166b306f0da /LedgerSMB/IC.pm | |
| parent | b38afd7ca18f35644d6b2fa27dc8ad24e0ce6699 (diff) | |
when adding parts, etc. price update defaults to current date on save
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@509 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/IC.pm')
| -rwxr-xr-x | LedgerSMB/IC.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/LedgerSMB/IC.pm b/LedgerSMB/IC.pm index e3974891..7c61ef92 100755 --- a/LedgerSMB/IC.pm +++ b/LedgerSMB/IC.pm @@ -383,6 +383,9 @@ sub save { $form->{partnumber} = $form->update_defaults( $myconfig, "partnumber", $dbh) if ! $form->{partnumber}; + if (!$form->{priceupdate}){ + $form->{priceupdate} = 'now'; + } $query = qq| UPDATE parts SET partnumber = ?, |