Webmin/JavascriptButton.pm

   1 package Webmin::JavascriptButton;
   2 use Webmin::Input;
   3 use WebminCore;
   4 @ISA = ( "Webmin::Input" );
   5
   6 =head2 new Webmin::JavascriptButton(label, script, [disabled])
   7 Create a button that runs some Javascript when clicked
   8 =cut
   9 sub new
  10 {
  11 if (defined(&Webmin::Theme::JavascriptButton::new) &&
  12     caller() !~ /Webmin::Theme::JavascriptButton/) {
  13         return new Webmin::Theme::JavascriptButton(@_[1..$#_]);
  14         }
  15 my ($self, $value, $script, $disabled) = @_;
  16 $self = { };
  17 bless($self);
  18 $self->set_value($value);
  19 $self->set_script($script);
  20 $self->set_disabled($disabled) if ($disabled);
  21 return $self;
  22 }
  23
  24 =head2 html()
  25 Returns the HTML for this text input
  26 =cut
  27 sub html
  28 {
  29 my ($self) = @_;
  30 return "<input type=button value=\"".&quote_escape($self->get_value())."\" ".
  31        "onClick=\"".$self->get_script()."\">";
  32 }
  33
  34 sub set_script
  35 {
  36 my ($self, $script) = @_;
  37 $self->{'script'} = $script;
  38 }
  39
  40 sub get_script
  41 {
  42 my ($self) = @_;
  43 return $self->{'script'};
  44 }
  45
  46 1;
  47