From 7498ff6520971a5375331e89ed192675fbc69232 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sun, 5 Jul 2009 17:00:31 +0000
Subject: [PATCH] Fix a bug in AssetCollateral/DataForm/Entry with renameField.

---
 lib/WebGUI/AssetCollateral/DataForm/Entry.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/AssetCollateral/DataForm/Entry.pm b/lib/WebGUI/AssetCollateral/DataForm/Entry.pm
index 1b801a680..71bc86f08 100644
--- a/lib/WebGUI/AssetCollateral/DataForm/Entry.pm
+++ b/lib/WebGUI/AssetCollateral/DataForm/Entry.pm
@@ -366,7 +366,7 @@ sub renameField {
     elsif ( exists $entryData{ $newField } ) {
         WebGUI::Error::InvalidParam->throw(error=>'cannot rename field over existing field');
     }
-    $entryData->{$newField} = delete $entryData{$newField};
+    $entryData->{$newField} = delete $entryData{$oldField};
     return $newField;
 }