SF.net SVN: ledger-smb: [634] branches/1.2/LedgerSMB

[..hidden..]

Revision: 634
          http://svn.sourceforge.net/ledger-smb/?rev=634&view=rev
Author:   tetragon
Date:     2006-11-15 17:17:42 -0800 (Wed, 15 Nov 2006)

Log Message:
-----------
Removing $query argument from $sth->fetchrow_array calls

Modified Paths:
--------------
    branches/1.2/LedgerSMB/AM.pm
    branches/1.2/LedgerSMB/CA.pm
    branches/1.2/LedgerSMB/CP.pm
    branches/1.2/LedgerSMB/IR.pm
    branches/1.2/LedgerSMB/IS.pm

Modified: branches/1.2/LedgerSMB/AM.pm
===================================================================
--- branches/1.2/LedgerSMB/AM.pm	2006-11-16 01:14:50 UTC (rev 633)
+++ branches/1.2/LedgerSMB/AM.pm	2006-11-16 01:17:42 UTC (rev 634)
@@ -455,7 +455,7 @@
 
 	$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 @@
 	$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 @@
 
 	$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 @@
 
 	$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 {

Modified: branches/1.2/LedgerSMB/CA.pm
===================================================================
--- branches/1.2/LedgerSMB/CA.pm	2006-11-16 01:14:50 UTC (rev 633)
+++ branches/1.2/LedgerSMB/CA.pm	2006-11-16 01:17:42 UTC (rev 634)
@@ -316,7 +316,7 @@
 
 			$sth = $dbh->prepare($query);
 			$sth->execute(@queryargs);
-			($form->{balance}) = $sth->fetchrow_array($query);
+			($form->{balance}) = $sth->fetchrow_array;
 			$sth->finish;
 			@queryargs = ();
 		}

Modified: branches/1.2/LedgerSMB/CP.pm
===================================================================
--- branches/1.2/LedgerSMB/CP.pm	2006-11-16 01:14:50 UTC (rev 633)
+++ branches/1.2/LedgerSMB/CP.pm	2006-11-16 01:17:42 UTC (rev 634)
@@ -708,7 +708,7 @@
 
 			$sth = $dbh->prepare($query);
 			$sth->execute($paymentaccno);
-			($accno_id) = $sth->fetchrow_array($query);
+			($accno_id) = $sth->fetchrow_array;
 
 			# add payment
 			$query = qq|

Modified: branches/1.2/LedgerSMB/IR.pm
===================================================================
--- branches/1.2/LedgerSMB/IR.pm	2006-11-16 01:14:50 UTC (rev 633)
+++ branches/1.2/LedgerSMB/IR.pm	2006-11-16 01:17:42 UTC (rev 634)
@@ -101,7 +101,7 @@
 		$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

Modified: branches/1.2/LedgerSMB/IS.pm
===================================================================
--- branches/1.2/LedgerSMB/IS.pm	2006-11-16 01:14:50 UTC (rev 633)
+++ branches/1.2/LedgerSMB/IS.pm	2006-11-16 01:17:42 UTC (rev 634)
@@ -762,7 +762,7 @@
 
 	$sth = $dbh->prepare($query);
 	$sth->execute($id);
-	($_) = $sth->fetchrow_array($query);
+	($_) = $sth->fetchrow_array;
 
 	$_;
 
@@ -1573,7 +1573,7 @@
 	my $sth;
 	$sth = $dbh->prepare($query);
 	$sth->execute($form->{id});
-	my ($id) = $sth->fetchrow_array($query);
+	my ($id) = $sth->fetchrow_array;
 
 	return unless $id;
 


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