fixed bug on numeric Id check

This commit is contained in:
Len Kranendonk 2004-11-08 16:24:24 +00:00
parent 1f16563d27
commit b3080f57df

View file

@ -78,7 +78,7 @@ The fieldId to be deleted.
sub deleteField {
my $fieldId = shift;
return unless ($fieldId =~ /^\d+$/);
return unless ($fieldId =~ /^\d+$/ || length($fieldId) == 22);
WebGUI::SQL->write("delete from metaData_properties where fieldId = ".quote($fieldId));
WebGUI::SQL->write("delete from metaData_values where fieldId = ".quote($fieldId));
}