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

5 files changed, 9 insertions, 9 deletions

diff --git a/LedgerSMB/AM.pm b/LedgerSMB/AM.pm
index e99b3e3c..df039e90 100755
--- a/LedgerSMB/AM.pm
+++ b/LedgerSMB/AM.pm
@@ -455,7 +455,7 @@ sub get_warehouse {
 
 	$sth = $dbh->prepare($query);
 	$sth->execute($form->{id}) || $form->dberror($query);
-	($form->{description}) = $sth->fetchrow_array($query);
+	($form->{description}) = $sth->fetchrow_array;
 	$sth->finish;
 
 	# see if it is in use
@@ -467,7 +467,7 @@ sub get_warehouse {
 	$sth = $dbh->prepare($query);
 	$sth->execute($form->{id});
 
-	($form->{orphaned}) = $sth->fetchrow_array($query);
+	($form->{orphaned}) = $sth->fetchrow_array;
 	if (($form->{orphaned} * 1) == 0){
 		$form->{orphaned} = 1;
 	} else {
@@ -571,7 +571,7 @@ sub get_department {
 
 	$sth = $dbh->prepare($query);
 	$sth->execute($form->{id});
-	($form->{description}, $form->{role}) = $sth->fetchrow_array($query);
+	($form->{description}, $form->{role}) = $sth->fetchrow_array;
 	$sth->finish;
 
 	for (keys %$ref) { $form->{$_} = $ref->{$_} }
@@ -584,7 +584,7 @@ sub get_department {
 
 	$sth = $dbh->prepare($query);
 	$sth->execute($form->{id});
-	($form->{orphaned}) = $sth->fetchrow_array($query);
+	($form->{orphaned}) = $sth->fetchrow_array;
 	if (($form->{orphaned} * 1) == 0){
 		$form->{orphaned} = 1;
 	} else {
diff --git a/LedgerSMB/CA.pm b/LedgerSMB/CA.pm
index 264fcfe6..2c4ff105 100755
--- a/LedgerSMB/CA.pm
+++ b/LedgerSMB/CA.pm
@@ -316,7 +316,7 @@ sub all_transactions {
 
 			$sth = $dbh->prepare($query);
 			$sth->execute(@queryargs);
-			($form->{balance}) = $sth->fetchrow_array($query);
+			($form->{balance}) = $sth->fetchrow_array;
 			$sth->finish;
 			@queryargs = ();
 		}
diff --git a/LedgerSMB/CP.pm b/LedgerSMB/CP.pm
index a7a2f0d0..b5f0df2d 100755
--- a/LedgerSMB/CP.pm
+++ b/LedgerSMB/CP.pm
@@ -708,7 +708,7 @@ sub post_payments {
 
 			$sth = $dbh->prepare($query);
 			$sth->execute($paymentaccno);
-			($accno_id) = $sth->fetchrow_array($query);
+			($accno_id) = $sth->fetchrow_array;
 
 			# add payment
 			$query = qq|
diff --git a/LedgerSMB/IR.pm b/LedgerSMB/IR.pm
index 01bb05ca..22fc6fcf 100755
--- a/LedgerSMB/IR.pm
+++ b/LedgerSMB/IR.pm
@@ -101,7 +101,7 @@ sub post_invoice {
 		$sth = $dbh->prepare($query);
 		$sth->execute($form->{id});
     
-	 	 if ($sth->fetchrow_array($query)) {
+	 	 if ($sth->fetchrow_array) {
 			$query = qq|
 				SELECT p.id, p.inventory_accno_id, 
 				       p.income_accno_id
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;