diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-11-27 02:27:48 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-11-27 02:27:48 +0000 |
commit | d4f3ec54f158e60565f7eccac83c88bf1cb934b6 (patch) | |
tree | 3fd850edba4103200bccb7f355fcbf1b3d12ab1c /scripts/vendor.pl | |
parent | 7595b9fa3b219c3e0ad3eed3692445c2466772d7 (diff) |
AR/AP Breakage Fixed
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1909 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'scripts/vendor.pl')
-rw-r--r-- | scripts/vendor.pl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/scripts/vendor.pl b/scripts/vendor.pl index a8a6aad0..6fa2cf77 100644 --- a/scripts/vendor.pl +++ b/scripts/vendor.pl @@ -194,6 +194,7 @@ sub save_contact { _render_main_screen($vendor ); } + sub save_bank_account { my ($request) = @_; my $vendor = LedgerSMB::DBObject::Vendor->new({base => $request}); @@ -202,4 +203,12 @@ sub save_bank_account { _render_main_screen($vendor ); } +sub save_notes { + my ($request) = @_; + my $vendor = LedgerSMB::DBObject::Vendor->new({base => $request}); + $vendor->save_notes(); + $vendor->get(); + _render_main_screen($vendor ); +} + 1; |