diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-02 20:52:15 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-02 20:52:15 +0000 |
commit | 3b8d511bbdc0072e77314e369b3317a56aaf65e6 (patch) | |
tree | 7bfa6016adb15a7ff55457fcdf84e988098fd575 | |
parent | ded9417e45a2954ae19485928a18eebea3a7c3f7 (diff) |
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
-rwxr-xr-x | LedgerSMB/AA.pm | 2 | ||||
-rwxr-xr-x | LedgerSMB/Form.pm | 4 | ||||
-rwxr-xr-x | LedgerSMB/IS.pm | 4 | ||||
-rwxr-xr-x | 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 { |