Webmin/Submit.pm

   1 package Webmin::Submit;
   2 use Webmin::Input;
   3 use WebminCore;
   4 @ISA = ( "Webmin::Input" );
   5
   6 =head2 new Webmin::Submit(label, [name], [disabled])
   7 Create a form submit button
   8 =cut
   9 sub new
  10 {
  11 if (defined(&Webmin::Theme::Submit::new) &&
  12     caller() !~ /Webmin::Theme::Submit/) {
  13         return new Webmin::Theme::Submit(@_[1..$#_]);
  14         }
  15 my ($self, $value, $name, $disabled) = @_;
  16 $self = { };
  17 bless($self);
  18 $self->set_value($value);
  19 $self->set_name($name) if ($name);
  20 $self->set_disabled($disabled) if ($disabled);
  21 return $self;
  22 }
  23
  24 =head2 html()
  25 Returns the HTML for this form submit button
  26 =cut
  27 sub html
  28 {
  29 my ($self) = @_;
  30 return &ui_submit($self->get_value(), $self->get_name(),
  31                         $self->get_disabled());
  32 }
  33
  34 sub get_value
  35 {
  36 my ($self) = @_;
  37 return $self->{'value'};
  38 }
  39
  40 1;
  41