SF.net SVN: ledger-smb: [181] trunk/LedgerSMB

[..hidden..]

Revision: 181
          http://svn.sourceforge.net/ledger-smb/?rev=181&view=rev
Author:   einhverfr
Date:     2006-10-02 13:52:15 -0700 (Mon, 02 Oct 2006)

Log Message:
-----------
Renamed "get_custom_queries" to "run_custom_queries" for semantic clarity.

Modified Paths:
--------------
    trunk/LedgerSMB/AA.pm
    trunk/LedgerSMB/Form.pm
    trunk/LedgerSMB/IS.pm
    trunk/LedgerSMB/OE.pm

Modified: trunk/LedgerSMB/AA.pm
===================================================================
--- trunk/LedgerSMB/AA.pm	2006-10-02 18:47:54 UTC (rev 180)
+++ trunk/LedgerSMB/AA.pm	2006-10-02 20:52:15 UTC (rev 181)
@@ -295,7 +295,7 @@
 
 	$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;

Modified: trunk/LedgerSMB/Form.pm
===================================================================
--- trunk/LedgerSMB/Form.pm	2006-10-02 18:47:54 UTC (rev 180)
+++ trunk/LedgerSMB/Form.pm	2006-10-02 20:52:15 UTC (rev 181)
@@ -1296,7 +1296,7 @@
 	}
 }
 
-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 @@
 			$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){

Modified: trunk/LedgerSMB/IS.pm
===================================================================
--- trunk/LedgerSMB/IS.pm	2006-10-02 18:47:54 UTC (rev 180)
+++ trunk/LedgerSMB/IS.pm	2006-10-02 20:52:15 UTC (rev 181)
@@ -634,7 +634,7 @@
     ($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 @@
   my $rc = $dbh->commit;
   $dbh->disconnect;
   
-  @queries = $form->get_custom_queries('ar', 'SELECT');
+  @queries = $form->run_custom_queries('ar', 'SELECT');
   $form->{dbh}->commit;
   $rc;
 

Modified: trunk/LedgerSMB/OE.pm
===================================================================
--- trunk/LedgerSMB/OE.pm	2006-10-02 18:47:54 UTC (rev 180)
+++ trunk/LedgerSMB/OE.pm	2006-10-02 20:52:15 UTC (rev 181)
@@ -358,7 +358,7 @@
 		$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 @@
 	$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 @@
 		# 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 {
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.