oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

remove evil dastardly hard tabs, replace with spaces

Browse source
This commit is contained in:
Chris Nehren 2008-04-22 18:18:21 +00:00
parent 01b7881847
commit 837fde209c
1 changed files with 11 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lib/WebGUI/Form/_control.skeleton
View file

@ -53,14 +53,14 @@ Defaults to the setting textBoxSize or 30 if that's not set. Specifies how big o
=cut =cut
sub definition { sub definition {
my $class = shift; my $class = shift;
my $session = shift; my $session = shift;
my $definition = shift || []; my $definition = shift || [];
push(@{$definition}, { push(@{$definition}, {
size=>{ size=>{
defaultValue=>$session->setting->get("textBoxSize") || 30 defaultValue=>$session->setting->get("textBoxSize") || 30
}, },
}); });
return $class->SUPER::definition($session, $definition); return $class->SUPER::definition($session, $definition);
} }
@ -87,7 +87,7 @@ Does some special processing.
=cut =cut
sub getValue { sub getValue {
my $self = shift; my $self = shift;
my $value = $self->SUPER::getValue(@_); my $value = $self->SUPER::getValue(@_);
# ... do your work here # ... do your work here
@ -104,8 +104,8 @@ Renders an input tag of type text.
=cut =cut
sub toHtml { sub toHtml {
my $self = shift; my $self = shift;
my $value = $self->fixMacros($self->fixQuotes($self->fixSpecialCharacters($self->getDefaultValue))); my $value = $self->fixMacros($self->fixQuotes($self->fixSpecialCharacters($self->getDefaultValue)));
return '<input id="'.$self->get('id').'" type="text" name="'.$self->get("name").'" value="'.$value.'" size="'.$self->get("size").'" '.$self->get("extras").' />'; return '<input id="'.$self->get('id').'" type="text" name="'.$self->get("name").'" value="'.$value.'" size="'.$self->get("size").'" '.$self->get("extras").' />';
} }