diff options
| author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-11-16 01:17:42 +0000 |
|---|---|---|
| committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-11-16 01:17:42 +0000 |
| commit | 51a288a5381ef6ce1a5c85cd1d56fb0fd8f6d199 (patch) | |
| tree | aea1c1818b68654e41c12b8657c4793009bbfde7 /LedgerSMB/AM.pm | |
| parent | 27eadc9742181322576b648487aba3f868de5959 (diff) | |
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
Diffstat (limited to 'LedgerSMB/AM.pm')
| -rwxr-xr-x | LedgerSMB/AM.pm | 8 |
1 files changed, 4 insertions, 4 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 { |