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/customer.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/customer.pl')
-rw-r--r-- | scripts/customer.pl | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/scripts/customer.pl b/scripts/customer.pl index 1834da7a..2828c377 100644 --- a/scripts/customer.pl +++ b/scripts/customer.pl @@ -49,6 +49,7 @@ sub get { $customer->set( entity_class=> '2' ); my $result = $customer->get(); + $customer->get_credit_id(); my $template = LedgerSMB::Template->new( user => $user, template => 'contact', language => $user->{language}, @@ -161,10 +162,26 @@ sub save { _render_main_screen($customer); } +sub save_credit { + my ($request) = @_; + my $customer = LedgerSMB::DBObject::Customer->new({base => $request}); + $customer->save_credit(); + $customer->get(); + _render_main_screen($customer); +} + +sub save_credit_new { + my ($request) = @_; + $request->{credit_id} = undef; + save_credit($request); +} + + sub edit{ my $request = shift @_; my $customer = LedgerSMB::DBObject::Customer->new({base => $request}); $customer->get(); + $customer->get_credit_id(); _render_main_screen($customer); } |