From e068472d5ff78dfaa8d02016435307d07f276a3a Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Wed, 10 Sep 2008 18:36:37 +0000
Subject: Correcting issues in refactored code

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2319 4979c152-3d1c-0410-bac9-87ea11338e46
---
 scripts/customer.pl | 2 +-
 scripts/vendor.pl   | 2 +-
 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;
 }
-- 
cgit v1.2.3