Contenido Project
version 7
SVN-репозиторий
Line # Revision Author
1 8 ahitrov@rambler.ru %# vim:syn=mason
2 <select name="<% $name %>"<% $prop->{multiple} && ' multiple' %><% $prop->{size} && ' size="'.$prop->{size}.'"' %>>
3 %
4 % if ($prop->{allow_null}) {
5 %
6 <option value="" <% defined $check ? '' : 'selected' %>>--- не указано ---</option>
7 %
8 % }
9 %
10 % for my $chain (@chains) {
11 %
12 % my $selected = defined $chain && ( ref $check eq 'ARRAY' ? grep { $_ eq $chain } @$check : $check eq $chain ? 1 : 0 );
13 % $found++ if $selected;
14 %
15 <option value="<% $chain %>"<% $selected ? ' selected' : '' %>><% $chain %></option>
16 %
17 % }
18 %
19 % #if used not allowed value
20 % if ( $check and not $found ) {
21 %
22 <option value="<% $check %>" selected style="color:red;"><% $check %></option>
23 %
24 % }
25 %
26 </select>
27 <%args>
28
29 $object => undef
30 $prop => undef
31 $name => undef
32 $values => []
33 $check => undef
34
35 </%args>
36 <%init>
37
38 my $found = 0;
39 my @chains = ();
40
41 if (my $method = $prop->{planets_user_method}) {
42 my $user = $object->$method;
43 if ($user) {
44 push(@chains, "users/" . $user->login);
45 foreach my $member ($user->member_of) {
46 next if $member->{'friendly_status'} < 3;
47 push @chains, 'community/'.$member->{'login'}
48 }
49 }
50 }
51 </%init>

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

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

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

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

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