corrected DataForm upgrade script

This commit is contained in:
Graham Knop 2008-06-20 08:57:04 +00:00
parent deaa6c65c0
commit f7962810db
2 changed files with 10 additions and 1 deletions

View file

@ -150,7 +150,7 @@ sub convertDataForm {
my $newEntryFieldData = {};
my $entryFields = $session->db->read("SELECT * FROM `DataForm_entryData` WHERE assetId=? AND DataForm_entryId=?", [$assetId, $entryData->{DataForm_entryId}]);
while (my $entryFieldData = $entryFields->hashRef) {
$newEntryFieldData->{ $fieldMapping{ $entryFieldData->{DataForm_fieldId} } } = $entryData->{value};
$newEntryFieldData->{ $fieldMapping{ $entryFieldData->{DataForm_fieldId} } } = $entryFieldData->{value};
}
$entryFields->finish;
my $entryJSON = encode_json($newEntryFieldData);