diff --git a/lib/WebGUI/Form/password.pm b/lib/WebGUI/Form/password.pm deleted file mode 100644 index 8d65aba8d..000000000 --- a/lib/WebGUI/Form/password.pm +++ /dev/null @@ -1,105 +0,0 @@ -package WebGUI::Form::password; - -=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::password - -=head1 DESCRIPTION - -Creates a password input box form field. - -=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 definition ( [ additionalTerms ] ) - -See the super class for additional details. - -=head3 additionalTerms - -The following additional parameters have been added via this sub class. - -=head4 maxlength - -Defaults to 35. Determines the maximum number of characters allowed in this field. - -=head4 size - -Defaults to 30. Specifies how big of a text box to display. - -=cut - -sub definition { - my $class = shift; - my $definition = shift || []; - push(@{$definition}, { - maxlength=>{ - defaultValue=>35 - }, - size=>{ - defaultValue=>30 - } - }); - return $class->SUPER::definition($definition); -} - - -#------------------------------------------------------------------- - -=head2 getName () - -Returns the human readable name or type of this form control. - -=cut - -sub getName { - return WebGUI::International::get("51","WebGUI"); -} - - - -#------------------------------------------------------------------- - -=head2 toHtml ( ) - -Renders an input tag of type password. - -=cut - -sub toHtml { - my $self = shift; - return '{extras}.' />'; -} - - -1; - diff --git a/lib/WebGUI/Form/phone.pm b/lib/WebGUI/Form/phone.pm deleted file mode 100644 index 3e0ff0238..000000000 --- a/lib/WebGUI/Form/phone.pm +++ /dev/null @@ -1,87 +0,0 @@ -package WebGUI::Form::phone; - -=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::text'; -use WebGUI::International; -use WebGUI::Session; -use WebGUI::Style; - -=head1 NAME - -Package WebGUI::Form::phone - -=head1 DESCRIPTION - -Creates a telephone number field. - -=head1 SEE ALSO - -This is a subclass of WebGUI::Form::text. - -=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("944","WebGUI"); -} - - -#------------------------------------------------------------------- - -=head2 getValueFromPost ( ) - -Returns a string filtered to allow only digits, spaces, and these special characters: + - ( ) or it will return undef it the number doesn't validate to those. - -=cut - -sub getValueFromPost { - my $self = shift; - my $value = $session{cgi}->param($self->{name}); - if ($value =~ /^[\d\s\-\+\(\)]+$/) { - return $value; - } - return undef; -} - -#------------------------------------------------------------------- - -=head2 toHtml ( ) - -Renders a phone number field. - -=cut - -sub toHtml { - my $self = shift; - WebGUI::Style::setScript($session{config}{extrasURL}.'/inputCheck.js',{ type=>'text/javascript' }); - $self->{extras} .= ' onkeyup="doInputCheck(this.form.'.$self->{name}.',\'0123456789-()+ \')" '; - return $self->SUPER::toHtml; -} - -1; - diff --git a/lib/WebGUI/Form/radio.pm b/lib/WebGUI/Form/radio.pm deleted file mode 100644 index 5d3385e8a..000000000 --- a/lib/WebGUI/Form/radio.pm +++ /dev/null @@ -1,111 +0,0 @@ -package WebGUI::Form::radio; - -=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::radio - -=head1 DESCRIPTION - -Creates a radio button form field. - -=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 definition ( [ additionalTerms ] ) - -See the super class for additional details. - -=head3 additionalTerms - -The following additional parameters have been added via this sub class. - -=head4 checked - -Defaults to "0". Set to "1" if this field should be checked. - -=cut - -sub definition { - my $class = shift; - my $definition = shift || []; - push(@{$definition}, { - checked=>{ - defaultValue=> 0 - } - }); - return $class->SUPER::definition($definition); -} - - -#------------------------------------------------------------------- - -=head2 generateIdParameter ( ) - -A class method that returns a value to be used as the autogenerated ID for this field instance. Returns undef because this field type can have more than one with the same name, therefore autogenerated ID's aren't terribly useful. - -=cut - -sub generateIdParameter { - return undef -} - -#------------------------------------------------------------------- - -=head2 getName () - -Returns the human readable name or type of this form control. - -=cut - -sub getName { - return WebGUI::International::get("radio","WebGUI"); -} - - -#------------------------------------------------------------------- - -=head2 toHtml ( ) - -Renders and input tag of type radio. - -=cut - -sub toHtml { - my $self = shift; - my $value = $self->fixMacros($self->fixQuotes($self->fixSpecialCharacters($self->{value}))); - my $checkedText = ' checked="checked"' if ($self->{checked}); - my $idText = ' id="'.$self->{id}.'" ' if ($self->{id}); - return '{extras}.' />'; -} - - -1; - diff --git a/lib/WebGUI/Form/radioList.pm b/lib/WebGUI/Form/radioList.pm deleted file mode 100644 index 53ff72a3f..000000000 --- a/lib/WebGUI/Form/radioList.pm +++ /dev/null @@ -1,122 +0,0 @@ -package WebGUI::Form::radioList; - -=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::Form::radio; -use WebGUI::International; -use WebGUI::Session; - -=head1 NAME - -Package WebGUI::Form::radioList - -=head1 DESCRIPTION - -Creates a series of radio button form fields. - -=head1 SEE ALSO - -This is a subclass of WebGUI::Form::Control. Also take a look ath WebGUI::Form::checkbox as this class creates a list of checkboxes. - -=head1 METHODS - -The following methods are specifically available from this class. Check the superclass for additional methods. - -=cut - -#------------------------------------------------------------------- - -=head2 definition ( [ additionalTerms ] ) - -See the super class for additional details. - -=head3 additionalTerms - -The following additional parameters have been added via this sub class. - -=head4 options - -A hash reference containing key values that will be returned with the form post and displayable text pairs. Defaults to an empty hash reference. - -=head4 vertical - -Boolean representing whether the checklist should be represented vertically or horizontally. If set to "1" will be displayed vertically. Defaults to "0". - -=cut - -sub definition { - my $class = shift; - my $definition = shift || []; - push(@{$definition}, { - options=>{ - defaultValue=>{} - }, - vertical=>{ - defaultValue=>0 - } - }); - return $class->SUPER::definition($definition); -} - - -#------------------------------------------------------------------- - -=head2 getName () - -Returns the human readable name or type of this form control. - -=cut - -sub getName { - return WebGUI::International::get("942","WebGUI"); -} - - -#------------------------------------------------------------------- - -=head2 toHtml ( ) - -Renders a series of radio buttons. - -=cut - -sub toHtml { - my $self = shift; - my $output; - foreach my $key (keys %{$self->{options}}) { - my $checked = 0; - if ($self->{value} eq $key) { - $checked = 1; - } - $output .= WebGUI::Form::radio->new({ - name=>$self->{name}, - value=>$key, - extras=>$self->{extras}, - checked=>$checked - })->toHtml; - $output .= ${$self->{options}}{$key}; - if ($self->{vertical}) { - $output .= "
\n"; - } else { - $output .= "    \n"; - } - } - return $output; -} - -1; - diff --git a/lib/WebGUI/Form/readOnly.pm b/lib/WebGUI/Form/readOnly.pm deleted file mode 100644 index 267775898..000000000 --- a/lib/WebGUI/Form/readOnly.pm +++ /dev/null @@ -1,95 +0,0 @@ -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; - diff --git a/lib/WebGUI/Form/submit.pm b/lib/WebGUI/Form/submit.pm deleted file mode 100644 index 3de102155..000000000 --- a/lib/WebGUI/Form/submit.pm +++ /dev/null @@ -1,69 +0,0 @@ -package WebGUI::Form::submit; - -=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::button'; -use WebGUI::International; -use WebGUI::Session; - -=head1 NAME - -Package WebGUI::Form::submit - -=head1 DESCRIPTION - -Creates a submit form button. - -=head1 SEE ALSO - -This is a subclass of WebGUI::Form::button. - -=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("submit","WebGUI"); -} - - -#------------------------------------------------------------------- - -=head2 toHtml ( ) - -Renders a button. - -=cut - -sub toHtml { - my $self = shift; - my $value = $self->fixQuotes($self->{value}); - $self->{extras} ||= 'onclick="this.value=\''.WebGUI::International::get(452).'\'"'; - return '{extras}.' />'; -} - -1; -