'.$self->get("label") . $hoverHelp . '
| '.$self->displayForm().$subtext." |
\n";
} else {
return $self->toHtmlAsHidden;
}
}
#-------------------------------------------------------------------
=head2 displayValue ( )
This utility method is used to format values for the Profile system. Most
form elements will just return their value.
=cut
sub displayValue {
my ($self) = @_;
return $self->get("value");
}
#-------------------------------------------------------------------
=head2 generateIdParameter ( name )
A class method that returns a value to be used as the autogenerated ID for this field instance. Unless overriden, it simply returns the name with "_formId" appended to it.
=head3 name
The name of the field.
=cut
sub generateIdParameter {
my $class = shift;
my $name = shift;
return $name."_formId";
}
#-------------------------------------------------------------------
=head2 get ( var )
Returns a property of this form object.
=head3 var
The variable name of the value to return.
=cut
sub get {
my $self = shift;
my $var = shift;
return $self->{_params}{$var};
}
#-------------------------------------------------------------------
=head2 getName ( )
Returns a human readable name for this form control type. You MUST override this method with your own when creating new form controls.
=cut
sub getName {
my $self = shift;
my $session = shift;
my $definition = $self->definition($session);
return $definition->[0]->{formName}->{defaultValue};
}
#-------------------------------------------------------------------
=head2 fixMacros ( string )
Returns the string having converted all macros in the string to HTML entities so that they won't be processed by the macro engine, but instead will be displayed.
=head3 string
The string to search for macros in.
=cut
sub fixMacros {
my $self = shift;
my $value = shift;
$value =~ s/\^/\&\#94\;/g;
return $value;
}
#-------------------------------------------------------------------
=head2 fixQuotes ( string )
Returns the string having replaced quotes with HTML entities. This is important so not to screw up HTML attributes which use quotes as delimiters.
=head3 string
The string to search for quotes in.
=cut
sub fixQuotes {
my $self = shift;
my $value = shift;
$value =~ s/\"/\"\;/g;
return $value;
}
#-------------------------------------------------------------------
=head2 fixSpecialCharacters ( string )
Returns a string having converted any characters that have special meaning in HTML to HTML entities. Currently the only character is ampersand.
=head3 string
The string to search for special characters in.
=cut
sub fixSpecialCharacters {
my $self = shift;
my $value = shift;
$value =~ s/\&/\&\;/g;
return $value;
}
#-------------------------------------------------------------------
=head2 fixTags ( string )
Returns a string having converted HTML tags into HTML entities. This is useful when you have HTML that you need to render inside of a