diff options
| -rw-r--r-- | scripts/customer.pl | 2 | ||||
| -rw-r--r-- | 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; } |