From d926f740de793966a8d3b6aa6c77f9da90121cf0 Mon Sep 17 00:00:00 2001
From: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Thu, 16 Nov 2006 01:14:50 +0000
Subject: Removing $query arguments from $sth->fetchrow_array calls

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@633 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/IS.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'LedgerSMB/IS.pm')

diff --git a/LedgerSMB/IS.pm b/LedgerSMB/IS.pm
index e7e22cd8..3dfc54ff 100755
--- a/LedgerSMB/IS.pm
+++ b/LedgerSMB/IS.pm
@@ -762,7 +762,7 @@ sub project_description {
 
 	$sth = $dbh->prepare($query);
 	$sth->execute($id);
-	($_) = $sth->fetchrow_array($query);
+	($_) = $sth->fetchrow_array;
 
 	$_;
 
@@ -1573,7 +1573,7 @@ sub reverse_invoice {
 	my $sth;
 	$sth = $dbh->prepare($query);
 	$sth->execute($form->{id});
-	my ($id) = $sth->fetchrow_array($query);
+	my ($id) = $sth->fetchrow_array;
 
 	return unless $id;
 
-- 
cgit v1.2.3