SF.net SVN: ledger-smb: [137] trunk

[..hidden..]

Revision: 137
          http://svn.sourceforge.net/ledger-smb/?rev=137&view=rev
Author:   einhverfr
Date:     2006-09-23 18:40:57 -0700 (Sat, 23 Sep 2006)

Log Message:
-----------
Fixed version for now.

Added an API to the Form object for creating SELECT, INSERT, and UPDATE queries based on custom fields

Modified Paths:
--------------
    trunk/LedgerSMB/Form.pm
    trunk/VERSION

Modified: trunk/LedgerSMB/Form.pm
===================================================================
--- trunk/LedgerSMB/Form.pm	2006-09-23 06:03:43 UTC (rev 136)
+++ trunk/LedgerSMB/Form.pm	2006-09-24 01:40:57 UTC (rev 137)
@@ -62,7 +62,7 @@
 
 	$self->{menubar} = 1 if $self->{path} =~ /lynx/i;
 
-	$self->{version} = "1.1.0";
+	$self->{version} = "1.1.1";
 	$self->{dbversion} = "2.6.18";
 
 	bless $self, $type;
@@ -1281,31 +1281,67 @@
 }
 
 sub get_custom_queries {
-	my ($self, $tablename) = @_;
+	my ($self, $tablename, $query_type, $linenum) = @_;
+	if ($query_type !~ /^(select|insert|update)$/i){
+		$self->error($locale->text(
+			"Passed incorrect query type to get_cutstom_queries."
+		));
+	}
 	my @rc;
 	my %temphash;
+	my @templist;
 	my @elements;
 	my $query;
+	my $ins_values;
+	if ($linenum){
+		$linenum = "_$linenum";
+	}
+
+	$query_type = uc($query_type);
 	for (@{$self->{custom_db_fields}{$tablename}}){
 		@elements = split (/:/, $_);
 		push @{$temphash{$elements[0]}}, $elements[1];
 	}
 	for (keys %temphash){
-		$query = "SELECT ";
+		my @data;
+		$query = "$query_type ";
+		if ($query_type eq 'UPDATE'){
+			$query .= " $_ SET ";
+		} elsif ($query_type eq 'INSERT'){
+			$query .= " INTO $_ (";
+		}
 		my $first = 1;
 		for (@{$temphash{$_}}){
 			$query .= "$_";
+			if ($query_type eq 'UPDATE'){
+				$query .= '= ?';
+			}	
+			my $ins_values .= "?, ";
 			if ($first == 0){
-				$query .= ", "
+				$query .= ", ";
 			}
 			$first = 0;
+			if ($query_type eq 'UPDATE' or $query_type eq 'INERT'){
+				push @data, $form->{$_ . $linenum}; 
+			}
 		}
-		$query .= " FROM $_ WHERE field_id = ?";
-		push @rc, $query;
+		if ($query_type eq 'SELECT'){
+			$query .= " FROM $_";
+		}
+		if ($query_type eq 'SELECT' or $query_type eq 'UPDATE'){
+			$query .= " WHERE field_id = ?";
+		}
+		if ($query_type eq 'SELECT'){
+			push @rc, [ $query ];
+		} else {
+			unshift (@data, $query);
+			push @rc, [ @data ];
+		}
 	}
 	@rc;
 }
 
+
 sub dbconnect {
 
 	my ($self, $myconfig) = @_;

Modified: trunk/VERSION
===================================================================
--- trunk/VERSION	2006-09-23 06:03:43 UTC (rev 136)
+++ trunk/VERSION	2006-09-24 01:40:57 UTC (rev 137)
@@ -1 +1 @@
-1.1.0
+1.1.1


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