Dave Cross: Still Munging Data With Perl: Online event - Mar 17 Learn more

CAMELCASE / HTML-TurboForm-0.19 / lib / HTML / TurboForm / Element / Slider.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

              
package HTML::TurboForm::Element::Slider;
use warnings;
use strict;
use base qw(HTML::TurboForm::Element);
__PACKAGE__->mk_accessors( qw/ min max steps start modules zerovalue / );
sub init{
    my ($self)=@_;
    my $min = 0;
    my $max = 100;
    my $step = 10;
    my $start = $self->start;
    $min=$self->min;
    $min-- if($self->zerovalue);
    $step=$self->steps;
    $max=$self->max;
    my $js_min='';
    $js_min ='if (ui.value == '.$min.') label="'.$self->zerovalue.'";' if($self->zerovalue);
    @{$self->{modules}} = ('jquery/jquery','jquery/ui.core.min','jquery/ui.slider.min');
    $self->{js} = '
        $("#'.$self->name.'_slider").slider({
                "steps": '.$step.',
                        "min": '.$min.',
                        "max": '.$max.',
                        "startValue": '.$start.',
                        "slide": function(e, ui){
                            var label = ui.value;
                            '.$js_min.'
                                $("#'.$self->name.'").val(ui.value);
                $("#'.$self->name.'_label").html(label);
                        }
                });  ';
    $self->{value}=$self->request->{ $self->name };
    if ($self->{value}){
        $self->{js} .=  '$("#'.$self->name.'_slider").slider("moveTo",'.$self->{value}.');';
    }
}
sub get_dbix{
    my ($self)=@_;
    my $dbname=$self->name if ($self->name);
    $dbname   =$self->dbsearchfield if ($self->dbsearchfield);
    my $val = $self->get_value();
    if($val ne '') {
        if ($val < $self->min) {
            return 0;
        } else {
            return { $dbname => $val };
        }
    } else {
        return 0;
    }
}
sub get_value{
    my ($self)=@_;
    return 0 if (($self->zerovalue) && ( $self->{value} == ($self->{min}-1)));
    return $self->{value};
}
sub freeze{
    my ($self)=@_;
    $self->{js} .=  '$("#'.$self->name.'_slider").slider("disable");';
}
sub render {
  my ($self, $options, $view)=@_;
  if ($view) { $self->{view}=$view; }
  my $request=$self->request;
  my $result='';
  my $disabled='';
  my $class='form_text';
  $class = $self->class if ($self->class);
  my $name=$self->name;
  my $minlabel = $self->min;
  my $maxlabel = $self->max;
  $minlabel = $self->zerovalue if ($self->zerovalue);
  $result='
             <div class="slider_label">
             <span class="slider_pos_label" id="'.$name.'_label">'.$minlabel.'</span>
             </div>
             <div id="'.$name.'_slider" class="ui-slider-1">
                <div class="ui-slider-handle">&nbsp;</div>
            </div>
            <input class="slider_v" type="hidden" name="'.$name.'" id="'.$name.'" value="">';
  return $self->vor($options).$result.$self->nach;
}
1;
__END__
=head1 HTML::TurboForm::Element::Slider
Representation class for HTML SLider input element. This Element uses the jquery Javascript library !
=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 element.
=head1 AUTHOR
Thorsten Domsch, tdomsch@gmx.de
=cut