Revision 259 (by ahitrov, 2012/12/05 08:06:03) |
Area-sensitive delivery.
|
package webshop::Country;
use Contenido::Globals;
use base "Contenido::Document";
sub extra_properties
{
return (
{ 'attr' => 'status', 'type' => 'status', 'rusname' => 'Статус',
'cases' => [
[0, 'Запись активна'],
[1, 'Запись не активна'],
],
},
{ 'attr' => 'pid', 'hidden' => 1 },
)
}
sub class_name
{
return 'Webshop: страна';
}
sub class_description
{
return 'Webshop: страна';
}
sub class_table
{
return 'webshop::SQL::RegionsTable';
}
sub table_links
{
return [
{ name => 'Регионы', class => 'webshop::Area', filter => 'pid', field => 'pid' },
];
}
sub pre_store
{
my $self = shift;
my $default_section = $project->s_alias->{webshop_country} if ref $project->s_alias eq 'HASH';
my $sections = $self->{sections};
if ( $default_section ) {
if ( ref $sections eq 'ARRAY' && scalar @$sections ) {
my @new_sects = grep { $_ != $default_section } @$sections;
push @new_sects, $default_section;
$self->sections(@new_sects);
} elsif ( $sections && !ref $sections && $sections != $default_section ) {
my @new_sects = ($default_section, $sections);
$self->sections(@new_sects);
} else {
$self->sections($default_section);
}
}
return 1;
}
1;
Небольшая справка по веткам
cnddist – контейнер, в котором хранятся все дистрибутивы всех библиотек и программных пакетов, которые использовались при построении различных версий Contenido. Если какой-то библиотеки в данном хранилище нет, инсталлятор сделает попытку "подтянуть" ее с веба (например, с CPAN). Если библиотека слишком старая, есть очень большая вероятность, что ее там уже нет. Поэтому мы храним весь хлам от всех сборок. Если какой-то дистрибутив вдруг отсутствует в cnddist - напишите нам, мы положим его туда.
koi8 – отмирающая ветка, чей код, выдача и все внутренние библиотеки заточены на кодировку KOI8-R. Вносятся только те дополнения, которые касаются внешнего вида и функционала админки, баги ядра, обязательные обновления портов и мелочи, которые легко скопипастить. В дальнейшем планируется полная остановка поддержки по данной ветке.
utf8 – актуальная ветка, заточенная под UTF-8.
Внутри каждой ветки: core – исходники ядра; install – скрипт установки инсталляции; plugins – плагины; samples – "готовые к употреблению" проекты, которые можно поставить, запустить и посмотреть, как они работают.