webgui/lib/WebGUI/Form/readOnly.pm
2005-07-28 15:17:48 +00:00

95 lines
1.7 KiB
Perl

package WebGUI::Form::readOnly;
=head1 LEGAL
-------------------------------------------------------------------
WebGUI is Copyright 2001-2005 Plain Black Corporation.
-------------------------------------------------------------------
Please read the legal notices (docs/legal.txt) and the license
(docs/license.txt) that came with this distribution before using
this software.
-------------------------------------------------------------------
http://www.plainblack.com info@plainblack.com
-------------------------------------------------------------------
=cut
use strict;
use base 'WebGUI::Form::Control';
use WebGUI::International;
use WebGUI::Session;
=head1 NAME
Package WebGUI::Form::readOnly
=head1 DESCRIPTION
Prints out the value directly with no form control.
=head1 SEE ALSO
This is a subclass of WebGUI::Form::Control.
=head1 METHODS
The following methods are specifically available from this class. Check the superclass for additional methods.
=cut
#-------------------------------------------------------------------
=head2 getName ()
Returns the human readable name or type of this form control.
=cut
sub getName {
return WebGUI::International::get("read only","WebGUI");
}
#-------------------------------------------------------------------
=head2 getValueFromPost ( )
Returns undef.
=cut
sub getValueFromPost {
return undef;
}
#-------------------------------------------------------------------
=head2 toHtml ( )
Renders the value.
=cut
sub toHtml {
my $self = shift;
return $self->{value};
}
#-------------------------------------------------------------------
=head2 toHtmlAsHidden ( )
Outputs nothing.
=cut
sub toHtmlAsHidden {
return undef;
}
1;