Added a method to check to see if a profile category has protected fields.

Use that method to see prevent the category from being deleted in the ProfileSettings operation.
Change the delete profile confirmation message to match what it does, which is delete all
the fields in the category.

lib/WebGUI/ProfileCategory.pm

@@ -177,6 +177,27 @@ sub getLabel {
         return WebGUI::Operation::Shared::secureEval($self->session,$self->get("label"));
 }
 
+#-------------------------------------------------------------------
+
+=head2 hasProtected ( )
+
+Returns a boolean indicating whether any of the category's fields are protected.
+
+=cut
+
+sub hasProtected {
+	my $self = shift;
+    my $protected=0;
+    FIELD: foreach my $field (@{ $self->getFields }) {
+        if ($field->isProtected) {
+            $protected=1;
+            last FIELD;
+        }
+    }
+	return $protected;
+}
+
+
 #-------------------------------------------------------------------
 
 =head2 isEditable ( )