[Rt-commit] r5722 - in DBIx-SearchBuilder/trunk: .

[ruz at bestpractical.com]

Author: ruz
Date: Tue Aug  8 20:38:04 2006
New Revision: 5722

Modified:
   DBIx-SearchBuilder/trunk/   (props changed)
   DBIx-SearchBuilder/trunk/SearchBuilder/Handle.pm

Log:
 r8658 at cubic-pc:  cubic | 2006-08-08 23:27:54 +0400
 * indent


Modified: DBIx-SearchBuilder/trunk/SearchBuilder/Handle.pm
==============================================================================
--- DBIx-SearchBuilder/trunk/SearchBuilder/Handle.pm	(original)
+++ DBIx-SearchBuilder/trunk/SearchBuilder/Handle.pm	Tue Aug  8 20:38:04 2006
@@ -344,25 +344,25 @@
 =cut
 
 sub Insert {
-  my($self, $table, @pairs) = @_;
-  my(@cols, @vals, @bind);
+    my($self, $table, @pairs) = @_;
+    my(@cols, @vals, @bind);
 
-  #my %seen; #only the *first* value is used - allows drivers to specify default
-  while ( my $key = shift @pairs ) {
-    my $value = shift @pairs;
-    # next if $seen{$key}++;
-    push @cols, $key;
-    push @vals, '?';
-    push @bind, $value;  
-  }
-
-  my $QueryString =
-    "INSERT INTO $table (". join(", ", @cols). ") VALUES ".
-    "(". join(", ", @vals). ")";
+    #my %seen; #only the *first* value is used - allows drivers to specify default
+    while ( my $key = shift @pairs ) {
+        my $value = shift @pairs;
+        # next if $seen{$key}++;
+        push @cols, $key;
+        push @vals, '?';
+        push @bind, $value;  
+    }
+
+    my $QueryString =
+        "INSERT INTO $table (". join(", ", @cols). ") VALUES ".
+        "(". join(", ", @vals). ")";
 
-    my $sth =  $self->SimpleQuery($QueryString, @bind);
-    return ($sth);
-  }
+    my $sth = $self->SimpleQuery($QueryString, @bind);
+    return $sth;
+}
 
 
 =head2 UpdateRecordValue