diff options
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/customer.pl | 8 | ||||
| -rw-r--r-- | scripts/employee.pl | 8 | ||||
| -rw-r--r-- | scripts/vendor.pl | 9 |
3 files changed, 25 insertions, 0 deletions
diff --git a/scripts/customer.pl b/scripts/customer.pl index cf1f734e..ab9a6919 100644 --- a/scripts/customer.pl +++ b/scripts/customer.pl @@ -202,4 +202,12 @@ sub save_bank_account { _render_main_screen($customer); } +sub save_notes { + my ($request) = @_; + my $customer = LedgerSMB::DBObject::Customer->new({base => $request}); + $customer->save_notes(); + $customer->get(); + _render_main_screen($customer); +} + 1; diff --git a/scripts/employee.pl b/scripts/employee.pl index 61ff978a..b265dba5 100644 --- a/scripts/employee.pl +++ b/scripts/employee.pl @@ -202,4 +202,12 @@ sub save_bank_account { _render_main_screen($employee); } +sub save_notes { + my ($request) = @_; + my $employee = LedgerSMB::DBObject::Employee->new({base => $request}); + $employee->save_notes(); + $employee->get(); + _render_main_screen($employee); +} + 1; 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; |