From 75b4ecef20ad7d9baaf3e04496fbe0bf1c30b841 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Sat, 30 Sep 2006 04:48:42 +0000
Subject: 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
---
 LedgerSMB/Form.pm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'LedgerSMB/Form.pm')

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