Webmin/Multiline.pm

   1 package Webmin::Multiline;
   2 use Webmin::Textarea;
   3 use WebminCore;
   4 @ISA = ( "Webmin::Textarea" );
   5
   6 =head2 new Webmin::Multiline(name, &lines, rows, cols, [disabled])
   7 Create a new input for entering multiple text entries. By default, just uses
   8 a textbox
   9 =cut
  10 sub new
  11 {
  12 if (defined(&Webmin::Theme::Multiline::new)) {
  13         return new Webmin::Theme::Multiline(@_[1..$#_]);
  14         }
  15 my ($self, $name, $lines, $rows, $cols, $wrap, $disabled) = @_;
  16 $self = new Webmin::Textarea($name, join("\n", @$lines), $rows, $cols, undef, $disabled);
  17 bless($self);
  18 return $self;
  19 }
  20
  21 =head2 set_lines(&lines)
  22 Sets the lines to display
  23 =cut
  24 sub set_lines
  25 {
  26 my ($self, $lines) = @_;
  27 $self->set_value(join("\n", @$lines));
  28 }
  29
  30 =head2 get_lines()
  31 Returns an array ref of lines to display
  32 =cut
  33 sub get_lines
  34 {
  35 my ($self) = @_;
  36 return [ split(/[\r|\n]+/, $self->get_value()) ];
  37 }
  38
  39 1;
  40