diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-06-30 21:24:59 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-06-30 21:24:59 +0000 |
commit | 24708fad478ce6484e7a6987e17ffa58855b7d27 (patch) | |
tree | c2071fc7d37cff09e66dca5ecd6abdb114aaf8c7 /LedgerSMB.pm | |
parent | 49174fdc16c696dcc0f8d4124cb0749f91b6bb4d (diff) |
Adding batch_search_mini api
Addressing issue on create batch screen of searching through all batches
Adding error message in LedgerSMB::call_procedure if procname is undefined.
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2178 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB.pm')
-rwxr-xr-x | LedgerSMB.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/LedgerSMB.pm b/LedgerSMB.pm index 63f4ec27..3fe186b9 100755 --- a/LedgerSMB.pm +++ b/LedgerSMB.pm @@ -552,6 +552,10 @@ sub call_procedure { my $argstr = ""; my @results; + if (!defined $procname){ + $self->error('Undefined function in call_procedure.'); + } + $procname = $self->{dbh}->quote_identifier($procname); for ( 1 .. scalar @call_args ) { $argstr .= "?, "; @@ -566,7 +570,7 @@ sub call_procedure { if (scalar @call_args){ $sth->execute(@call_args) || $self->error($self->{dbh}->errstr); } else { - $sth->execute() || $self->error($self->{dbh}->errstr); + $sth->execute() || $self->error($self->{dbh}->errstr . ':' . $query); } my @types = @{$sth->{TYPE}}; |