Fix a bug in AssetCollateral/DataForm/Entry with renameField.

This commit is contained in:
Colin Kuskie 2009-07-05 17:00:31 +00:00
parent 411150d4e3
commit 7498ff6520

View file

@ -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;
}