From 24708fad478ce6484e7a6987e17ffa58855b7d27 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Mon, 30 Jun 2008 21:24:59 +0000
Subject: 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
---
 LedgerSMB.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'LedgerSMB.pm')

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}};
-- 
cgit v1.2.3