Line # Revision Author
1 3 ahitrov@rambler.ru <%ARGS>
2
3 $s => undef
4 $id => undef
5 $move => undef
6 $p => 1
7 $use_section => undef
8 $class => undef
9
10 </%ARGS>
11 <%INIT>
12
13 my $sect;
14 if ($s && ($s !~ /\D/) && ($s > 0)) {
15 $sect = $keeper->get_section_by_id($s);
16 }
17
18 my %filter_params;
19 $filter_params{use_section} = $ARGS{use_section} if $ARGS{use_section};
20 $filter_params{class} = $ARGS{class} if $ARGS{class};
21 $filter_params{alpha} = $ARGS{alpha} if $ARGS{alpha};
22 $filter_params{alpha_search} = $ARGS{alpha_search} if $ARGS{alpha_search};
23 $filter_params{search_by} = $ARGS{search_by} if $ARGS{search_by};
24 $filter_params{search} = $ARGS{search} if $ARGS{search};
25 $filter_params{p} = $ARGS{p} if $ARGS{p} && $ARGS{p} > 1;
26 my $return_params = join ('&', map { $_.'='.$filter_params{$_} } keys %filter_params );
27
28 # �����������...
29 if ($move && $id && ($id !~ /\D/) && ($id > 0)) {
30 $sect->dmove($id, $move);
31 my @params;
32 push @params, 'id='.$s if $s;
33 push @params, 'p='.$p if $p > 1;
34 push @params, 'class='.$class if $class;
35 push @params, 'use_section='.$use_section if $use_section;
36 $m->redirect($s ? "sections.html?id=".$s.( $return_params ? '&'.$return_params : '' ) : 'index.html');
37 }
38
39 </%INIT>

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

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

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

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

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