diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index 0e1c1f301..a30b20616 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -1,4 +1,7 @@
 7.6.2
+ - added extras to user profile fields. these can be accessed using the
+   profile.form.element.extras template variable when editing a profile
+   and the profile.extras field when viewing a template.
  - Added the NotifyAboutThing workflow activity. Use this activity to create
    workflows for the add / edit / delete workflows for a thingy's things.
  - fixed #8839: Documentation is wrong for Stock Ticker
diff --git a/docs/upgrades/upgrade_7.6.1-7.6.2.pl b/docs/upgrades/upgrade_7.6.1-7.6.2.pl
index 03b71e7b8..074e29826 100644
--- a/docs/upgrades/upgrade_7.6.1-7.6.2.pl
+++ b/docs/upgrades/upgrade_7.6.1-7.6.2.pl
@@ -34,6 +34,7 @@ addPreTextToThingyFields($session);
 updateAddressBook($session);
 changeDefaultPaginationInSearch($session);
 addUsersOnlineMacro($session);
+addProfileExtrasField($session);
 finish($session); # this line required
 
 
@@ -84,6 +85,15 @@ sub addPreTextToThingyFields {
     print "DONE!\n" unless $quiet;
 }
 
+#----------------------------------------------------------------------------
+sub addProfileExtrasField {
+    my $session = shift;
+    print "\tAdding the Extras field for profile fields... " unless $quiet;
+    my $db = $session->db;
+    $db->write('alter table userProfileField add extras text default NULL');
+    print "DONE!\n" unless $quiet;
+}
+
 
 # -------------- DO NOT EDIT BELOW THIS LINE --------------------------------
 
diff --git a/lib/WebGUI/Help/WebGUIProfile.pm b/lib/WebGUI/Help/WebGUIProfile.pm
index 06d42b97b..fdaee683a 100644
--- a/lib/WebGUI/Help/WebGUIProfile.pm
+++ b/lib/WebGUI/Help/WebGUIProfile.pm
@@ -26,6 +26,9 @@ our $HELP = {
                     {
                         name        => 'profile.value',
                     },
+                    {
+                        name        => 'profile.extras',
+                    },
                     
                 ],
             },
@@ -91,6 +94,9 @@ our $HELP = {
                                 name        => 'profile.form.element',
                                 required    => 1,
                             },
+                            {
+                                name        => 'profile.form.extras',
+                            },
                             {
                                 name        => 'profile.form.element.label',
                                 required    => 1,
diff --git a/lib/WebGUI/Operation/Profile.pm b/lib/WebGUI/Operation/Profile.pm
index d83a10df2..bfa3b8c72 100644
--- a/lib/WebGUI/Operation/Profile.pm
+++ b/lib/WebGUI/Operation/Profile.pm
@@ -221,7 +221,8 @@ sub www_editProfile {
 			push(@temp, {
 				'profile.form.element' => $field->formField,
 				'profile.form.element.label' => $field->getLabel,
-				'profile.form.element.subtext' => $field->isRequired ? "*" : undef
+				'profile.form.element.subtext' => $field->isRequired ? "*" : undef,
+                'profile.form.element.extras' => $field->getExtras,
 				});
 		}
 		push(@array, {
@@ -306,8 +307,9 @@ sub www_viewProfile {
             next unless ($field->get("visible"));
             next if ($field->get("fieldName") eq "email" && !$u->profileField("publicEmail"));
             push @array, {
-                'profile.label' => $field->getLabel,
-                'profile.value' => $field->formField(undef,2,$u),
+                'profile.label'     => $field->getLabel,
+                'profile.value'     => $field->formField(undef,2,$u),
+                'profile.extras'    => $field->getExtras,
             };
         }
     }
diff --git a/lib/WebGUI/Operation/ProfileSettings.pm b/lib/WebGUI/Operation/ProfileSettings.pm
index f0f6d5873..92644dffa 100644
--- a/lib/WebGUI/Operation/ProfileSettings.pm
+++ b/lib/WebGUI/Operation/ProfileSettings.pm
@@ -218,116 +218,122 @@ Add or edit a profile field specified in form variable C<fid>.  Calls www_editPr
 
 #-------------------------------------------------------------------
 sub www_editProfileField {
-	my $session = shift;
-        return $session->privilege->adminOnly() unless canView($session);
-	my $i18n = WebGUI::International->new($session,"WebGUIProfile");
-        my $f = WebGUI::HTMLForm->new($session);
-	$f->submit;
+    my $session = shift;
+    return $session->privilege->adminOnly() unless canView($session);
+    my $i18n = WebGUI::International->new($session,"WebGUIProfile");
+    my $f = WebGUI::HTMLForm->new($session);
+    $f->submit;
+    $f->hidden(
+        -name => "op",
+        -value => "editProfileFieldSave",
+    );
+    my $data = {};
+    if ($session->form->process("fid") ne 'new') {
         $f->hidden(
-		-name => "op",
-		-value => "editProfileFieldSave",
+            -name => "fid",
+            -value => $session->form->process("fid"),
         );
-	my $data = {};
-	if ($session->form->process("fid") ne 'new') {
-              	$f->hidden(
-			-name => "fid",
-			-value => $session->form->process("fid"),
-              	);
-		$f->readOnly(
-			-value => $session->form->process("fid"),
-			-label => $i18n->get(475),
-			-hoverHelp => $i18n->get('475 description'),
-		);
-		$data = WebGUI::ProfileField->new($session,$session->form->process("fid"))->get;
-	} else {
-               	$f->hidden(
-			-name => "new",
-			-value => 1,
-               	);
-               	$f->text(
-			-name => "fid",
-			-label => $i18n->get(475),
-			-hoverHelp => $i18n->get('475 description'),
-               	);
-	}
-	$f->text(
-		-name => "label",
-		-label => $i18n->get(472),
-		-hoverHelp => $i18n->get('472 description'),
-		-value => $data->{label},
-	);
-	$f->yesNo(
-		-name=>"visible",
-		-label=>$i18n->get('473a'),
-		-hoverHelp=>$i18n->get('473a description'),
-		-value=>$data->{visible}
-		);
-	$f->yesNo(
-                -name=>"editable",
-                -value=>$data->{editable},
-                -label=>$i18n->get('897a'),
-                -hoverHelp=>$i18n->get('897a description'),
-                );
-	$f->yesNo(
-		-name=>"required",
-		-label=>$i18n->get(474),
-		-hoverHelp=>$i18n->get('474 description'),
-		-value=>$data->{required}
-		);
-	$f->yesNo(
-		  -name => 'showAtRegistration',
-		  -label => $i18n->get('showAtRegistration label'),
-		  -hoverHelp => $i18n->get('showAtRegistration hoverHelp'),
-		  -value => $data->{showAtRegistration}
-		 );
-	$f->yesNo(
-		  -name => 'requiredForPasswordRecovery',
-		  -label => $i18n->get('requiredForPasswordRecovery label'),
-		  -hoverHelp => $i18n->get('requiredForPasswordRecovery hoverHelp'),
-		  -value => $data->{requiredForPasswordRecovery}
-		 );
-	if ($data->{fieldType} eq "Image") {
-		$f->yesNo(
-			-name=>"forceImageOnly",
-			-label=>$i18n->get('forceImageOnly label'),
-			-hoverHelp=>$i18n->get('forceImageOnly hoverHelp'),
-			-value=>$data->{forceImageOnly},
-			-defaultValue=>1,
-		);
-	}	
-	my $fieldType = WebGUI::Form::FieldType->new($session,
-		-name=>"fieldType",
-		-label=>$i18n->get(486),
-		-hoverHelp=>$i18n->get('486 description'),
-		-value=>ucfirst $data->{fieldType},
-		-defaultValue=>"Text",
-	);
-	$f->raw($fieldType->toHtmlWithWrapper());
-	$f->textarea(
-		-name => "possibleValues",
-		-label => $i18n->get(487),
-		-hoverHelp => $i18n->get('487 description'),
-		-value => $data->{possibleValues},
-	);
-	$f->textarea(
-		-name => "dataDefault",
-		-label => $i18n->get(488),
-		-hoverHelp => $i18n->get('488 description'),
-		-value => $data->{dataDefault},
-	);
-	my %hash;
-	foreach my $category (@{WebGUI::ProfileCategory->getCategories($session)}) {
-		$hash{$category->getId} = $category->getLabel;
-	}
-	$f->selectBox(
-		-name=>"profileCategoryId",
-		-options=>\%hash,
-		-label=>$i18n->get(489),
-		-hoverHelp=>$i18n->get('489 description'),
-		-value=>$data->{profileCategoryId}
-		);
-        $f->submit;
-	return _submenu($session,$f->print,'471',"WebGUIProfile");
+        $f->readOnly(
+            -value => $session->form->process("fid"),
+            -label => $i18n->get(475),
+            -hoverHelp => $i18n->get('475 description'),
+        );
+        $data = WebGUI::ProfileField->new($session,$session->form->process("fid"))->get;
+    } else {
+        $f->hidden(
+            -name => "new",
+            -value => 1,
+        );
+        $f->text(
+            -name => "fid",
+            -label => $i18n->get(475),
+            -hoverHelp => $i18n->get('475 description'),
+        );
+    }
+    $f->text(
+        -name => "label",
+        -label => $i18n->get(472),
+        -hoverHelp => $i18n->get('472 description'),
+        -value => $data->{label},
+    );
+    $f->yesNo(
+        -name=>"visible",
+        -label=>$i18n->get('473a'),
+        -hoverHelp=>$i18n->get('473a description'),
+        -value=>$data->{visible}
+    );
+    $f->yesNo(
+        -name=>"editable",
+        -value=>$data->{editable},
+        -label=>$i18n->get('897a'),
+        -hoverHelp=>$i18n->get('897a description'),
+    );
+    $f->yesNo(
+        -name=>"required",
+        -label=>$i18n->get(474),
+        -hoverHelp=>$i18n->get('474 description'),
+        -value=>$data->{required}
+    );
+    $f->yesNo(
+        -name => 'showAtRegistration',
+        -label => $i18n->get('showAtRegistration label'),
+        -hoverHelp => $i18n->get('showAtRegistration hoverHelp'),
+        -value => $data->{showAtRegistration}
+    );
+    $f->yesNo(
+        -name => 'requiredForPasswordRecovery',
+        -label => $i18n->get('requiredForPasswordRecovery label'),
+        -hoverHelp => $i18n->get('requiredForPasswordRecovery hoverHelp'),
+        -value => $data->{requiredForPasswordRecovery}
+    );
+    if ($data->{fieldType} eq "Image") {
+        $f->yesNo(
+            -name=>"forceImageOnly",
+            -label=>$i18n->get('forceImageOnly label'),
+            -hoverHelp=>$i18n->get('forceImageOnly hoverHelp'),
+            -value=>$data->{forceImageOnly},
+            -defaultValue=>1,
+        );
+    }	
+    my $fieldType = WebGUI::Form::FieldType->new($session,
+        -name=>"fieldType",
+        -label=>$i18n->get(486),
+        -hoverHelp=>$i18n->get('486 description'),
+        -value=>ucfirst $data->{fieldType},
+        -defaultValue=>"Text",
+    );
+    $f->raw($fieldType->toHtmlWithWrapper());
+    $f->textarea(
+        -name => "possibleValues",
+        -label => $i18n->get(487),
+        -hoverHelp => $i18n->get('487 description'),
+        -value => $data->{possibleValues},
+    );
+    $f->textarea(
+        -name => "dataDefault",
+        -label => $i18n->get(488),
+        -hoverHelp => $i18n->get('488 description'),
+        -value => $data->{dataDefault},
+    );
+    $f->textarea(
+        -name => "extras",
+        -label => $i18n->get('profile field extras label'),
+        -hoverHelp => $i18n->get('profile field extras hoverHelp'),
+        -value => $data->{extras},
+    );
+    my %hash;
+    foreach my $category (@{WebGUI::ProfileCategory->getCategories($session)}) {
+        $hash{$category->getId} = $category->getLabel;
+    }
+    $f->selectBox(
+        -name=>"profileCategoryId",
+        -options=>\%hash,
+        -label=>$i18n->get(489),
+        -hoverHelp=>$i18n->get('489 description'),
+        -value=>$data->{profileCategoryId}
+    );
+    $f->submit;
+    return _submenu($session,$f->print,'471',"WebGUIProfile");
 }
 
 =head2 www_editProfileFieldSave ( $session )
@@ -363,6 +369,7 @@ sub www_editProfileFieldSave {
 		dataDefault=>$session->form->textarea("dataDefault"),
 		fieldType=>$session->form->fieldType("fieldType"),
 		forceImageOnly=>$session->form->yesNo("forceImageOnly"),
+        extras=>$session->form->text('extras'),
 		);
 	my $categoryId = $session->form->selectBox("profileCategoryId");
 	if ($session->form->process("new")) {
diff --git a/lib/WebGUI/ProfileField.pm b/lib/WebGUI/ProfileField.pm
index 763a4218d..2e043a491 100644
--- a/lib/WebGUI/ProfileField.pm
+++ b/lib/WebGUI/ProfileField.pm
@@ -44,15 +44,15 @@ These methods are available from this package:
 
 #-------------------------------------------------------------------
 sub _reorderFields {
-	my $self = shift;
-	my $category = shift;
-        my ($sth, $i, $id);
-        $sth = $self->session->db->read("select fieldName from userProfileField where profileCategoryId=".$self->session->db->quote($category)." order by sequenceNumber");
-        while (($id) = $sth->array) {
-                $i++;
-                $self->session->db->write("update userProfileField set sequenceNumber='$i' where fieldName=".$self->session->db->quote($id));
-        }
-        $sth->finish;
+    my $self = shift;
+    my $category = shift;
+    my ($sth, $i, $id);
+    $sth = $self->session->db->read("select fieldName from userProfileField where profileCategoryId=".$self->session->db->quote($category)." order by sequenceNumber");
+    while (($id) = $sth->array) {
+        $i++;
+        $self->session->db->write("update userProfileField set sequenceNumber='$i' where fieldName=".$self->session->db->quote($id));
+    }
+    $sth->finish;
 }
 
 #-------------------------------------------------------------------
@@ -64,9 +64,9 @@ Return true iff fieldName is reserved and therefore not usable as a profile fiel
 =cut
 
 sub isReservedFieldName {
-	my $class = shift;
-	my $fieldName = shift;
-	return isIn($fieldName, ('func', 'op'));
+    my $class = shift;
+    my $fieldName = shift;
+    return isIn($fieldName, ('func', 'op'));
 }
 
 #-------------------------------------------------------------------
@@ -167,25 +167,25 @@ a value) that are not known by the ProfileField.
 =cut
 
 sub formProperties {
-	my $self        = shift;
-	my $properties  = shift || {};
-    
+    my $self        = shift;
+    my $properties  = shift || {};
+
     # Make a copy of the properties so we don't clobber them
     my %properties     = %{$properties};
 
-	$properties{ label          } = $self->getLabel unless $properties->{label};
-	$properties{ fieldType      } = $self->get("fieldType");
-	$properties{ name           } = $self->getId;
-	my $values 
-        = WebGUI::Operation::Shared::secureEval($self->session,$self->get("possibleValues"));
-	unless (ref $values eq 'HASH') {
-		if ($self->get('possibleValues') =~ /\S/) {
-			$self->session->errorHandler->warn("Could not get a hash out of possible values for profile field ".$self->getId);
-		}
-		$values = {};
-	}
-	my $orderedValues = {};
-	tie %{$orderedValues}, 'Tie::IxHash';
+    $properties{ label          } = $self->getLabel unless $properties->{label};
+    $properties{ fieldType      } = $self->get("fieldType");
+    $properties{ name           } = $self->getId;
+    my $values 
+    = WebGUI::Operation::Shared::secureEval($self->session,$self->get("possibleValues"));
+    unless (ref $values eq 'HASH') {
+        if ($self->get('possibleValues') =~ /\S/) {
+            $self->session->errorHandler->warn("Could not get a hash out of possible values for profile field ".$self->getId);
+        }
+        $values = {};
+    }
+    my $orderedValues = {};
+    tie %{$orderedValues}, 'Tie::IxHash';
     for my $ov (sort keys %{$values}) {
         $orderedValues->{$ov} = $values->{$ov};
     }
@@ -229,37 +229,37 @@ form.
 =cut
 
 sub formField {
-	my $self = shift;
+    my $self = shift;
     my $properties = $self->formProperties(shift);
-	my $withWrapper = shift;
-	my $u = shift || $self->session->user;
-	my $skipDefault = shift;
-	my $assignedValue = shift;
-	if ($skipDefault) {
-	    $properties->{value} = undef;
-	}
-	elsif (defined $assignedValue) {
-	    $properties->{value} = $assignedValue;
-	}
-	else {
-	    # start with specified (or current) user's data.  previous data needed by some form types as well (file).
+    my $withWrapper = shift;
+    my $u = shift || $self->session->user;
+    my $skipDefault = shift;
+    my $assignedValue = shift;
+    if ($skipDefault) {
+        $properties->{value} = undef;
+    }
+    elsif (defined $assignedValue) {
+        $properties->{value} = $assignedValue;
+    }
+    else {
+        # start with specified (or current) user's data.  previous data needed by some form types as well (file).
         $properties->{value} = $u->profileField($self->getId);
         # use submitted data if it exists
         if (defined $self->session->form->process($properties->{name})) {
             $properties->{value} = $self->session->form->process($self->getId,$self->get("fieldType"), undef, $properties);
-	    }
-	    # fall back on default
-	    if(!defined $properties->{value}) {
-	        $properties->{value} = WebGUI::Operation::Shared::secureEval($self->session,$properties->{dataDefault});
-	    }
-	}
-	if ($withWrapper == 1) {
-		return WebGUI::Form::DynamicField->new($self->session,%{$properties})->toHtmlWithWrapper;
-	} elsif ($withWrapper == 2) {
-		return WebGUI::Form::DynamicField->new($self->session,%{$properties})->getValueAsHtml;
-	} else {
-		return WebGUI::Form::DynamicField->new($self->session,%{$properties})->toHtml;
-	}
+        }
+        # fall back on default
+        if(!defined $properties->{value}) {
+            $properties->{value} = WebGUI::Operation::Shared::secureEval($self->session,$properties->{dataDefault});
+        }
+    }
+    if ($withWrapper == 1) {
+        return WebGUI::Form::DynamicField->new($self->session,%{$properties})->toHtmlWithWrapper;
+    } elsif ($withWrapper == 2) {
+        return WebGUI::Form::DynamicField->new($self->session,%{$properties})->getValueAsHtml;
+    } else {
+        return WebGUI::Form::DynamicField->new($self->session,%{$properties})->toHtml;
+    }
 }
 
 
@@ -272,20 +272,20 @@ Returns the value retrieved from a form post.
 =cut
 
 sub formProcess {
-	my $self = shift;
+    my $self = shift;
     my $u = shift || $self->session->user;
     my $properties = $self->formProperties({value => $u->profileField($self->getId)});
-	my $result = $self->session->form->process($self->getId,$self->get("fieldType"),WebGUI::Operation::Shared::secureEval($self->session,$self->get("dataDefault")), $properties);
-	if (ref $result eq "ARRAY") {
-		my @results = @$result;
-		for (my $count=0;$count<scalar(@results);$count++) {
-			$results[$count] = 	WebGUI::HTML::filter($results[$count], "javascript");
-		}
-		$result = \@results;
-	} else {
-		$result = WebGUI::HTML::filter($result, "javascript");
-	}
-	return $result;
+    my $result = $self->session->form->process($self->getId,$self->get("fieldType"),WebGUI::Operation::Shared::secureEval($self->session,$self->get("dataDefault")), $properties);
+    if (ref $result eq "ARRAY") {
+        my @results = @$result;
+        for (my $count=0;$count<scalar(@results);$count++) {
+            $results[$count] =  WebGUI::HTML::filter($results[$count], "javascript");
+        }
+        $result = \@results;
+    } else {
+        $result = WebGUI::HTML::filter($result, "javascript");
+    }
+    return $result;
 }
 
 #-------------------------------------------------------------------
@@ -318,8 +318,8 @@ Returns a WebGUI::ProfileCategory object for the category that this profile fiel
 =cut
 
 sub getCategory {
-	my $self = shift;
-	return WebGUI::ProfileCategory->new($self->session,$self->get("profileCategoryId"));
+    my $self = shift;
+    return WebGUI::ProfileCategory->new($self->session,$self->get("profileCategoryId"));
 }
 
 
@@ -340,6 +340,19 @@ sub getId {
 
 #-------------------------------------------------------------------
 
+=head2 getExtras ()
+
+Returns the value of the extras property for this field.
+
+=cut
+
+sub getExtras {
+    my $self = shift;
+    return $self->get('extras');
+}
+
+#-------------------------------------------------------------------
+
 =head2 getLabel ( )
 
 Returns the eval'd label for this field.
@@ -354,10 +367,10 @@ sub getLabel {
 #-------------------------------------------------------------------
 
 sub _listFieldsWhere {
-	my $class = shift;
-	my $session = shift;
-	my $whereClause = shift;
-	return [map{$class->new($session, $_)} $session->db->buildArray(<<"SQL")];
+    my $class = shift;
+    my $session = shift;
+    my $whereClause = shift;
+    return [map{$class->new($session, $_)} $session->db->buildArray(<<"SQL")];
   SELECT f.fieldName
     FROM userProfileField AS f
          LEFT JOIN userProfileCategory AS c ON f.profileCategoryId = c.profileCategoryId
@@ -375,9 +388,9 @@ Returns an array reference of WebGUI::ProfileField objects that are marked "edit
 =cut
 
 sub getEditableFields {
-        my $class = shift;
-	my $session = shift;
-	return $class->_listFieldsWhere($session, "f.required = 1 OR f.editable = 1 OR f.showAtRegistration = 1");
+    my $class = shift;
+    my $session = shift;
+    return $class->_listFieldsWhere($session, "f.required = 1 OR f.editable = 1 OR f.showAtRegistration = 1");
 }
 
 #-------------------------------------------------------------------
@@ -389,9 +402,9 @@ Returns an array reference of WebGUI::ProfileField objects. This is a class meth
 =cut
 
 sub getFields {
-        my $class = shift;
-	my $session = shift;
-	return $class->_listFieldsWhere($session, "1");
+    my $class = shift;
+    my $session = shift;
+    return $class->_listFieldsWhere($session, "1");
 }
 
 #-------------------------------------------------------------------
@@ -416,9 +429,9 @@ Returns an array reference of WebGUI::ProfileField objects that are marked "requ
 =cut
 
 sub getRequiredFields {
-	my $class = shift;
-	my $session = shift;
-	return $class->_listFieldsWhere($session, "f.required = 1");
+    my $class = shift;
+    my $session = shift;
+    return $class->_listFieldsWhere($session, "f.required = 1");
 }
 
 #-------------------------------------------------------------------
@@ -430,9 +443,9 @@ Returns an array reference of profile field objects to use during anonymous regi
 =cut
 
 sub getRegistrationFields {
-	my $class = shift;
-	my $session = shift;
-	return $class->_listFieldsWhere($session, "f.showAtRegistration = 1");
+    my $class = shift;
+    my $session = shift;
+    return $class->_listFieldsWhere($session, "f.showAtRegistration = 1");
 }
 
 =head2 getPasswordRecoveryFields ( session )
@@ -443,9 +456,9 @@ for password recovery.  Class method.
 =cut
 
 sub getPasswordRecoveryFields {
-	my $class = shift;
-	my $session = shift;
-	return $class->_listFieldsWhere($session, "f.requiredForPasswordRecovery = 1");
+    my $class = shift;
+    my $session = shift;
+    return $class->_listFieldsWhere($session, "f.requiredForPasswordRecovery = 1");
 }
 
 #-------------------------------------------------------------------
@@ -510,15 +523,15 @@ Moves this field down one position within it's category.
 =cut
 
 sub moveDown {
-	my $self = shift;
- 	my ($id, $thisSeq, $profileCategoryId);
-        ($thisSeq,$profileCategoryId) = $self->session->db->quickArray("select sequenceNumber,profileCategoryId from userProfileField where fieldName=".$self->session->db->quote($self->getId));
-        ($id) = $self->session->db->quickArray("select fieldName from userProfileField where profileCategoryId=".$self->session->db->quote($profileCategoryId)." and sequenceNumber=$thisSeq+1");
-        if ($id ne "") {
-                $self->session->db->write("update userProfileField set sequenceNumber=sequenceNumber+1 where fieldName=".$self->session->db->quote($self->getId));
-                $self->session->db->write("update userProfileField set sequenceNumber=sequenceNumber-1 where fieldName=".$self->session->db->quote($id));
-                $self->_reorderFields($profileCategoryId);
-        }
+    my $self = shift;
+    my ($id, $thisSeq, $profileCategoryId);
+    ($thisSeq,$profileCategoryId) = $self->session->db->quickArray("select sequenceNumber,profileCategoryId from userProfileField where fieldName=".$self->session->db->quote($self->getId));
+    ($id) = $self->session->db->quickArray("select fieldName from userProfileField where profileCategoryId=".$self->session->db->quote($profileCategoryId)." and sequenceNumber=$thisSeq+1");
+    if ($id ne "") {
+        $self->session->db->write("update userProfileField set sequenceNumber=sequenceNumber+1 where fieldName=".$self->session->db->quote($self->getId));
+        $self->session->db->write("update userProfileField set sequenceNumber=sequenceNumber-1 where fieldName=".$self->session->db->quote($id));
+        $self->_reorderFields($profileCategoryId);
+    }
 }
 
 #-------------------------------------------------------------------
@@ -530,15 +543,15 @@ Moves this field up one position within it's category.
 =cut
 
 sub moveUp {
-	my $self = shift;
-	my ($id, $thisSeq, $profileCategoryId);
-        ($thisSeq,$profileCategoryId) = $self->session->db->quickArray("select sequenceNumber,profileCategoryId from userProfileField where fieldName=".$self->session->db->quote($self->getId));
-        ($id) = $self->session->db->quickArray("select fieldName from userProfileField where profileCategoryId=".$self->session->db->quote($profileCategoryId)." and sequenceNumber=$thisSeq-1");
-        if ($id ne "") {
-                $self->session->db->write("update userProfileField set sequenceNumber=sequenceNumber-1 where fieldName=".$self->session->db->quote($self->getId));
-                $self->session->db->write("update userProfileField set sequenceNumber=sequenceNumber+1 where fieldName=".$self->session->db->quote($id));
-                $self->_reorderFields($profileCategoryId);
-        }
+    my $self = shift;
+    my ($id, $thisSeq, $profileCategoryId);
+    ($thisSeq,$profileCategoryId) = $self->session->db->quickArray("select sequenceNumber,profileCategoryId from userProfileField where fieldName=".$self->session->db->quote($self->getId));
+    ($id) = $self->session->db->quickArray("select fieldName from userProfileField where profileCategoryId=".$self->session->db->quote($profileCategoryId)." and sequenceNumber=$thisSeq-1");
+    if ($id ne "") {
+        $self->session->db->write("update userProfileField set sequenceNumber=sequenceNumber-1 where fieldName=".$self->session->db->quote($self->getId));
+        $self->session->db->write("update userProfileField set sequenceNumber=sequenceNumber+1 where fieldName=".$self->session->db->quote($id));
+        $self->_reorderFields($profileCategoryId);
+    }
 }
 
 
@@ -583,21 +596,21 @@ The new name this field should take.
 =cut
 
 sub rename {
-	my $self        = shift;
-	my $newName     = shift;
+    my $self        = shift;
+    my $newName     = shift;
 
     my $session     = $self->session;
     my $db          = $session->db;
 
     ### Check data
     # Make sure the field doesn't exist
-	my $fieldNameExists
-        = $self->session->db->quickScalar(
-            "SELECT COUNT(*) FROM userProfileField WHERE fieldName=?",
-            [$newName]
-        );
-	return 0 if ($fieldNameExists);
-   
+    my $fieldNameExists
+    = $self->session->db->quickScalar(
+        "SELECT COUNT(*) FROM userProfileField WHERE fieldName=?",
+        [$newName]
+    );
+    return 0 if ($fieldNameExists);
+
     # Rename the userProfileData column
     my $fieldClass  = $self->getFormControlClass;
     eval "use $fieldClass;";
@@ -610,12 +623,12 @@ sub rename {
     );
 
     # Update the record
-	$self->session->db->write(
+    $self->session->db->write(
         "update userProfileField set fieldName=? where fieldName=?",
         [$newName, $self->getId]
     );
-	$self->{_properties}{fieldName} = $newName;
-	
+    $self->{_properties}{fieldName} = $newName;
+
     return 1;
 }
 
@@ -629,8 +642,8 @@ Returns a reference to the current session.
 =cut
 
 sub session {
-	my $self = shift;
-	return $self->{_session};
+    my $self = shift;
+    return $self->{_session};
 }
 
 #-------------------------------------------------------------------
@@ -678,51 +691,52 @@ A scalar containing an array reference or scalar declaration of defaultly select
 =cut
 
 sub set {
-	my $self        = shift;
-	my $properties  = shift;
+    my $self        = shift;
+    my $properties  = shift;
 
     my $session     = $self->session;
-	my $db          = $session->db;
+    my $db          = $session->db;
 
     # Set the defaults
     $properties->{visible} = 0 unless ($properties->{visible} == 1);
-	$properties->{editable} = 0 unless ($properties->{editable} == 1);
-	$properties->{protected} = 0 unless ($properties->{protected} == 1);
-	$properties->{required} = 0 unless ($properties->{required} == 1);
-	$properties->{label} = 'Undefined' if ($properties->{label} =~ /^[\"\']*$/);
-	$properties->{fieldType} = 'text' unless ($properties->{fieldType});
-	if ($properties->{dataDefault} && $properties->{fieldType}=~/List$/) {
-                unless ($properties->{dataDefault} =~ /^\[/) {
-                        $properties->{dataDefault} = "[".$properties->{dataDefault};
-                }
-                unless ($properties->{dataDefault} =~ /\]$/) {
-                        $properties->{dataDefault} .= "]";
-                }
+    $properties->{editable} = 0 unless ($properties->{editable} == 1);
+    $properties->{protected} = 0 unless ($properties->{protected} == 1);
+    $properties->{required} = 0 unless ($properties->{required} == 1);
+    $properties->{label} = 'Undefined' if ($properties->{label} =~ /^[\"\']*$/);
+    $properties->{fieldType} = 'text' unless ($properties->{fieldType});
+    $properties->{extras} = '' unless ($properties->{extras});
+    if ($properties->{dataDefault} && $properties->{fieldType}=~/List$/) {
+        unless ($properties->{dataDefault} =~ /^\[/) {
+            $properties->{dataDefault} = "[".$properties->{dataDefault};
         }
-	$properties->{fieldName} = $self->getId;
-    
+        unless ($properties->{dataDefault} =~ /\]$/) {
+            $properties->{dataDefault} .= "]";
+        }
+    }
+    $properties->{fieldName} = $self->getId;
+
     # If the fieldType has changed, modify the userProfileData column
     if ($properties->{fieldType} ne $self->get("fieldType")) {
         # Create a copy of the new properties so we don't mess them up
         my $fieldClass  = "WebGUI::Form::".ucfirst($properties->{fieldType});
         eval "use $fieldClass;";
         my $dbDataType 
-            = $fieldClass->new($session, $self->formProperties($properties))->getDatabaseFieldType;
-        
+        = $fieldClass->new($session, $self->formProperties($properties))->getDatabaseFieldType;
+
         my $sql 
-            = "ALTER TABLE userProfileData MODIFY COLUMN " 
-            . $db->dbh->quote_identifier($self->getId) . q{ }
-            . $dbDataType
-            ;
-        
+        = "ALTER TABLE userProfileData MODIFY COLUMN " 
+        . $db->dbh->quote_identifier($self->getId) . q{ }
+        . $dbDataType
+        ;
+
         $db->write($sql);
     }
 
     # Update the record
-	$db->setRow("userProfileField","fieldName",$properties);
-	foreach my $key (keys %{$properties}) {
-		$self->{_properties}{$key} = $properties->{$key};
-	}
+    $db->setRow("userProfileField","fieldName",$properties);
+    foreach my $key (keys %{$properties}) {
+        $self->{_properties}{$key} = $properties->{$key};
+    }
 }
 
 #-------------------------------------------------------------------
@@ -738,19 +752,19 @@ The unique ID of a category to assign this field to.
 =cut
 
 sub setCategory {
-	my $self = shift;
-	my $categoryId = shift;
-	return undef unless ($categoryId);
-	my $currentCategoryId = $self->get("profileCategoryId");
+    my $self = shift;
+    my $categoryId = shift;
+    return undef unless ($categoryId);
+    my $currentCategoryId = $self->get("profileCategoryId");
 
-	return undef if ($categoryId eq $currentCategoryId);
+    return undef if ($categoryId eq $currentCategoryId);
 
-        my ($sequenceNumber) = $self->session->db->quickArray("select max(sequenceNumber) from userProfileField where profileCategoryId=".$self->session->db->quote($categoryId));
-	$self->session->db->setRow("userProfileField","fieldName",{fieldName=>$self->getId, profileCategoryId=>$categoryId, sequenceNumber=>$sequenceNumber+1});
-	$self->{_property}{profileCategoryId} = $categoryId;
-	$self->{_property}{sequenceNumber} = $sequenceNumber+1;
-	$self->_reorderFields($currentCategoryId) if ($currentCategoryId);
-	$self->_reorderFields($categoryId);
+    my ($sequenceNumber) = $self->session->db->quickArray("select max(sequenceNumber) from userProfileField where profileCategoryId=".$self->session->db->quote($categoryId));
+    $self->session->db->setRow("userProfileField","fieldName",{fieldName=>$self->getId, profileCategoryId=>$categoryId, sequenceNumber=>$sequenceNumber+1});
+    $self->{_property}{profileCategoryId} = $categoryId;
+    $self->{_property}{sequenceNumber} = $sequenceNumber+1;
+    $self->_reorderFields($currentCategoryId) if ($currentCategoryId);
+    $self->_reorderFields($categoryId);
 }
 
 1;
diff --git a/lib/WebGUI/i18n/English/WebGUIProfile.pm b/lib/WebGUI/i18n/English/WebGUIProfile.pm
index 9a9c9e598..5d4e671d6 100644
--- a/lib/WebGUI/i18n/English/WebGUIProfile.pm
+++ b/lib/WebGUI/i18n/English/WebGUIProfile.pm
@@ -283,6 +283,11 @@ If you wish to set the Default Value for any other field.  Create the field with
         lastUpdated => 1213326336,
     },
 
+    'profile.extras' => {
+        message => q|Extra HTML for this field.|,
+        lastUpdated => 1224631267,
+    },
+
 	'profile.category' => {
         message => q|The name of the current category.  This variable will only exist for the first profile field in each category.|,
         lastUpdated => 1213326336,
@@ -360,6 +365,12 @@ If you wish to set the Default Value for any other field.  Create the field with
         lastUpdated => 1221580083,
     },
 
+    'profile.form.extras' => {
+        message => q|Extra HTML for this field.|,
+        context => q|Template variable for edit profile field|,
+        lastUpdated => 1224631267,
+    },
+
 	'profile.form.category' => {
         message => q|The name of this category.|,
         context => q|Template variable for edit profile field|,
@@ -389,7 +400,14 @@ If you wish to set the Default Value for any other field.  Create the field with
         context => q|Template variable for edit profile field|,
         lastUpdated => 1221580083,
     },
-
+    'profile field extras label' => {
+        message => q|Extras|,
+        lastUpdated => 1224620527,
+    },
+    'profile field extras hoverHelp' => {
+        message => q|Extra HTML to include with this profile field.|,
+        lastUpdated => 1224620527,
+    },
 };
 
 1;
diff --git a/t/User.t b/t/User.t
index 291c281bf..66f781435 100644
--- a/t/User.t
+++ b/t/User.t
@@ -20,7 +20,7 @@ use WebGUI::Cache;
 use WebGUI::User;
 use WebGUI::ProfileField;
 
-use Test::More tests => 139; # increment this value for each test you create
+use Test::More tests => 140; # increment this value for each test you create
 use Test::Deep;
 
 my $session = WebGUI::Test->session;
@@ -406,6 +406,12 @@ $profileField->set(\%copiedFieldData);
 
 is($profileField->get('dataDefault'), "'America/Hillsboro'", 'default timeZone set to America/Hillsboro');
 
+# now let's make sure it has an extras field, and that we can get/set it.
+$profileField->set( { extras => '<!-- hello world -->' } );
+is($profileField->getExtras, '<!-- hello world -->', 'extras field for profileField');
+$profileField->set( { extras => '' } );
+
+
 my $busterCopy = WebGUI::User->new($session, $buster->userId);
 is( $busterCopy->profileField('timeZone'), 'America/Hillsboro', 'busterCopy received updated user profile because there is no username set in his cached user object');