<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">package WebminUI::Button;
use WebminUI::Input;
use WebminCore;
@ISA = ( "WebminUI::Input" );

=head2 new WebminUI::Button(cgi, label, [name])
Creates a button that when clicked will link to some other page
=cut
sub new
{
if (defined(&amp;WebminUI::Theme::Button::new) &amp;&amp;
    caller() !~ /WebminUI::Theme::Button/) {
        return new WebminUI::Theme::Button(@_[1..$#_]);
        }
my ($self, $cgi, $value, $name) = @_;
$self = { };
bless($self);
$self-&gt;set_cgi($cgi);
$self-&gt;set_value($value);
$self-&gt;set_name($name) if ($name);
return $self;
}

=head2 html()
Returns HTML for this button
=cut
sub html
{
my ($self) = @_;
my $rv = "&lt;form action=".$self-&gt;get_cgi()."&gt;";
foreach my $h (@{$self-&gt;{'hiddens'}}) {
	$rv .= &amp;ui_hidden($h-&gt;[0], $h-&gt;[1])."\n";
	}
$rv .= &amp;ui_submit($self-&gt;get_value(), $self-&gt;get_name(),
			$self-&gt;get_disabled())."&lt;/form&gt;";
return $rv;
}

sub set_cgi
{
my ($self, $cgi) = @_;
$self-&gt;{'cgi'} = $cgi;
}

sub get_cgi
{
my ($self) = @_;
return $self-&gt;{'cgi'};
}

=head2 add_hidden(name, value)
Adds some hidden input to this button, for passing to the CGI
=cut
sub add_hidden
{
my ($self, $name, $value) = @_;
push(@{$self-&gt;{'hiddens'}}, [ $name, $value ]);
}

1;

</pre></body></html>