Contenido Project
version 7
SVN-репозиторий
Line # Revision Author
1 616 ahitrov <% $json %>
2 <%once>
3
4 use JSON::XS;
5
6 </%once>
7 <%args>
8
9 $s => undef
10 $id => undef
11 $class => undef
12 $status => undef
13 $params => undef
14
15 </%args>
16 <%init>
17
18 my %result;
19
20 if ( $id && $id =~ /^\d+$/ && $class && $class =~ /::/ && defined $status ) {
21 my $section = $keeper->get_section_by_id( $s ) if $s;
22 my $document = $keeper->get_document_by_id( $id, class => $class );
23 my %filter;
24 map { if ( $_ =~ /(.+?)=(.*)/ ) { $filter{$1} = $2 } } split(/\&/, $params);
25 my $params_unclassed = join ('&', map { $_.'='.$filter{$_} } grep { $_ ne 'class' } keys %filter );
26 my $params_unsection = join ('&', map { $_.'='.$filter{$_} } grep { $_ ne 's' } keys %filter );
27 if ( ref $document ) {
28 # набор колонок таблицы документов...
29 my @columns = ref $section && $section->_sorted ? ({attr => '_sort_', name => 'N'}) : ();
30
31 # пытаемся найти колонки, которые документ сам пожелал показать (required_properties -> column)...
32 push @columns,
33 sort {$a->{column} <=> $b->{column}}
34 grep {$_->{column}} $document->structure;
35
36 # стандартная жопка таблицы...
37 push @columns, {attr => '_act_', rusname => 'Действия'};
38
39 $document->status( $status );
40 $document->store;
41
42 my $html = $m->scomp('/contenido/components/section_browse_row.msn', no_tr => 1,
43 document => $document, columns => \@columns, section => $section,
44 lookup_elemets => {}, filter => \%filter, params_unsection => $params_unsection, params_unclassed => $params_unclassed
45 );
46 $result{success} = 1;
47 $result{html} = Encode::decode('utf-8', $html);
48 } else {
49 $result{error} = Encode::decode('utf-8', 'Документ не найден');
50 }
51 } else {
52 $result{error} = Encode::decode('utf-8', 'Переданы неверные параметры');
53 }
54
55 my $json = encode_json \%result;
56
57 </%init>

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

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

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

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

Внутри каждой ветки: core – исходники ядра; install – скрипт установки инсталляции; plugins – плагины; samples – "готовые к употреблению" проекты, которые можно поставить, запустить и посмотреть, как они работают.
© 2003 – 2009 «Рамблер»
© 2010 – 2024 «Андрей (Handy) Хитров»