Contenido Project
version 7
SVN-репозиторий
Line # Revision Author
1 8 ahitrov@rambler.ru %# vim:syn=mason
2 <& "/contenido/components/header.msn" &>
3 <& "/contenido/components/naviline.msn", sect_id => $owner->id &>
4
5 % if ($error) {
6 <div align="center" style="font-size:110%; color:red;">
7 <% $error %>
8 </div>
9 <br><br>
10 % }
11
12 % if (!ref($document)) {
13 % if ($id) {
14 <div align="center" style="font-size:110%; color:red;">
15 Документ с идентификатором <% $id %> не найден
16 </div>
17 <br><br>
18 % } elsif ($class) {
19 <!-- Блок с выбором нового документа для создания -->
20 <table width="50%" border="0"><tr><td>
21 <fieldset>
22 <legend>Выберите тип документа для создания</legend>
23 <& "/contenido/components/new_objects_form.msn", proto => 'documents', sect_id => $owner->id &>
24 </fieldset>
25 </td></tr></table>
26 % } else {
27 <div align="center" style="font-size:110%; color:red;">
28 Не верный вызов документа!!! (отсутствуют id и class одновременно)
29 </div>
30 <br><br>
31 % }
32
33 % } else {
34
35 <& "/contenido/components/obj_list_js.msn", object => $document &>
36 <& "/contenido/components/object_form.msn",
37 object => $document,
38 proto => 'documents',
39 sect_id => $owner->id,
40 clone => $clone,
41 filter_params => \%filter_params,
42 &>
43 % if (ref($document) && ($document->id))
44 % {
45
46 <!-- Связи и привязки к рубрикам -->
47
48 <br>
49
50 <table width="100%" cellspacing="5" cellpadding="0" border="0">
51 <tr>
52 <td width=50% valign=top>\
53 <& "/contenido/components/document_sections.msn", document => $document &>\
54 <& "/contenido/components/user_sections.msn", luser => $document &>\
55 % if ( $m->comp_exists ("/contenido/components/pbase_rubrics.msn") ) {
56 <& "/contenido/components/pbase_rubrics.msn", document => $document &>\
57 % }
58 </td>
59 <td width=50% valign=top>\
60 % if ( $m->comp_exists ("/contenido/components/pbase_links.msn") ) {
61 <& "/contenido/components/pbase_links.msn", document => $document &>\
62 % }
63 <iframe id="links" src="document_links.html?id=<% $document->id() %>&class=<% $document->class() %>" width="100%" height="700" frameborder="0"></iframe>
64
65 </td>
66 </tr>
67 </table>
68
69 <!-- / Связи и привязки к рубрикам -->
70
71 % }
72 % }
73
74 </body>
75 </html>
76 <%ARGS>
77 $p => 1
78 $class => undef
79 $sect_id => undef
80 $s_alias => undef
81 $id => undef
82 $delete => undef
83 $save => undef
84 $clone => undef
85 $activate => undef
86 $deactivate => undef
87 </%ARGS>
88 <%INIT>
89 17 ahitrov@rambler.ru
90 &abort404 unless $class;
91 8 ahitrov@rambler.ru my $error='';
92 ### !!! При добавлении переменных в ARGS их надо внести в список исключений в структуре ниже
93
94 my $filter = $m->comp('/contenido/components/context.msn', name => 'filter');
95
96 my $document;
97 my $new;
98
99 if ($id && ($id !~ /\D/) && ($id > 0)) {
100 $document = $keeper->get_document_by_id($id, class=>$class);
101 if ( $clone && exists $document->{'attributes'}->{'dtime'} ) {
102 $document->dtime(undef);
103 }
104 } elsif ( ($class) && (length($class)>0) && (! ref($document)) ) {
105 $document = new $class ($keeper);
106 $new = 1;
107 232 ahitrov unless ( $save ) {
108 my @properties = $document->structure();
109 foreach my $prop ( @properties ) {
110 my $attr = $prop->{attr};
111 ### !!! Если не стандартная переменная, то можем инициализировать
112 if ( exists $ARGS{$attr} && ! grep { $prop->{attr} eq $_ } qw( class sect_id id delete save clone s_alias activate deactivate p s use_section alpha alpha_search search_by search ) ) {
113 $document->$attr($ARGS{$attr});
114 }
115 8 ahitrov@rambler.ru }
116 }
117 }
118 17 ahitrov@rambler.ru &abort404 unless ref $document;
119 8 ahitrov@rambler.ru
120 my @props = $document->structure();
121 my %filter_params;
122 if ($ARGS{use_section} && !grep { $_->{attr} eq 'use_section' } @props ) {
123 $filter_params{use_section} = $ARGS{use_section};
124 $filter_params{class} = $document->class;
125 }
126 $filter_params{alpha} = $ARGS{alpha} if $ARGS{alpha} && !grep { $_->{attr} eq 'alpha' } @props;
127 $filter_params{alpha_search} = $ARGS{alpha_search} if $ARGS{alpha_search} && !grep { $_->{attr} eq 'alpha_search' } @props;
128 $filter_params{search_by} = $ARGS{search_by} if $ARGS{search_by} && !grep { $_->{attr} eq 'search_by' } @props;
129 $filter_params{search} = $ARGS{search} if $ARGS{search} && !grep { $_->{attr} eq 'search' } @props;
130 $filter_params{s} = $ARGS{s} if $ARGS{s} && !grep { $_->{attr} eq 's' } @props;
131 $filter_params{p} = $p if $p > 1;
132 my $return_params = join ('&', map { $_.'='.$filter_params{$_} } grep { $_ ne 's' } keys %filter_params );
133
134
135 if ($s_alias) {
136 $sect_id = $project->s_alias->{$s_alias};
137 }
138
139 if ( (! $sect_id) && (ref($document)) && ($document->id) ) {
140 $sect_id = $document->section();
141 }
142 my $owner = $keeper->get_section_by_id ($sect_id || $Contenido::Section::ROOT || 1);
143
144 if (! ref($owner)) {
145 $owner = $keeper->get_section_by_id ($Contenido::Section::ROOT || 1);
146 }
147 if (! ref($owner)) {
148 warn "Contenido Die: Не могу найти корневую секцию\n";
149 return undef;
150 }
151
152 if (ref($document) && $document->id() && $document->section()) {
153 my $document_access = $user->section_accesses($user, $owner);
154 if ($document_access != 2) {
155 $m->clear_buffer;
156 $m->abort(403);
157 }
158 }
159
160 # Удаление...
161 if (defined($id) && ($id > 0) && ($delete == 1)) {
162 $document->delete( attachments => 1 );
163
164 $m->redirect("sections.html?id=".($filter_params{s} || $owner->id).($return_params ? '&'.$return_params : ''));
165 }
166
167 # Активация...
168 if (defined($id) && ($id > 0) && ($activate == 1)) {
169 $document->status(1);
170 $document->store;
171
172 $m->redirect("sections.html?id=".($filter_params{s} || $owner->id).($return_params ? '&'.$return_params : ''));
173 }
174
175 # Дективация...
176 if (defined($id) && ($id > 0) && ($deactivate == 1)) {
177 $document->status(0);
178 $document->store;
179
180 $m->redirect("sections.html?id=".($filter_params{s} || $owner->id).($return_params ? '&'.$return_params : ''));
181 }
182
183 # Сохранение существующего документа или создание нового...
184 # Кстати, пока никак не обрабатываются связи...
185 elsif ( $save == 1 )
186 {
187 my $clonesource;
188 if ( $clone ) {
189 $clonesource = $keeper->get_document_by_id ($clone,
190 class => $document->class,
191 );
192 }
193 if ($m->comp('/contenido/components/set_properties.msn', object => $document, SETS => \%ARGS) != 1)
194 {
195 # Ошибка, надо бы обработать...
196 warn "Contenido Warning: Не могу установить значения полей!\n";
197 }
198 if ( $clone ) {
199 $m->comp('/contenido/components/clone_attachments.msn', object => $document, source => $clonesource );
200 $document->sections( $clonesource->sections );
201 } elsif ( $new ) {
202 $document->sections( $owner->id, $filter > 0 ? ($filter) : ());
203 }
204
205
206 unless ($document->store()) {
207 # Ошибка, надо бы обработать...
208 $error="Ошибка сохранения ($keeper->{last_error})";
209 } else {
210
211 if ($ARGS{_save_and_leave}) {
212 $m->redirect("sections.html?id=".($filter_params{s} || $owner->id).($return_params ? '&'.$return_params : ''));
213 } elsif ($ARGS{_save_and_again}) {
214 $m->redirect("document.html?class=".$document->class()."&sect_id=".($filter_params{s} || $owner->id).($return_params ? '&'.$return_params : ''));
215 }
216
217
218 $m->redirect("document.html?id=".$document->id()."&class=".$document->class().(exists $filter_params{s} ? '&s='.$filter_params{s} : '').($return_params ? '&'.$return_params : ''));
219 }
220 }
221
222 </%INIT>

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

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

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

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

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