From e25094a16ee83ac35804152010845bd81dc664f2 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 30 Apr 2009 20:31:10 +0000
Subject: [PATCH] Remove dead code.

---
 lib/WebGUI/Asset/Sku/Product.pm | 42 ---------------------------------
 1 file changed, 42 deletions(-)

diff --git a/lib/WebGUI/Asset/Sku/Product.pm b/lib/WebGUI/Asset/Sku/Product.pm
index 7f0577e88..caaad5b6c 100644
--- a/lib/WebGUI/Asset/Sku/Product.pm
+++ b/lib/WebGUI/Asset/Sku/Product.pm
@@ -759,48 +759,6 @@ sub purgeRevision {
     return $self->SUPER::purgeRevision;
 }
 
-#-------------------------------------------------------------------
-
-=head2 reorderCollateral ( tableName,keyName [,setName,setValue] )
-
-Resequences collateral data. Typically useful after deleting a collateral item to remove the gap created by the deletion.
-
-=head3 tableName
-
-The name of the table to resequence.
-
-=head3 keyName
-
-The key column name used to determine which data needs sorting within the table.
-
-=head3 setName
-
-Defaults to "assetId". This is used to define which data set to reorder.
-
-=head3 setValue
-
-Used to define which data set to reorder. Defaults to the value of setName (default "assetId", see above) in the wobject properties.
-
-=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 $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;
-}
-
-
 #-----------------------------------------------------------------
 
 =head2 setAllCollateral ( tableName )