- Added Guid form control.

- Moved Asset ID and Class Name fields to the Meta tab of all assets.
 - Made Classname from control a subclass of ReadOnly.
This commit is contained in:
JT Smith 2008-10-16 19:02:13 +00:00
parent 2b8a3c279d
commit 84d7c20fed
5 changed files with 119 additions and 57 deletions

View file

@ -52,18 +52,6 @@ sub getName {
#-------------------------------------------------------------------
=head2 getValue ( )
Returns undef.
=cut
sub getValue {
return undef;
}
#-------------------------------------------------------------------
=head2 isDynamicCompatible ( )
A class method that returns a boolean indicating whether this control is compatible with the DynamicField control.
@ -71,31 +59,39 @@ A class method that returns a boolean indicating whether this control is compati
=cut
sub isDynamicCompatible {
return 1;
return 0;
}
#-------------------------------------------------------------------
=head2 toHtml ( )
Renders the value.
Renders the value and a hidden input type if a "name" attribute was specified.
=cut
sub toHtml {
my $self = shift;
return $self->getOriginalValue;
my $out = $self->getOriginalValue;
if ($self->get('name') ne '') {
$out .= $self->toHtmlAsHidden;
}
return $out;
}
#-------------------------------------------------------------------
=head2 toHtmlAsHidden ( )
Outputs nothing.
Outputs nothing unless a "name" attribute was specified.
=cut
sub toHtmlAsHidden {
my $self = shift;
if ($self->get('name') ne '') {
return $self->SUPER::toHtmlAsHidden;
}
return undef;
}