added $form->callproc($procname, @args) returns @hashrefs as wrapper for stored procs.

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@169 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 15 insertions, 0 deletions

diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm
index 3b8e79ca..55b563dc 100755
--- a/LedgerSMB/Form.pm
+++ b/LedgerSMB/Form.pm
@@ -507,6 +507,21 @@ sub round_amount {
 	return $amount;
 }
 
+sub callproc {
+	my $procname = shift @_;
+	my $argstr = "";
+	my @results;
+	for (1 .. $#_){
+		$argstr .= "?, ";
+	}
+	$argstr =~ s/\, $//;
+	$query = "SELECT $procname($argstr)";
+	my $sth = $form->{dbh}->prepare($query);
+	while (my $ref = $sth->fetchrow_hashref(NAME_lc)){
+		push @results, $ref;
+	}
+	@results;
+}
 
 sub parse_template {