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 my $error='';
90 ### !!! При добавлении переменных в ARGS их надо внести в список исключений в структуре ниже
91
92 my $filter = $m->comp('/contenido/components/context.msn', name => 'filter');
93
94 my $document;
95 my $new;
96
97 if ($id && ($id !~ /\D/) && ($id > 0)) {
98 $document = $keeper->get_document_by_id($id, class=>$class);
99 if ( $clone && exists $document->{'attributes'}->{'dtime'} ) {
100 $document->dtime(undef);
101 }
102 } elsif ( ($class) && (length($class)>0) && (! ref($document)) ) {
103 $document = new $class ($keeper);
104 $new = 1;
105 my @properties = $document->structure();
106 foreach my $prop ( @properties ) {
107 my $attr = $prop->{attr};
108 ### !!! Если не стандартная переменная, то можем инициализировать
109 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 ) ) {
110 $document->$attr($ARGS{$attr});
111 }
112 }
113 }
114
115 my @props = $document->structure();
116 my %filter_params;
117 if ($ARGS{use_section} && !grep { $_->{attr} eq 'use_section' } @props ) {
118 $filter_params{use_section} = $ARGS{use_section};
119 $filter_params{class} = $document->class;
120 }
121 $filter_params{alpha} = $ARGS{alpha} if $ARGS{alpha} && !grep { $_->{attr} eq 'alpha' } @props;
122 $filter_params{alpha_search} = $ARGS{alpha_search} if $ARGS{alpha_search} && !grep { $_->{attr} eq 'alpha_search' } @props;
123 $filter_params{search_by} = $ARGS{search_by} if $ARGS{search_by} && !grep { $_->{attr} eq 'search_by' } @props;
124 $filter_params{search} = $ARGS{search} if $ARGS{search} && !grep { $_->{attr} eq 'search' } @props;
125 $filter_params{s} = $ARGS{s} if $ARGS{s} && !grep { $_->{attr} eq 's' } @props;
126 $filter_params{p} = $p if $p > 1;
127 my $return_params = join ('&', map { $_.'='.$filter_params{$_} } grep { $_ ne 's' } keys %filter_params );
128
129
130 if ($s_alias) {
131 $sect_id = $project->s_alias->{$s_alias};
132 }
133
134 if ( (! $sect_id) && (ref($document)) && ($document->id) ) {
135 $sect_id = $document->section();
136 }
137 my $owner = $keeper->get_section_by_id ($sect_id || $Contenido::Section::ROOT || 1);
138
139 if (! ref($owner)) {
140 $owner = $keeper->get_section_by_id ($Contenido::Section::ROOT || 1);
141 }
142 if (! ref($owner)) {
143 warn "Contenido Die: Не могу найти корневую секцию\n";
144 return undef;
145 }
146
147 if (ref($document) && $document->id() && $document->section()) {
148 my $document_access = $user->section_accesses($user, $owner);
149 if ($document_access != 2) {
150 $m->clear_buffer;
151 $m->abort(403);
152 }
153 }
154
155 # Удаление...
156 if (defined($id) && ($id > 0) && ($delete == 1)) {
157 $document->delete( attachments => 1 );
158
159 $m->redirect("sections.html?id=".($filter_params{s} || $owner->id).($return_params ? '&'.$return_params : ''));
160 }
161
162 # Активация...
163 if (defined($id) && ($id > 0) && ($activate == 1)) {
164 $document->status(1);
165 $document->store;
166
167 $m->redirect("sections.html?id=".($filter_params{s} || $owner->id).($return_params ? '&'.$return_params : ''));
168 }
169
170 # Дективация...
171 if (defined($id) && ($id > 0) && ($deactivate == 1)) {
172 $document->status(0);
173 $document->store;
174
175 $m->redirect("sections.html?id=".($filter_params{s} || $owner->id).($return_params ? '&'.$return_params : ''));
176 }
177
178 # Сохранение существующего документа или создание нового...
179 # Кстати, пока никак не обрабатываются связи...
180 elsif ( $save == 1 )
181 {
182 my $clonesource;
183 if ( $clone ) {
184 $clonesource = $keeper->get_document_by_id ($clone,
185 class => $document->class,
186 );
187 }
188 if ($m->comp('/contenido/components/set_properties.msn', object => $document, SETS => \%ARGS) != 1)
189 {
190 # Ошибка, надо бы обработать...
191 warn "Contenido Warning: Не могу установить значения полей!\n";
192 }
193 if ( $clone ) {
194 $m->comp('/contenido/components/clone_attachments.msn', object => $document, source => $clonesource );
195 $document->sections( $clonesource->sections );
196 } elsif ( $new ) {
197 $document->sections( $owner->id, $filter > 0 ? ($filter) : ());
198 }
199
200
201 unless ($document->store()) {
202 # Ошибка, надо бы обработать...
203 $error="Ошибка сохранения ($keeper->{last_error})";
204 } else {
205
206 if ($ARGS{_save_and_leave}) {
207 $m->redirect("sections.html?id=".($filter_params{s} || $owner->id).($return_params ? '&'.$return_params : ''));
208 } elsif ($ARGS{_save_and_again}) {
209 $m->redirect("document.html?class=".$document->class()."&sect_id=".($filter_params{s} || $owner->id).($return_params ? '&'.$return_params : ''));
210 }
211
212
213 $m->redirect("document.html?id=".$document->id()."&class=".$document->class().(exists $filter_params{s} ? '&s='.$filter_params{s} : '').($return_params ? '&'.$return_params : ''));
214 }
215 }
216
217 </%INIT>

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

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

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

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

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