Line # Revision Author
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>