From 3b8d511bbdc0072e77314e369b3317a56aaf65e6 Mon Sep 17 00:00:00 2001 From: einhverfr Date: Mon, 2 Oct 2006 20:52:15 +0000 Subject: Renamed "get_custom_queries" to "run_custom_queries" for semantic clarity. git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@181 4979c152-3d1c-0410-bac9-87ea11338e46 --- LedgerSMB/AA.pm | 2 +- LedgerSMB/Form.pm | 4 ++-- LedgerSMB/IS.pm | 4 ++-- LedgerSMB/OE.pm | 6 +++--- 4 files changed, 8 insertions(+), 8 deletions(-) diff --git a/LedgerSMB/AA.pm b/LedgerSMB/AA.pm index 16181931..bf6c7224 100755 --- a/LedgerSMB/AA.pm +++ b/LedgerSMB/AA.pm @@ -295,7 +295,7 @@ sub post_transaction { $dbh->prepare($query)->execute(@queryargs) || $form->dberror($query); - @queries = $form->get_custom_queries($table, 'INSERT'); + @queries = $form->run_custom_queries($table, 'INSERT'); # update exchangerate my $buy = $form->{exchangerate}; my $sell = 0; diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm index 55b563dc..4865e198 100755 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -1296,7 +1296,7 @@ sub db_init { } } -sub get_custom_queries { +sub run_custom_queries { my $dbh = $self->{dbh}; my ($self, $tablename, $query_type, $linenum) = @_; if ($query_type !~ /^(select|insert|update)$/i){ @@ -1374,7 +1374,7 @@ sub get_custom_queries { $did_insert = 1; } } elsif ($query_type eq 'UPDATE'){ - @rc = $self->get_custom_queries( + @rc = $self->run_custom_queries( $tablename, $query_type, $linenum); } elsif ($query_type eq 'SELECT'){ for (@rc){ diff --git a/LedgerSMB/IS.pm b/LedgerSMB/IS.pm index 1620bb11..a8a7f811 100755 --- a/LedgerSMB/IS.pm +++ b/LedgerSMB/IS.pm @@ -634,7 +634,7 @@ sub post_invoice { ($form->{id}) = $sth->fetchrow_array; $sth->finish; - @queries = $form->get_custom_queries('ar', 'INSERT'); + @queries = $form->run_custom_queries('ar', 'INSERT'); } @@ -1423,7 +1423,7 @@ sub retrieve_invoice { my $rc = $dbh->commit; $dbh->disconnect; - @queries = $form->get_custom_queries('ar', 'SELECT'); + @queries = $form->run_custom_queries('ar', 'SELECT'); $form->{dbh}->commit; $rc; diff --git a/LedgerSMB/OE.pm b/LedgerSMB/OE.pm index c2b2a283..5ffac31a 100755 --- a/LedgerSMB/OE.pm +++ b/LedgerSMB/OE.pm @@ -358,7 +358,7 @@ sub save { $sth->execute(@queryargs) || $form->dberror($query); $sth->finish; - @queries = $form->get_custom_queries('oe', 'INSERT'); + @queries = $form->run_custom_queries('oe', 'INSERT'); } @@ -620,7 +620,7 @@ sub save { $sth->execute(@queryargs) || $form->dberror($query); if (!$did_insert){ - @queries = $form->get_custom_queries('oe', 'UPDATE'); + @queries = $form->run_custom_queries('oe', 'UPDATE'); } @@ -940,7 +940,7 @@ sub retrieve { # get recurring transaction $form->get_recurring($dbh); - @queries = $form->get_custom_queries('oe', 'SELECT'); + @queries = $form->run_custom_queries('oe', 'SELECT'); $form->{dbh}->commit; } else { -- cgit v1.2.3