% if ( exists($IMAGE->{width}) && exists($IMAGE->{height}) && exists($IMAGE->{filename}) ) % { % my $max_show_width = 200; % my $show_w = ( $IMAGE->{width} > $max_show_width ? $max_show_width : $IMAGE->{width} ); % my $show_h = ( $IMAGE->{width} > $max_show_width ? ($max_show_width*$IMAGE->{height}/$IMAGE->{width}) : $IMAGE->{height} ); % my $img_path = $state->{images_dir}.'/'.$IMAGE->{filename}; % } % % foreach my $iattr (@{ $iattrs }) % { % next if ( ($iattr eq 'filename') || ($iattr eq 'width') || ($iattr eq 'height') ); % if($iattr eq 'mini') { % if (exists($IMAGE->{mini}->{filename}) ) % { % my $max_show_width = 200; % my $show_w = ( $IMAGE->{mini}->{width} > $max_show_width ? $max_show_width : $IMAGE->{mini}->{width} ); % my $show_h = ( $IMAGE->{mini}->{width} > $max_show_width ? ($max_show_width*$IMAGE->{mini}->{height}/$IMAGE->{mini}->{width}) : $IMAGE->{mini}->{height} ); % } % } else { % } }

<% $rusname %> / name="<% $attr %>"

<% $IMAGE->{filename} %>

% $img_path =~ s|^/{2,}|/|; % my $u1 = URI->new($img_path); % my $path = $u1->path; % $path =~ s|/{2,}|/|g; % $u1->path($path); % $img_path = $u1->canonical; ШИР x ВЫС: <% $IMAGE->{width} %>x<% $IMAGE->{height} %>

name="<% $attr %>_mini"

<% $IMAGE->{mini}->{filename} %>

ШИР x ВЫС: <% $IMAGE->{mini}->{width} %>x<% $IMAGE->{mini}->{height} %>

<% $ATTRNAMES->{$iattr} %> (<% $iattr %>):

Удалить

<%ARGS> $IMAGE => undef $rusname => undef $attr => undef $prop => {} <%DOC> Компонента отображает одну картинку... <%INIT> my $iattrs = $prop->{iattrs}; $iattrs ||= ['alt']; my $ATTRNAMES = { 'alt' => 'Подпись', 'btext' => 'Текст до картинки', 'atext' => 'Текст после картинки', 'url' => 'Ссылка с картинки', 'copyright' => 'Копирайт', };