1 |
8 |
ahitrov@rambler.ru |
<!-- Один объект мультимедиа --> |
2 |
|
|
<table cellpadding="0" cellspacing="2" border="0" width="100%"> |
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($MULTI->{filename}) ) |
6 |
|
|
% { |
7 |
|
|
% my $TYPE = 'unknown'; |
8 |
|
|
% if (length($MULTI->{ext}) > 0) |
9 |
|
|
% { |
10 |
|
|
% if (-e $keeper->{state}->{mason_comp}.'/contenido/i/icons/'.$MULTI->{ext}.'.gif') |
11 |
|
|
% { |
12 |
|
|
% $TYPE = $MULTI->{ext}; |
13 |
|
|
% } |
14 |
|
|
% } |
15 |
|
|
<tr><td style="font-size:95%;"><% $MULTI->{filename} %></td></tr> |
16 |
|
|
<tr><td> |
17 |
|
|
|
18 |
|
|
<table border="0" width="100%"><tr> |
19 |
|
|
<td align="right"><a href="<% $MULTI->{filename} %>"><img src="/contenido/i/icons/<% $TYPE %>.gif" width="36" height=36" hspace="5" border="0"></a></td> |
20 |
|
|
<td> |
21 |
|
|
<font size="-1" color="#888888">Тип: <% uc($MULTI->{ext}) %><br> |
22 |
|
|
Размер: <% int($MULTI->{size}/1024) %> Кб |
23 |
|
|
</font> |
24 |
|
|
</td> |
25 |
|
|
</tr></table> |
26 |
|
|
|
27 |
|
|
</td></tr> |
28 |
|
|
% } |
29 |
|
|
% |
30 |
|
|
% foreach my $iattr (sort (@{ $iattrs })) |
31 |
|
|
% { |
32 |
|
|
% next if ( ($iattr eq 'filename') || ($iattr eq 'mini') || ($iattr eq 'width') || ($iattr eq 'height') ); |
33 |
|
|
<tr><td><font size="-1" color="#888888"><% $ATTRNAMES->{$iattr} %> (<% $iattr %>):</font></td></tr> |
34 |
|
|
<tr><td><input type="text" name="<% $attr %>.<% $iattr %>" size="60" value="<% html_escape($MULTI->{$iattr}) %>" style="width:95%;font-family:arial;font-size:9pt;"></td></tr> |
35 |
|
|
% } |
36 |
|
|
<tr><td><input type="checkbox" name="_delete_multi.<% $attr %>" value="1">Удалить<br><br></td></tr> |
37 |
|
|
</td></tr></table> |
38 |
|
|
|
39 |
|
|
<%ARGS> |
40 |
|
|
|
41 |
|
|
$MULTI => undef |
42 |
|
|
$rusname => undef |
43 |
|
|
$attr => undef |
44 |
|
|
$prop => {} |
45 |
|
|
|
46 |
|
|
</%ARGS> |
47 |
|
|
<%DOC> |
48 |
|
|
|
49 |
|
|
Компонента отображает одну картинку... |
50 |
|
|
|
51 |
|
|
</%DOC> |
52 |
|
|
<%INIT> |
53 |
|
|
|
54 |
|
|
my $iattrs = $prop->{iattrs}; |
55 |
|
|
$iattrs ||= []; |
56 |
|
|
|
57 |
|
|
my $ATTRNAMES = { |
58 |
|
|
'alt' => 'Подпись', |
59 |
|
|
'btext' => 'Текст до картинки', |
60 |
|
|
'atext' => 'Текст после картинки', |
61 |
|
|
'url' => 'Ссылка с картинки', |
62 |
|
|
'copyright' => 'Копирайт', |
63 |
|
|
}; |
64 |
|
|
|
65 |
|
|
</%INIT> |