diff options
| -rwxr-xr-x | LedgerSMB/Form.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm index e5fa4f61..65e352e6 100755 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -515,7 +515,8 @@ sub callproc { $argstr .= "?, "; } $argstr =~ s/\, $//; - $query = "SELECT $procname($argstr)"; + $query = "SELECT $procname"; + $query =~ s/\(\)/$argstr/; my $sth = $form->{dbh}->prepare($query); while (my $ref = $sth->fetchrow_hashref(NAME_lc)){ push @results, $ref; |