CAMELCASE / HTML-TurboForm-0.627 / lib / HTML / TurboForm / Element / Select.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

              
package HTML::TurboForm::Element::Select;
use warnings;
use strict;
use base qw(HTML::TurboForm::Element);
__PACKAGE__->mk_accessors( qw/ default first / );
sub render{
    my ($self, $options, $view)=@_;
    if ($view) { $self->{view}=$view; }
    my $request=$self->request;
    my $result='';
    my $disabled='';
    my $class='form_select';
    $self->label(' ') if (!$self->label);
    $class=$self->{class}  if exists($self->{class});
    my $name=' name="'.$self->name.'" ';
    my $id=' id="'.$self->name.'" ';
    my $checked='';
    $self->{submitted} = 1 if ($request->{ $self->name });
    if ($self->{submitted} == 0){
        $request->{ $self->name } = $self->default if($self->default);
    }
    if ($options->{frozen}){
        $disabled=' disabled ' if ($options->{frozen} == 1);
    }
    if ($self->dbdata and $self->dbid and $self->dblabel){
       my @t = @{ $self->dbdata };
       foreach (@t){
            my $label_method = $self->dblabel;
            my $value_method = $self->dbid;
            my $l=$_->$label_method;
            my $v=$_->$value_method;
            $self->options->{$l}=$v;
       }
    }
    $result.='<select class="'.$class.'" '.$self->get_attr().$disabled.$id.$name.'>';
    my $result2='';
    if (($self->options)or ($self->optionsnum)){
        my $optiontags ='';
        my $first = '';
             
        if ($self->optionsnum){          
            foreach (@{$self->optionsnum}){
                while( my ($key, $value) = each %$_ ) {
                    my $values = $request->{ $self->name };
                    $values = [ $values ] unless ref( $values ) =~ /ARRAY/;
                    $checked='';
                    if ( @{ $values } && $value) {                              
                            if ( grep { $_ eq $value if ($_) } @{ $values } ){ $checked=' selected '; }                         
                    }
                 
                    if ($self->first) {
                                if ($value ne $self->first){
                                        $optiontags.='<option '.$checked.' value="'.$value.'">'.$key.'</option>';
                                } else {
                                        $first =  '<option '.$checked.' value="'.$value.'">'.$key.'</option>';
                                }
                        } else  {
                $optiontags.='<option '.$checked.' value="'.$value.'">'.$key.'</option>';
                        }                       
                    $result2.='<input type="hidden" '.$id.$name.' value="'.$value.'">' if (($disabled ne '')&& ( $checked ne ''));
                }
            }
        }
        if ($self->options){
            foreach my $key(sort keys %{$self->options}){
                my $value = $self->options->{$key};
                $value="" if (!$value);
                my $values = $request->{ $self->name };
                $values = [ $values ] unless ref( $values ) =~ /ARRAY/;
                $checked='';
                if (@{ $values } && $value) {
                    foreach (@{$values}){
                        #if ( grep { $_ eq $value } @{ $values } ){
                        if ($_){ $checked=' selected ' if $_ eq $value; }
                    }
                }
                $self->first('') if (!$self->first);
                if ($value ne $self->first){
                    $optiontags.='<option '.$checked.' value="'.$value.'">'.$key.'</option>';
                } else {
                    $first =  '<option '.$checked.' value="'.$value.'">'.$key.'</option>';
                }
                $result2.='<input type="hidden" '.$id.$name.' value="'.$value.'">' if (($disabled ne '')&& ( $checked ne ''));
            }
        }
         
        $result .= $first.$optiontags;
    }
    $result.='</select>';
  return $self->vor($options).$result.$result2.$self->nach if ($self->{pure});
  return $self->vor($options).$result.$result2.$self->nach;
}
sub get_value{
    my ($self) = @_;
    my $result='';
    $result=$self->{request}->{$self->name} if exists($self->{request}->{$self->name});
    $result='' if ($result eq '-1');
    return $result;
}
1;
__END__
=head1 HTML::TurboForm::Element::Select
Representation class for HTMl SelectBox 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 select element.
=head1 AUTHOR
Thorsten Domsch, tdomsch@gmx.de
=cut