diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-11-21 20:45:17 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-11-21 20:45:17 +0000 |
| commit | 695d7fd96eccb9a47b2bb44feaf475b65f3db138 (patch) | |
| tree | d3c748e9ca9410f29e8d8a951ed34e27d90fcc8e /scripts/customer.pl | |
| parent | 4162f3285a28eab5166dd31cc668da803a042aa7 (diff) | |
API tests now mostly work
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2412 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'scripts/customer.pl')
| -rw-r--r-- | scripts/customer.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/scripts/customer.pl b/scripts/customer.pl index 9f2e73a1..0bf05b8f 100644 --- a/scripts/customer.pl +++ b/scripts/customer.pl @@ -23,7 +23,7 @@ package LedgerSMB::Scripts::customer; use LedgerSMB::DBObject::Customer; use base qw(LedgerSMB::ScriptLib::Company); -require 'lsmb-request.pl'; +#require 'lsmb-request.pl'; sub set_entity_class { my ($null, $request) = @_; @@ -35,3 +35,5 @@ sub new_company { my ($null, $request) = @_; return LedgerSMB::DBObject::Customer->new(base=> $request, copy => 'all'); } + +1; |