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

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@634 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/AM.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'LedgerSMB/AM.pm')

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