From ca61c8196721488edf9fceb2d04581200db64739 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 7 Apr 2008 23:29:18 +0000
Subject: [PATCH] reindent some stuff ala WBGP

---
 lib/WebGUI/Asset/Sku/Product.pm | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

diff --git a/lib/WebGUI/Asset/Sku/Product.pm b/lib/WebGUI/Asset/Sku/Product.pm
index 562306004..af71416ba 100644
--- a/lib/WebGUI/Asset/Sku/Product.pm
+++ b/lib/WebGUI/Asset/Sku/Product.pm
@@ -510,21 +510,20 @@ Used to define which data set to reorder. Defaults to the value of setName (defa
 =cut
 
 sub reorderCollateral {
-	my $self = shift;
-	my $table = shift;
-	my $keyName = shift;
-	my $setName = shift || "assetId";
-	my $setValue = shift || $self->get($setName);
-	my $i = 1;
-        my $sth = $self->session->db->read("select $keyName from $table where $setName=? order by sequenceNumber", [$setValue]);
+    my $self = shift;
+    my $table = shift;
+    my $keyName = shift;
+    my $setName = shift || "assetId";
+    my $setValue = shift || $self->get($setName);
+    my $i = 1;
+    my $sth = $self->session->db->read("select $keyName from $table where $setName=? order by sequenceNumber", [$setValue]);
 	my $sth2 = $self->session->db->prepare("update $table set sequenceNumber=? where $setName=? and $keyName=?");
-        while (my ($id) = $sth->array) {
-		$sth2->execute([$i, $setValue, $id]);
-                $i++;
-        }
-	$sth2->finish;
-        $sth->finish;
-        $sth->finish;
+    while (my ($id) = $sth->array) {
+        $sth2->execute([$i, $setValue, $id]);
+        $i++;
+    }
+    $sth2->finish;
+    $sth->finish;
 }
 
 
@@ -580,7 +579,7 @@ sub setCollateral {
 		$properties->{$keyName} = $self->session->id->generate();
 		$sql = "insert into $table (";
 		my $dbkeys = "";
-     		my $dbvalues = "";
+        my $dbvalues = "";
 		unless ($useSequence eq "0") {
 			unless (exists $properties->{sequenceNumber}) {
 				my ($seq) = $self->session->db->quickArray("select max(sequenceNumber) from $table where $setName=?",[$setValue]);
@@ -600,7 +599,8 @@ sub setCollateral {
 		}
 		$sql .= $dbkeys.') values ('.$dbvalues.')';
 		$self->updateHistory("added collateral item ".$table." ".$properties->{$keyName});
-	} else {
+	}
+    else {
 		$sql = "update $table set ";
 		foreach my $key (keys %{$properties}) {
 			unless ($key eq "sequenceNumber") {