Revision 8 (by ahitrov@rambler.ru, 2010/03/29 11:46:38) Contenido UTF-8 core files
<!-- Один объект мультимедиа -->
<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="<% $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>