diff --git a/lib/WebGUI/ProfileCategory.pm b/lib/WebGUI/ProfileCategory.pm index ea930cf46..472cb0597 100644 --- a/lib/WebGUI/ProfileCategory.pm +++ b/lib/WebGUI/ProfileCategory.pm @@ -83,6 +83,31 @@ sub get { #------------------------------------------------------------------- +=head2 getCategories () + +Returns an array reference of all WebGUI::ProfileCategory objects in order of sequence. This is a class method. + +=cut + +sub getCategories { + +} + + +#------------------------------------------------------------------- + +=head2 getFields () + +Returns an array reference of all WebGUI::ProfileField objects that are part of this category in order of sequence. + +=cut + +sub getFields { + +} + +#------------------------------------------------------------------- + =head2 moveDown () Moves this category down one position. diff --git a/lib/WebGUI/ProfileField.pm b/lib/WebGUI/ProfileField.pm index 4d0c0dba3..3f3ecb21c 100644 --- a/lib/WebGUI/ProfileField.pm +++ b/lib/WebGUI/ProfileField.pm @@ -110,6 +110,19 @@ sub get { } +#------------------------------------------------------------------- + +=head2 getCategory () + +Returns a WebGUI::ProfileCategory object for the category that this profile field belongs to. + +=cut + +sub getCategory { + +} + + #------------------------------------------------------------------- =head2 moveDown () @@ -149,6 +162,8 @@ The unique name of this field. sub new { my $class = shift; + my $fieldName = shift; + bless {_fieldName=>$fieldName}, $class; } #-------------------------------------------------------------------