4 @ISA = ( "Webmin::Textbox" );
6 =head2 new Webmin::Group(name, value, [multiple], [disabled])
7 A text box for entering or selecting one or many Unix groupnames
11 if (defined(&Webmin::Theme::Group::new)) {
12 return new Webmin::Theme::Group(@_[1..$#_]);
14 my ($self, $name, $value, $multiple, $disabled) = @_;
15 $self = new Webmin::Textbox($name, $value, $multiple ? 40 : 15, $disabled);
17 $self->set_multiple($multiple);
22 Returns the HTML for this group input
27 my $rv = Webmin::Textbox::html($self);
28 my $name = $self->get_name();
29 my $multiple = $self->get_multiple();
30 local $w = $multiple ? 500 : 300;
31 $rv .= " <input type=button name=${name}_button onClick='ifield = form.$name; chooser = window.open(\"$gconfig{'webprefix'}/group_chooser.cgi?multi=$multiple&group=\"+escape(ifield.value), \"chooser\", \"toolbar=no,menubar=no,scrollbars=yes,width=$w,height=200\"); chooser.ifield = ifield; window.ifield = ifield' value=\"...\">\n";
37 my ($self, $multiple) = @_;
38 $self->{'multiple'} = $multiple;
44 return $self->{'multiple'};
47 =head2 get_input_names()
48 Returns the actual names of all HTML elements that make up this input
53 return ( $self->{'name'}, $self->{'name'}."_button" );