view release on metacpan or  search on metacpan

lib/App/Widget/RadioButtonSet.pm  view on Meta::CPAN

######################################################################
## $Id: RadioButtonSet.pm 12457 2009-01-20 13:55:26Z spadkins $
######################################################################

package App::Widget::RadioButtonSet;
$VERSION = (q$Revision: 12457 $ =~ /(\d[\d\.]*)/)[0];  # VERSION numbers generated by svn

use App::Widget;
@ISA = ( "App::Widget" );

use strict;

=head1 NAME

App::Widget::RadioButtonSet - Set of HTML radio buttons

=head1 SYNOPSIS

   use App::Widget::RadioButtonSet;

   $name = "gobutton";
   $config = { };
   $state = CGI->new({});
   $w = App::Widget::RadioButtonSet->new($config,$state,"gobutton", $config, $state);

=cut

######################################################################
# CONSTANTS
######################################################################

######################################################################
# ATTRIBUTES
######################################################################

# INPUTS FROM THE ENVIRONMENT

=head1 DESCRIPTION

This class is a <select> HTML element.

=cut

######################################################################
# CONSTRUCTOR
######################################################################

# uncomment this when I need to do more than just call SUPER::_init()
#sub _init {
#   my $self = shift;
#   $self->SUPER::_init(@_);
#}

######################################################################
# METHODS
######################################################################

######################################################################
# OUTPUT METHODS
######################################################################

sub html {
    my $self = shift;
    my ($context, $name, $curr_value, $values, $labels, $html_attribs);
    my ($nullable, $tabindex);
    my ($value, $v, @html, $label);

    $context  = $self->{context};
    $name     = $self->{name};

    $nullable = $self->get("nullable");
    $tabindex = $self->get("tabindex");

    ($values, $labels) = $self->values_labels();

    $html_attribs = $self->html_attribs();

    $tabindex = (defined $tabindex && $tabindex ne "") ? " tabindex=\"$tabindex\"" : "";

    @html = ();
    $curr_value = $self->get_value();
    for ($v = 0; $v <= $#$values; $v++) {
        $value = $values->[$v];
        $label = $self->html_escape($labels->{$value});
        push(@html,"  <input type=\"radio\" name=\"$name\" value=\"$value\"$tabindex".
            (($html_attribs) ? " $html_attribs" : "") .
            (($value eq $curr_value) ? " checked />" : " />") .
            $label .
            "<br>");
    }
    return join("",@html);
}

1;