Line # Revision Author
1 3 ahitrov@rambler.ru %# vim:syn=mason
2 <style>
3 .td { font:11px Verdana; padding:2px 4px; }
4 </style>
5 % unless ($error) {
6
7 % if (@ids) {
8 <table width="95%" cellpadding="2" cellspacing="1" bgcolor="gray">
9 <tr bgcolor="silver"><th width="99%">��������</th><th width="1%">�������?</th></tr>
10 % my $i = 0;
11 % foreach my $id (@ids) {
12 <tr bgcolor="<% $i++ % 2 ? '#f0f0f0' : 'white' %>">
13 <td class="td"><% (ref($list{$id}) && $list{$id}->name) || '����������' %></td>
14 <td align="center"><input type="checkbox" name="<% $name %>_delete" value="<% $id %>"/></td></tr>
15 % }
16 </table>
17 % }
18
19 <table cellspacing="0" cellpadding="2" border="0" width="95%"
20 style="border-bottom:1px solid gray; border-left:1px solid gray; border-right:1px solid gray;">
21 <tr bgcolor="#e0e0f0"><td class="td" width="5%" nowrap><b>��������:</b>
22 <input onkeyup="find_word_<% $name %>()" type="text" name="<% $name %>_tmp" size="10" onfocus="key_flag_<% $name %> = 0;" onblur="key_flag_<% $name %> = 1;">
23 </td>
24 <td width="94%">
25 <input type="hidden" name="<% $name %>_add" id="<% $name %>_hidden">
26 <select id="<% $name %>_select" class="selects" onchange="<% $name %>_changed();" style="width:100%">
27 <option value=""></option>
28 % for ( sort { $sort{$a->id} <=> $sort{$b->id} } values %list ) {
29 <option value="<% $_->id %> <% $_->class %>"><% $_->name . '(' . ( $prop->{lookup_opts}->{show_in_select} ? $_->{$prop->{lookup_opts}->{show_in_select}} : 'no' ) . ')' %></option>
30 % }
31 </select>
32 </td>
33 <td width="1%" style="padding:0 7px;"><a href="#" onclick="return <% $name %>_popup();" title="����� ��������"><img src="/contenido/i/lookup-19x19.gif" width="19" height="19" class="bb gb"></a></td>
34 </tr>
35 </table>
36
37 <script type="text/javascript">
38 var key_flag_<% $name %> = 1;
39
40 if (navigator.appName == "Netscape") {
41 document.captureEvents(Event.KEYUP);
42 }
43
44 function find_word_<% $name %>() {
45 var str1 = document.form.<% $name %>_tmp.value;
46 if (str1 == "" || key_flag_<% $name %>) return;
47
48 for (var i = 0; i < document.form.<% $name %>_select.options.length; i++) {
49 var source = document.form.<% $name %>_select.options[i].text;
50 source = source.toLowerCase();
51 str1 = str1.toLowerCase();
52 if ( source.indexOf(str1) > -1) {
53 document.form.<% $name %>_select.options[i].selected=true;
54 <% $name %>_changed();
55 break;
56 }
57 }
58 }
59
60 function <% $name %>_popup() {
61 var s = document.getElementById('<% $name %>_select');
62 if (!s.value) {
63 alert('��� ���������� ��������');
64 return false;
65 }
66 var re = /^(\d+)\s+(.+)$/;
67 var matches = re.exec(s.value);
68 window.open('/contenido/document.html?class=' + matches[2] + '&id=' + matches[1]);
69 return false;
70 }
71
72 function <% $name %>_changed() {
73 var h = document.getElementById('<% $name %>_hidden');
74 var s = document.getElementById('<% $name %>_select');
75
76 if (s.value) {
77 var re = /^(\d+)\s+(.+)$/;
78 var matches = re.exec(s.value);
79 h.value = matches[1];
80 } else {
81 h.value = '';
82 }
83 }
84 </script>
85
86 % } else {
87 <font color="red"><% $error %></font>
88 % }
89
90 <%args>
91 $object
92 $name => undef
93 $check => undef
94 $prop => {}
95 </%args>
96 <%init>
97 my (%list, %sort, $error);
98
99 # ���� ��� �������� � ���� ���� integer[] �� ��� �������� ������, ���� � data, �� ������ �� ������.
100 # ��������� �����
101 my @ids = ref($object->$name) eq 'ARRAY' ? @{ $object->$name } : $object->$name;
102
103 if ($prop && ref($prop) && ref($prop->{lookup_opts}) eq 'HASH') {
104 my $i = 0;
105 foreach my $obj ($keeper->get_documents(%{$prop->{lookup_opts}}, order => ['name','reverse'])) {
106 $list{$obj->id} = $obj;
107 $sort{$obj->id} = $i++;
108 }
109 } else {
110 $error = '������ �������� �������� lookup_opts � ���������';
111 }
112 </%init>

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

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

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

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

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