SF.net SVN: ledger-smb: [203] trunk/LedgerSMB/Form.pm

[..hidden..]

Revision: 203
          http://svn.sourceforge.net/ledger-smb/?rev=203&view=rev
Author:   einhverfr
Date:     2006-10-10 19:02:37 -0700 (Tue, 10 Oct 2006)

Log Message:
-----------
Preprocess the callproc procname so that the first () becomes the argstr.

Modified Paths:
--------------
    trunk/LedgerSMB/Form.pm

Modified: trunk/LedgerSMB/Form.pm
===================================================================
--- trunk/LedgerSMB/Form.pm	2006-10-10 18:18:04 UTC (rev 202)
+++ trunk/LedgerSMB/Form.pm	2006-10-11 02:02:37 UTC (rev 203)
@@ -515,7 +515,8 @@
 		$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;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.