diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-10-28 22:20:27 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-10-28 22:20:27 +0000 |
| commit | d877887c0268c23acad9785f2307a6f19f9c2b93 (patch) | |
| tree | 8e706e3e592a8ab17d03a59e42dfe8f7c7d78ba5 | |
| parent | 3f2d74280d593cf4abcd1b6d385f408f1cf3045c (diff) | |
Correcting testability issues in vendor.pl, bug in DBObject.pm
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2381 4979c152-3d1c-0410-bac9-87ea11338e46
| -rw-r--r-- | LedgerSMB/DBObject.pm | 4 | ||||
| -rw-r--r-- | scripts/vendor.pl | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/LedgerSMB/DBObject.pm b/LedgerSMB/DBObject.pm index 57f5ac6f..dade3ab8 100644 --- a/LedgerSMB/DBObject.pm +++ b/LedgerSMB/DBObject.pm @@ -121,7 +121,7 @@ sub exec_method { $ref = $sth->fetchrow_hashref('NAME_lc'); - my $args = $ref->{proargnames}; + my $pargs = $ref->{proargnames}; my @proc_args; if ( !$ref->{proname} ) { # no such function @@ -132,7 +132,7 @@ sub exec_method { $ref->{pronargs} = 0 unless defined $ref->{pronargs}; # If the user provided args.. if (!defined $args{args}) { - @proc_args = $self->_parse_array($args); + @proc_args = $self->_parse_array($pargs); if (@proc_args) { for my $arg (@proc_args) { if ( $arg =~ s/^in_// ) { diff --git a/scripts/vendor.pl b/scripts/vendor.pl index 0f86c553..45a46cb6 100644 --- a/scripts/vendor.pl +++ b/scripts/vendor.pl @@ -23,7 +23,7 @@ package LedgerSMB::Scripts::vendor; use LedgerSMB::DBObject::Vendor; use base qw(LedgerSMB::ScriptLib::Company); -require 'lsmb-request.pl'; +# require 'lsmb-request.pl'; sub set_entity_class { my ($null, $request) = @_; |