diff options
Diffstat (limited to 'LedgerSMB')
| -rwxr-xr-x | LedgerSMB/AM.pm | 6 | ||||
| -rwxr-xr-x | LedgerSMB/IC.pm | 4 |
2 files changed, 5 insertions, 5 deletions
diff --git a/LedgerSMB/AM.pm b/LedgerSMB/AM.pm index 82b58534..be9e47fe 100755 --- a/LedgerSMB/AM.pm +++ b/LedgerSMB/AM.pm @@ -77,7 +77,7 @@ sub get_account { LIMIT 1|; $sth = $dbh->prepare($query); $sth->execute($form->{id}); - ($form->{orphaned}) = $dbh->fetchrow_array(); + ($form->{orphaned}) = $sth->fetchrow_array(); $form->{orphaned} = !$form->{orphaned}; $dbh->commit; @@ -140,7 +140,7 @@ sub save_account { category = ?, link = ?, contra = ? - WHERE id = $form->{id}|; + WHERE id = ?|; push @queryargs, $form->{id}; } else { $query = qq| @@ -165,7 +165,7 @@ sub save_account { $sth = $dbh->prepare($query); $sth->execute($form->{accno}); - ($chart_id) = $sth->fetchrow_array($query); + ($chart_id) = $sth->fetchrow_array(); $sth->finish; } diff --git a/LedgerSMB/IC.pm b/LedgerSMB/IC.pm index 0da7dd60..c5ff74f6 100755 --- a/LedgerSMB/IC.pm +++ b/LedgerSMB/IC.pm @@ -199,7 +199,7 @@ sub get_part { $sth->finish; } - $form->get_custom_queries('parts', 'SELECT'); + $form->run_custom_queries('parts', 'SELECT'); } @@ -493,7 +493,7 @@ sub save { my $rc = $dbh->commit; $dbh->disconnect; - $form->get_custom_queries('parts', 'UPDATE'); + $form->run_custom_queries('parts', 'UPDATE'); $rc; } |