Line # Revision Author
1 296 ahitrov % #<pre><% Dumper($max) %></pre>
2 <div class="photo">\
3 % foreach my $photos (@$photo) {
4 % my $img = $photos->get_image ('picture');
5 % my $mini = $img->{mini}->{'100x100'};
6 % if ( exists $mini->{filename} && $mini->{filename} ) {
7 % my $display = $show eq 'all' ? 'inline' : $_ > $visual ? 'none' : 'inline';
8 % my $alt = $img->{alt};
9 % $alt =~ s/<[^>]+>//g;
10 <span id="photo_<% $doc->id %>_<% $_ %>" style="display:<% $display %>; padding:0px 10px;"><a
11 href="video.html?id=<% $photos->id %>"><img hspace="<% int((100 - $mini->{width})/2) %>" vspace="<% int((100 - $mini->{height})/2) %>" src="<% $mini->{filename} %>" width="<% $mini->{width} %>" height="<% $mini->{height} %>" border="0" title="<% $alt |h %>" alt="<% $alt |h %>" align="absmiddle"
12 ></a></span>\
13 % last if $i == $visual;
14 % $i++;
15 % }
16 % }
17 </div>
18 <%args>
19
20 $doc => undef
21 $show => 'all'
22 $max => undef
23 $visual => 7
24
25 </%args>
26 <%init>
27
28 return unless ref $doc;
29 my $prj = $request->{project};
30 my $profile = $request->{project_profile};
31 my $root = $request->{project_section};
32 my $photo = $keeper->get_documents (
33 s => $doc->id,
34 class => 'promosuite::Promoblock',
35 status => 1,
36 order => ['date', 'direct'],
37 return_mode => 'array_ref',
38 );
39 my $i = 0;
40
41 </%init>