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>

Небольшая справка по веткам

cnddist – контейнер, в котором хранятся все дистрибутивы всех библиотек и программных пакетов, которые использовались при построении различных версий Contenido. Если какой-то библиотеки в данном хранилище нет, инсталлятор сделает попытку "подтянуть" ее с веба (например, с CPAN). Если библиотека слишком старая, есть очень большая вероятность, что ее там уже нет. Поэтому мы храним весь хлам от всех сборок. Если какой-то дистрибутив вдруг отсутствует в cnddist - напишите нам, мы положим его туда.

koi8 – отмирающая ветка, чей код, выдача и все внутренние библиотеки заточены на кодировку KOI8-R. Вносятся только те дополнения, которые касаются внешнего вида и функционала админки, баги ядра, обязательные обновления портов и мелочи, которые легко скопипастить. В дальнейшем планируется полная остановка поддержки по данной ветке.

utf8 – актуальная ветка, заточенная под UTF-8.

Внутри каждой ветки: core – исходники ядра; install – скрипт установки инсталляции; plugins – плагины; samples – "готовые к употреблению" проекты, которые можно поставить, запустить и посмотреть, как они работают.