Revision 3 (by ahitrov@rambler.ru, 2010/03/24 15:19:32) |
The CORE
|
<!-- ���� ������ ����������� -->
<table cellpadding="0" cellspacing="2" border="0" width="100%">
<tr><td><b><% $rusname %></b> / <font size="-1" color="#888888">name="<% $attr %>"</font> </td></tr>
<tr><td><input type="file" name="<% $attr %>" style="width:95%;font-family:arial;font-size:9pt;"></td></tr>
% if ( exists($MULTI->{filename}) )
% {
% my $TYPE = 'unknown';
% if (length($MULTI->{ext}) > 0)
% {
% if (-e $keeper->{state}->{mason_comp}.'/contenido/i/icons/'.$MULTI->{ext}.'.gif')
% {
% $TYPE = $MULTI->{ext};
% }
% }
<tr><td style="font-size:95%;"><% $MULTI->{filename} %></td></tr>
<tr><td>
<table border="0" width="100%"><tr>
<td align="right"><a href="<% $state->{binary_dir} %><% $MULTI->{filename} %>"><img src="/contenido/i/icons/<% $TYPE %>.gif" width="36" height=36" hspace="5" border="0"></a></td>
<td>
<font size="-1" color="#888888">���: <% uc($MULTI->{ext}) %><br>
������: <% int($MULTI->{size}/1024) %> ��
</font>
</td>
</tr></table>
</td></tr>
% }
%
% foreach my $iattr (sort (@{ $iattrs }))
% {
% next if ( ($iattr eq 'filename') || ($iattr eq 'mini') || ($iattr eq 'width') || ($iattr eq 'height') );
<tr><td><font size="-1" color="#888888"><% $ATTRNAMES->{$iattr} %> (<% $iattr %>):</font></td></tr>
<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>
% }
<tr><td><input type="checkbox" name="_delete_multi.<% $attr %>" value="1">�������<br><br></td></tr>
</td></tr></table>
<%ARGS>
$MULTI => undef
$rusname => undef
$attr => undef
$prop => {}
</%ARGS>
<%DOC>
���������� ���������� ���� ��������...
</%DOC>
<%INIT>
my $iattrs = $prop->{iattrs};
$iattrs ||= [];
my $ATTRNAMES = {
'alt' => '�������',
'btext' => '����� �� ��������',
'atext' => '����� ����� ��������',
'url' => '������ � ��������',
'copyright' => '��������',
};
</%INIT>