% #
<% Dumper($max) %>
\ % foreach my $photos (@$photo) { % my $img = $photos->get_image ('picture'); % my $mini = $img->{mini}->{'100x100'}; % if ( exists $mini->{filename} && $mini->{filename} ) { % my $display = $show eq 'all' ? 'inline' : $_ > $visual ? 'none' : 'inline'; % my $alt = $img->{alt}; % $alt =~ s/<[^>]+>//g; <% $alt |h %>\ % last if $i == $visual; % $i++; % } % }
<%args> $doc => undef $show => 'all' $max => undef $visual => 7 <%init> return unless ref $doc; my $prj = $request->{project}; my $profile = $request->{project_profile}; my $root = $request->{project_section}; my $photo = $keeper->get_documents ( s => $doc->id, class => 'promosuite::Promoblock', status => 1, order => ['date', 'direct'], return_mode => 'array_ref', ); my $i = 0;