From 75bbfc4e3007318afcd8368e091ca3c13c5a3352 Mon Sep 17 00:00:00 2001 From: einhverfr Date: Sun, 25 Nov 2007 22:49:51 +0000 Subject: Adding employee workflow scripts git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1907 4979c152-3d1c-0410-bac9-87ea11338e46 --- scripts/vendor.pl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'scripts/vendor.pl') diff --git a/scripts/vendor.pl b/scripts/vendor.pl index 924c967a..a8a6aad0 100644 --- a/scripts/vendor.pl +++ b/scripts/vendor.pl @@ -189,16 +189,16 @@ sub _render_main_screen{ sub save_contact { my ($request) = @_; my $vendor = LedgerSMB::DBObject::Vendor->new({base => $request}); - $vendor ->save_contact(); - $vendor ->get; + $vendor->save_contact(); + $vendor->get; _render_main_screen($vendor ); } sub save_bank_account { my ($request) = @_; my $vendor = LedgerSMB::DBObject::Vendor->new({base => $request}); - $vendor ->save_bank_account(); - $vendor ->get; + $vendor->save_bank_account(); + $vendor->get; _render_main_screen($vendor ); } -- cgit v1.2.3