diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-06-10 17:33:58 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-06-10 17:33:58 +0000 |
commit | 7f553958add1eeb8a18114917d5a4b752a8dd82f (patch) | |
tree | 31f3ab9a3b96126c8079dc2dd3889f19fe774628 /scripts/vendor.pl | |
parent | 63312c2e3ff32ecd40381a74cd5b44d927fc6790 (diff) |
Adding UI support for multiple vendor/customer accounts per company.
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2163 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'scripts/vendor.pl')
-rw-r--r-- | scripts/vendor.pl | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/scripts/vendor.pl b/scripts/vendor.pl index f84cee1d..321f76d4 100644 --- a/scripts/vendor.pl +++ b/scripts/vendor.pl @@ -49,6 +49,7 @@ sub get { $vendor->set( entity_class=> '1' ); $vendor->get(); + $vendor->get_credit_id(); $vendor->get_metadata(); _render_main_screen($vendor); } @@ -219,10 +220,27 @@ sub save { _render_main_screen($vendor); } +sub save_credit { + + my ($request) = @_; + + my $vendor = LedgerSMB::DBObject::Vendor->new({base => $request}); + $vendor->save_credit(); + $vendor->get(); + _render_main_screen($vendor); +} + +sub save_credit_new { + my ($request) = @_; + $request->{credit_id} = undef; + save_credit($request); +} + sub edit{ my $request = shift @_; my $vendor = LedgerSMB::DBObject::Vendor->new({base => $request}); $vendor->get(); + $vendor->get_credit_id(); _render_main_screen($vendor); } |