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 } ) { elsif ( exists $entryData{ $newField } ) {
WebGUI::Error::InvalidParam->throw(error=>'cannot rename field over existing field'); WebGUI::Error::InvalidParam->throw(error=>'cannot rename field over existing field');
} }
$entryData->{$newField} = delete $entryData{$newField}; $entryData->{$newField} = delete $entryData{$oldField};
return $newField; return $newField;
} }