| 1 |
8 |
ahitrov@rambler.ru |
<!-- Одна картинка --> |
| 2 |
|
|
<table cellpadding="0" cellspacing="2" border="0"> |
| 3 |
|
|
<tr><td><b><% $rusname %></b> / <font size="-1" color="#888888">name="<% $attr %>"</font> </td></tr> |
| 4 |
|
|
<tr><td><input type="file" name="<% $attr %>" style="width:95%;font-family:arial;font-size:9pt;"></td></tr> |
| 5 |
|
|
% if ( exists($IMAGE->{width}) && exists($IMAGE->{height}) && exists($IMAGE->{filename}) ) |
| 6 |
|
|
% { |
| 7 |
|
|
<tr><td style="font-size:95%;"><% $IMAGE->{filename} %></td></tr> |
| 8 |
|
|
% my $max_show_width = 200; |
| 9 |
|
|
% my $show_w = ( $IMAGE->{width} > $max_show_width ? $max_show_width : $IMAGE->{width} ); |
| 10 |
|
|
% my $show_h = ( $IMAGE->{width} > $max_show_width ? ($max_show_width*$IMAGE->{height}/$IMAGE->{width}) : $IMAGE->{height} ); |
| 11 |
|
|
% my $img_path = $state->{images_dir}.'/'.$IMAGE->{filename}; |
| 12 |
|
|
<tr><td> |
| 13 |
|
|
% $img_path =~ s|^/{2,}|/|; |
| 14 |
|
|
% my $u1 = URI->new($img_path); |
| 15 |
|
|
% my $path = $u1->path; |
| 16 |
|
|
% $path =~ s|/{2,}|/|g; |
| 17 |
|
|
% $u1->path($path); |
| 18 |
|
|
% $img_path = $u1->canonical; |
| 19 |
|
|
<font size="-1" color="#888888">ШИР x ВЫС: <% $IMAGE->{width} %>x<% $IMAGE->{height} %></font> |
| 20 |
|
|
<img src="<% $img_path %>" alt="<% html_escape($IMAGE->{alt}) %>" width="<% $show_w %>" height="<% $show_h %>"><br> |
| 21 |
|
|
</td></tr> |
| 22 |
|
|
% } |
| 23 |
|
|
% |
| 24 |
|
|
|
| 25 |
|
|
% foreach my $iattr (@{ $iattrs }) |
| 26 |
|
|
% { |
| 27 |
|
|
% next if ( ($iattr eq 'filename') || ($iattr eq 'width') || ($iattr eq 'height') ); |
| 28 |
|
|
% if($iattr eq 'mini') { |
| 29 |
|
|
<tr><td><font size="-1" color="#888888">name="<% $attr %>_mini"</font> </td></tr> |
| 30 |
|
|
<tr><td><input type="file" name="<% $attr %>_mini" style="width:95%;font-family:arial;font-size:9pt;"></td></tr> |
| 31 |
|
|
% if (exists($IMAGE->{mini}->{filename}) ) |
| 32 |
|
|
% { |
| 33 |
|
|
<tr><td style="font-size:95%;"><% $IMAGE->{mini}->{filename} %></td></tr> |
| 34 |
|
|
% my $max_show_width = 200; |
| 35 |
|
|
% my $show_w = ( $IMAGE->{mini}->{width} > $max_show_width ? $max_show_width : $IMAGE->{mini}->{width} ); |
| 36 |
|
|
% my $show_h = ( $IMAGE->{mini}->{width} > $max_show_width ? ($max_show_width*$IMAGE->{mini}->{height}/$IMAGE->{mini}->{width}) : $IMAGE->{mini}->{height} ); |
| 37 |
|
|
<tr><td> |
| 38 |
|
|
<font size="-1" color="#888888">ШИР x ВЫС: <% $IMAGE->{mini}->{width} %>x<% $IMAGE->{mini}->{height} %></font> |
| 39 |
|
|
<img src="<% $state->{images_dir}.'/'.$IMAGE->{mini}->{filename} %>" alt="<% html_escape($IMAGE->{mini}->{alt}) %>" width="<% $show_w %>" height="<% $show_h %>"><br> |
| 40 |
|
|
</td></tr> |
| 41 |
|
|
% } |
| 42 |
|
|
% } else { |
| 43 |
|
|
<tr><td><font size="-1" color="#888888"><% $ATTRNAMES->{$iattr} %> (<% $iattr %>):</font></td></tr> |
| 44 |
|
|
<tr><td><input type="text" name="<% $attr %>.<% $iattr %>" size="60" value="<% html_escape($IMAGE->{$iattr}) %>" style="width:95%;font-family:arial;font-size:9pt;"></td></tr> |
| 45 |
|
|
% } } |
| 46 |
|
|
|
| 47 |
|
|
<tr><td><input type="checkbox" name="_delete_image.<% $attr %>" value="1">Удалить<br><br></td></tr> |
| 48 |
|
|
</table> |
| 49 |
|
|
|
| 50 |
|
|
<%ARGS> |
| 51 |
|
|
|
| 52 |
|
|
$IMAGE => undef |
| 53 |
|
|
$rusname => undef |
| 54 |
|
|
$attr => undef |
| 55 |
|
|
$prop => {} |
| 56 |
|
|
|
| 57 |
|
|
</%ARGS> |
| 58 |
|
|
<%DOC> |
| 59 |
|
|
|
| 60 |
|
|
Компонента отображает одну картинку... |
| 61 |
|
|
|
| 62 |
|
|
</%DOC> |
| 63 |
|
|
<%INIT> |
| 64 |
|
|
|
| 65 |
|
|
my $iattrs = $prop->{iattrs}; |
| 66 |
|
|
$iattrs ||= ['alt']; |
| 67 |
|
|
|
| 68 |
|
|
my $ATTRNAMES = { |
| 69 |
|
|
'alt' => 'Подпись', |
| 70 |
|
|
'btext' => 'Текст до картинки', |
| 71 |
|
|
'atext' => 'Текст после картинки', |
| 72 |
|
|
'url' => 'Ссылка с картинки', |
| 73 |
|
|
'copyright' => 'Копирайт', |
| 74 |
|
|
}; |
| 75 |
|
|
|
| 76 |
|
|
</%INIT> |
