- fix: bug in EMS purge

- fix: bug in poll where you can't edit it to have less answers

lib/WebGUI/Form/Control.pm

@@ -440,6 +440,23 @@ sub getValueFromPost {
 	}
 }
 
+#-------------------------------------------------------------------
+
+=head2 isProfileEnabled ( session )
+
+A class method. Returns a 1 if this control can be used by the profiling system. In general that means that the
+field is safe for dynamic generation.
+
+=cut
+
+
+sub isProfileEnabled {
+    my $class = shift;
+    my $session = shift;
+    return $class->definition($session)->[0]{profileEnabled};
+}
+
+
 #-------------------------------------------------------------------
 
 =head2 new ( session, parameters )

lib/WebGUI/Form/FieldType.pm

@@ -139,6 +139,7 @@ sub toHtml {
                 	$self->session->errorHandler->error("Couldn't compile form control: ".$type.". Root cause: ".$@);
 			next;
         	} 
+        next unless $class->isProfileEnabled($self->session);
 		$options{$type} = $class->getName($self->session);
 	}
 	$self->set('options',\%options);