1 package Webmin::Textbox;
4 @ISA = ( "Webmin::Input" );
6 =head2 new Webmin::Textbox(name, value, [size], [disabled])
7 Create a new text input field
11 if (defined(&Webmin::Theme::Textbox::new)) {
12 return new Webmin::Theme::Textbox(@_[1..$#_]);
14 my ($self, $name, $value, $size, $disabled) = @_;
15 $self = { 'size' => 30 };
17 $self->{'name'} = $name;
18 $self->{'value'} = $value;
19 $self->{'size'} = $size if ($size);
20 $self->set_disabled($disabled) if (defined($disabled));
25 Returns the HTML for this text input
30 return &ui_textbox($self->get_name(), $self->get_value(),
32 $self->{'$disabled'});
37 my ($self, $size) = @_;
38 $self->{'size'} = $size;
41 sub set_validation_func
43 my ($self, $func) = @_;
44 $self->{'validation_func'} = $func;
47 =head2 set_validation_regexp(regexp, message)
49 sub set_validation_regexp
51 my ($self, $regexp, $message) = @_;
52 $self->{'validation_regexp'} = $regexp;
53 $self->{'validation_message'} = $message;
57 Returns a list of error messages for this field
62 my $value = $self->get_value();
63 if ($self->{'mandatory'} && $value eq '') {
64 return ( $self->{'mandmesg'} || $text{'ui_mandatory'} );
66 if ($self->{'validation_func'}) {
67 my $err = &{$self->{'validation_func'}}($value, $self->{'name'},
69 return ( $err ) if ($err);
71 if ($self->{'validation_regexp'}) {
72 if ($value !~ /$self->{'validation_regexp'}/) {
73 return ( $self->{'validation_message'} );