Revision 8 (by ahitrov@rambler.ru, 2010/03/29 11:46:38) Contenido UTF-8 core files
<form action="./tabs.html" method="post">

<input type="hidden" name="control_charset" value="Контроль">
<input type="hidden" name="id" value="<% $tab->{id} %>">
<table border="0" width="60%" class="tform">

<tr>
<td valign="top" width="40%">Идентификатор профиля:</td>
<td><b><% $tab->{id} %></b></td>
</tr>

<tr>
<td valign="top" width="40%">Название профиля:</td>
<td><input type="text" style="width:90%;" name="name" value="<% $tab->{name} %>"></td>
</tr>

<tr>
<td valign="top" width="40%">Глубина рубрикатора:</td>
<td><input type="text" style="width:90%;" name="level" value="<% $tab->{level} || 3 %>"></td>
</tr>

<tr>
<td valign="top" width="40%">Типы секций для показа:</td>
<td>
%
%       my @local_values = ();
%       for my $class (@{ $state->{available_sections} })
%       {
%		my $sect = new $class($keeper);
%               push (@local_values, $class, ''.$sect->class_name.' ('.$class.')');
%       }
%       my @local_checks = ();
%	if (ref($tab->{sections}))
%	{
%		@local_checks = @{ $tab->{sections} };
%	}
<& "/contenido/components/select.msn", multiple=>1, size=>5, values=>\@local_values, width=>"90%;", name=>'sections', check=>\@local_checks &>
</td>
</tr>

<tr>
<td valign="top" width="40%">Редакторские возможности:</td>
<td>
%	my @LEFT = $m->comp('/contenido/components/tasks.msn');
%	@local_values = ();
%	for my $left (@LEFT)
%	{
%		push (@local_values, $left->{attr}, $left->{rusname});
%	}
%	@local_checks = ();
%	if (ref($tab->{lefts}))
%	{
%		@local_checks = @{ $tab->{lefts} };
%	}
<& "/contenido/components/select.msn", multiple=>1, size=>5, values=>\@local_values, width=>"90%;", name=>'lefts', check=>\@local_checks &>
</td>
</tr>

<tr><td height="20"></td></tr>

<tr><td colspan="2">
<input type="submit" value="Сохранить изменения" style="font-size:13pt;font-weight:bold; height:40px;margin-bottom: 5px; background-color:#930300;color:#FFFFFF;">
</td></tr>

</table>

<input type="hidden" name="save" value="1">
</form>

<%args>

	$tab => {}

</%args>
<%init>

	use vars qw($project $state $keeper $request);
	return undef	if (! exists($tab->{id}));

</%init>