From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

CAMELCASE / HTML-TurboForm-0.630 / lib / HTML / TurboForm / Element / Radio.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
—
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146

              
package HTML::TurboForm::Element::Radio;
use warnings;
use strict;
use Tie::IxHash;
use base qw(HTML::TurboForm::Element);
__PACKAGE__->mk_accessors( qw/ class special listmode pre post position labelclass/);
sub render{
    my ($self, $options, $view)=@_;
    if ($view) { $self->{view}=$view; }
    my $request=$self->request;
    my $result='';
    my $disabled='';
    my $class='form_radio';
    if ($self->label) {
       $self->label(' ') if ($self->label eq '');
        } else {
                $self->label(' ');
        }
         
    $class=$self->{class}  if exists($self->{class});
    $class=' class="'.$class.'" ';
    my $aha=$self->options;
    my $name=' name="'.$self->name.'" ';
    my $checked='';
    if ($options->{frozen}){ $disabled=' disabled ' if ($options->{frozen} == 1) ; }
    my $pre='';
    my $post='';
    my $after='';
   if ( $self->listmode ){
        $result.='<ul>';
        $pre='<li>';
        $post='</li>';
        $after='</ul>';
    }
   $pre.=$self->pre if ($self->pre);
   $post.=$self->post if ($self->post);
   my $norm_hash=1;
   if ($self->options){
       foreach (%{$self->options}){
           $norm_hash=2 if (ref($_) eq 'HASH');
       }
    
    if ($norm_hash==2){
       for my $k2 ( sort{ $a <=> $b} keys %{$self->options} ) {
            while ( my( $key,$value) = each %{$self->options->{$k2}}){
         my $values = $request->{ $self->name };
         if (! $values){
            $values = $self->default;
         }
         $values = [ $values ] unless ref( $values ) =~ /ARRAY/;
         $checked='';
         if ([ $values ]) { $checked=' checked ' if ( grep { $_ eq $value } @{ $values } ); }
         my $special='';
         #$special='<input type="text" '.$name.'>' if ($self->special==$k2);
         $result.=$pre.'<input type="radio" '.$class.$checked.$disabled.$name.' value="'.$value.'">'.$key.$special.$post;
         $result.='<input type="hidden" '.$name.' value="'.$value.'">' if (($disabled ne '')&& ( $checked ne ''));
     }
       }
    } else {    
        while ( my( $key,$value) = each %{$self->options}){
    #        if (ref($value) eq 'HASH'){ print "wkfndfkhvbkh";}       
            my $values = $request->{ $self->name };
            if (! $values){
               $values = $self->default;
            }
     
            $values = [ $values ] unless ref( $values ) =~ /ARRAY/;
            $checked='';
            if ([ $values ]) { $checked=' checked ' if ( grep { $_ eq $value } @{ $values } ); }
            $result.=$pre.'<input type="radio" '.$class.$checked.$disabled.$name.' value="'.$value.'">'.$key.$post;        
            $result.='<input type="hidden" '.$name.' value="'.$value.'">' if (($disabled ne '')&& ( $checked ne ''));        
        }
    }
     
   }
    if ($self->optionsnum){      
            foreach (@{$self->optionsnum}){
            while( my ($key, $value) = each %$_ ) {
                      my $values = $request->{ $self->name };
            if (! $values){
               $values = $self->default;
            }
            if($self->labelclass){
                $key='<div class="'.$self->labelclass.'">'.$key.'</div>';
            }
             
            my $keyr=$key;            
            my $keyl='';
            if ($self->position){
                if ($self->position eq 'left') {                    
                    $keyl=$key;
                    $keyr='';
                }
            }   
     
            $values = [ $values ] unless ref( $values ) =~ /ARRAY/;
            $checked='';
             
            if ([ $values ]) { $checked=' checked ' if ( grep { $_ eq $value if ($_) } @{ $values } ); }
             
            $result.=$pre.$keyl.'<input type="radio" '.$class.$checked.$disabled.$name.' value="'.$value.'">'.$keyr.$post;        
            $result.='<input type="hidden" '.$name.' value="'.$value.'">' if (($disabled ne '')&& ( $checked ne ''));   
            }
        }
    }
   $result.=$after;
   $result= $self->vor($options).$result.$self->nach if ($self->check_param('norow')==0);
  return $result;
}
1;
__END__
=head1 HTML::TurboForm::Element::Radio
Representation class for HTML Radiobox element.
=head1 DESCRIPTION
Straight forward so no need for much documentation.
See HTML::TurboForm doku for mopre details.
=head1 METHODS
=head2 render
Arguments: $options
returns HTML Code for Radiobox.
=head1 AUTHOR
Thorsten Domsch, tdomsch@gmx.de
=cut