From b3080f57df2fa28eae7bacf7c7ff4543838e3cc5 Mon Sep 17 00:00:00 2001
From: Len Kranendonk <len@webgui-svn>
Date: Mon, 8 Nov 2004 16:24:24 +0000
Subject: [PATCH] fixed bug on numeric Id check

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

diff --git a/lib/WebGUI/MetaData.pm b/lib/WebGUI/MetaData.pm
index 2a6d08e12..cc4fce674 100644
--- a/lib/WebGUI/MetaData.pm
+++ b/lib/WebGUI/MetaData.pm
@@ -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));
 }