diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-11-10 18:58:42 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-11-10 18:58:42 +0000 |
| commit | b373465898535055867ce8acdea26a6518a99ebd (patch) | |
| tree | 10d5ab4bb32164103ddc031e6e178de26db9a484 /LedgerSMB/DBObject.pm | |
| parent | be2b4fb16b843cf52e14b5b3e3a36b3faf4df970 (diff) | |
Unapplying for now the drafts fix
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2384 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/DBObject.pm')
| -rw-r--r-- | LedgerSMB/DBObject.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/LedgerSMB/DBObject.pm b/LedgerSMB/DBObject.pm index dade3ab8..57f5ac6f 100644 --- a/LedgerSMB/DBObject.pm +++ b/LedgerSMB/DBObject.pm @@ -121,7 +121,7 @@ sub exec_method { $ref = $sth->fetchrow_hashref('NAME_lc'); - my $pargs = $ref->{proargnames}; + my $args = $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($pargs); + @proc_args = $self->_parse_array($args); if (@proc_args) { for my $arg (@proc_args) { if ( $arg =~ s/^in_// ) { |