diff options
| -rwxr-xr-x | LedgerSMB/AM.pm | 8 | ||||
| -rwxr-xr-x | LedgerSMB/CA.pm | 2 | ||||
| -rwxr-xr-x | LedgerSMB/CP.pm | 2 | ||||
| -rwxr-xr-x | LedgerSMB/IR.pm | 2 | ||||
| -rwxr-xr-x | LedgerSMB/IS.pm | 4 |
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; |