%#
<% Dumper($photos) %>
\ % for ( 1 .. ($max || $photos->{maxnumber})) { % my $img = $photos->{"image_$_"}; % 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 %>\ % } % }
<%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 $photos = $doc->get_image ('pictures'); return unless ref $photos && $photos->{maxnumber};