Correcting issues in refactored code

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2319 4979c152-3d1c-0410-bac9-87ea11338e46

2 files changed, 2 insertions, 2 deletions

diff --git a/scripts/customer.pl b/scripts/customer.pl
index 1e2d40e6..9f2e73a1 100644
--- a/scripts/customer.pl
+++ b/scripts/customer.pl
@@ -26,7 +26,7 @@ use base qw(LedgerSMB::ScriptLib::Company);
 require 'lsmb-request.pl';
 
 sub set_entity_class {
-    my ($request) = @_;
+    my ($null, $request) = @_;
     $request->{entity_class} = 2;
     return 1;
 }
diff --git a/scripts/vendor.pl b/scripts/vendor.pl
index f048aa36..0f86c553 100644
--- a/scripts/vendor.pl
+++ b/scripts/vendor.pl
@@ -26,7 +26,7 @@ use base qw(LedgerSMB::ScriptLib::Company);
 require 'lsmb-request.pl';
 
 sub set_entity_class {
-    my ($request) = @_;
+    my ($null, $request) = @_;
     $request->{entity_class} = 1;
     return 1;
 }