\
% 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;
\
% }
% }
<%args>
$doc => undef
$show => 'all'
$max => undef
$visual => 7
%args>
<%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};
%init>