Line # Revision Author
1 8 ahitrov@rambler.ru <& '/contenido/components/select.msn', name => $name.'_hour', values => \@hours, check => $hour &>
2 <& '/contenido/components/select.msn', name => $name.'_minute', values => \@minutes, check => $minute &>
3 <& '/contenido/components/select.msn', name => $name.'_second', values => \@seconds, check => $second &>
4
5 <%args>
6 $prop
7 $name => undef
8 $check => undef
9 </%args>
10
11 <%init>
12 # Формируем данные для select'а...
13 my @hours = map { $_ => sprintf('%02d', $_) } (0 .. 23);
14 my @minutes = map { $_ => sprintf('%02d', $_) } (0 ..59);
15 my @seconds = map { $_ => sprintf('%02d', $_) } (0 ..59);
16
17 if ($prop->{allow_null}) {
18 unshift @hours, '', '';
19 unshift @minutes, '', '';
20 unshift @seconds, '', '';
21 }
22
23 my ($hour, $minute, $second);
24 if ($check) {
25 $check =~ /(\d{1,2}):(\d{1,2}):(\d{1,2})/;
26 ($hour, $minute, $second) = ($1 + 0, $2 + 0, $3 + 0);
27 } elsif(!$prop->{allow_null}) {
28 ($second,$minute,$hour) = (localtime)[0 .. 2];
29 }
30 </%init>

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

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

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

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

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