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
sub definition {
my $class = shift;
my $session = shift;
my $definition = shift || [];
push(@{$definition}, {
size=>{
defaultValue=>$session->setting->get("textBoxSize") || 30
},
});
my $class = shift;
my $session = shift;
my $definition = shift || [];
push(@{$definition}, {
size=>{
defaultValue=>$session->setting->get("textBoxSize") || 30
},
});
return $class->SUPER::definition($session, $definition);
}
@ -87,7 +87,7 @@ Does some special processing.
=cut
sub getValue {
my $self = shift;
my $self = shift;
my $value = $self->SUPER::getValue(@_);
# ... do your work here
@ -104,8 +104,8 @@ Renders an input tag of type text.
=cut
sub toHtml {
my $self = shift;
my $value = $self->fixMacros($self->fixQuotes($self->fixSpecialCharacters($self->getDefaultValue)));
my $self = shift;
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").' />';
}