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

CAMELCASE / HTML-TurboForm-0.30 / lib / HTML / TurboForm / Element / Imagegalerie.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

              
package HTML::TurboForm::Element::Imagegalerie;
use warnings;
use strict;
use base qw(HTML::TurboForm::Element);
__PACKAGE__->mk_accessors( qw/ del_link all_link max dir noimgs / );
sub render{
    my ($self, $options, $view)=@_;
    if ($view) { $self->{view}=$view; }
    my $result='';
    my $disabled='';
    my $class='form_imagegalerie';
    my $request=$self->request;
    $self->label(' ') if ($self->label eq '');
    $class=$self->{class}  if exists($self->{class});
    my $aha=$self->options;
    my $name=$self->name;
    my $nr_obj = scalar(@{ $self->{options} });
    $disabled=' disabled ' if ($options->{frozen} == 1);
    my $dir='';
        $dir = $self->dir if ($self->dir);
        $result.='<div class="'.$class.'" id="'.$name.'">'."\n";
        $result.='<table class="galerielist"><tr>';
    foreach (@{$self->{options}}){
        my $col_fn = $self->dbid;
        my $col_label = $self->dblabel;
        my $fn = $_->$col_fn;
        if (!$self->noimgs){
                if ($self->all_link){
                        my $label = '';
                        $label = '<br /><span class="galerielabel">'.$_->$col_label.'</span>' if($self->dblabel);
                $result.='<td><input class="del_btn" type="submit" name="'.$self->name.'_delete_'.$fn.'" value="Delete" />
                <input class="del_btn" type="submit" name="'.$self->name.'_prev_'.$fn.'" value="<-" />
                <input class="del_btn" type="submit" name="'.$self->name.'_next_'.$fn.'" value="->" /><br />
                <img src="'.$dir.$fn.'" class="galerie_image" border="0"/>
                '.$label.'
                </td>'."\n";
            }else{
                $result.='<td><img src="'.$dir.$fn.'" border="0"/></td>'."\n";
            }
        }
        if ($self->noimgs){ $result.='<td>'.$fn.'</td>'."\n";}
    }
        $result.='</tr></table>';
  $result='' if ($nr_obj ==0);
  $result= $self->vor($options).$result.$self->nach if ($self->check_param('norow')==0);
  return $result;
}
sub init{
    my ($self)=@_;
    my $name=$self->name;
}
sub get_dbix{
    my ($self)=@_;
    return 0;
}
1;
__END__
=head1 HTML::TurboForm::Element::Imageslider
Representation class for Imageslider 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 checkbox element.
=head1 AUTHOR
Thorsten Domsch, tdomsch@gmx.de
=cut