warn "$class table descriptor loaded ok!\n" if ($DEBUG);
115
}
116
117
return 1;
118
}
119
120
sub _register_filter {
121
my ($self, $filter_set, $field) = @_;
122
my $class = ref($self) || $self;
123
return if ($field->{no_filter} or !$field->{db_type});
124
125
my $name = 'd.'.$field->{attr};
126
127
# Специальныe случаи
128
if ($field->{attr} eq 'sections') {
129
# Игнорируем значение и передаем весь %opts
130
$filter_set->{s} = sub { return $class->_s_filter( %{$_[1]} ); };
131
} elsif ($field->{attr} eq 'id') {
132
$filter_set->{in_id} = sub { return (SQL::Common::_generic_int_filter($name, shift, 1, shift)); };
133
}
134
#todo возможно еще несколько фильтров для совместимости умолчательной сделать
135
136
#name всегда специальный образом работает
137
if ($field->{attr} eq 'name') {
138
$filter_set->{$field->{attr}} = sub { return (SQL::Common::_generic_name_filter($name, shift, 0, shift)); };
139
$filter_set->{'not_'.$field->{attr}} = sub { return (SQL::Common::_generic_name_filter($name, shift, 1, shift)); };
140
} elsif ($field->{db_type} eq 'integer' or $field->{db_type} eq 'smallint') {
141
$filter_set->{$field->{attr}} = sub { return (SQL::Common::_generic_int_filter($name, shift, 0, shift)); };
142
$filter_set->{'not_'.$field->{attr}} = sub { return (SQL::Common::_generic_int_filter($name, shift, 1, shift)); };
143
} elsif ($field->{db_type} eq 'float' or $field->{db_type} eq 'real' or $field->{db_type} eq 'double precision') {
144
$filter_set->{$field->{attr}} = sub { return (SQL::Common::_generic_float_filter($name, shift, 0, shift)); };
145
$filter_set->{'not_'.$field->{attr}} = sub { return (SQL::Common::_generic_float_filter($name, shift, 1, shift)); };
146
} elsif ($field->{db_type} eq 'text' or $field->{db_type} eq 'char' or $field->{db_type} eq 'character varying' or $field->{db_type} eq 'character') {
147
$filter_set->{$field->{attr}} = sub { return (SQL::Common::_generic_text_filter($name, shift, 0, shift)); };
148
$filter_set->{'not_'.$field->{attr}} = sub { return (SQL::Common::_generic_text_filter($name, shift, 1, shift)); };
149
} elsif ($field->{db_type} eq 'integer[]') {
150
$filter_set->{$field->{attr}} = sub { return (SQL::Common::_generic_intarray_filter($name, shift, 0, shift)); };
151
$filter_set->{'not_'.$field->{attr}} = sub { return (SQL::Common::_generic_intarray_filter($name, shift, 1, shift)); };
152
} elsif ($field->{db_type} eq 'boolean') {
153
$filter_set->{$field->{attr}} = sub { return (SQL::Common::_generic_boolean_filter($name, shift, 0, shift)); };
154
$filter_set->{'not_'.$field->{attr}} = sub { return (SQL::Common::_generic_boolean_filter($name, shift, 1, shift)); };
155
} elsif ($field->{db_type} eq 'date' or $field->{db_type} eq 'timestamp without time zone' or $field->{db_type} eq 'timestamp with time zone') {
156
$filter_set->{$field->{attr}} = sub { return (SQL::Common::_generic_date_filter($name, shift, 0, shift)); };
157
$filter_set->{'not_'.$field->{attr}} = sub { return (SQL::Common::_generic_date_filter($name, shift, 1, shift)); };
158
} elsif ($field->{db_type} eq 'time' or $field->{db_type} eq 'time without time zone') {
159
$filter_set->{$field->{attr}} = sub { return (SQL::Common::_generic_time_filter($name, shift, 0, shift)); };
160
$filter_set->{'not_'.$field->{attr}} = sub { return (SQL::Common::_generic_time_filter($name, shift, 1, shift)); };
161
} else {
162
warn "$class have field $field->{db_field} with type $field->{db_type} unsupported in autofilter just now sorry";
163
}
164
}
165
166
1;
167
Небольшая справка по веткам
cnddist – контейнер, в котором хранятся все дистрибутивы всех библиотек и программных пакетов, которые использовались при построении различных версий Contenido. Если какой-то библиотеки в данном хранилище нет, инсталлятор сделает попытку "подтянуть" ее с веба (например, с CPAN). Если библиотека слишком старая, есть очень большая вероятность, что ее там уже нет. Поэтому мы храним весь хлам от всех сборок. Если какой-то дистрибутив вдруг отсутствует в cnddist - напишите нам, мы положим его туда.
koi8 – отмирающая ветка, чей код, выдача и все внутренние библиотеки заточены на кодировку KOI8-R. Вносятся только те дополнения, которые касаются внешнего вида и функционала админки, баги ядра, обязательные обновления портов и мелочи, которые легко скопипастить. В дальнейшем планируется полная остановка поддержки по данной ветке.
utf8 – актуальная ветка, заточенная под UTF-8.
Внутри каждой ветки: core – исходники ядра; install – скрипт установки инсталляции; plugins – плагины; samples – "готовые к употреблению" проекты, которые можно поставить, запустить и посмотреть, как они работают.
RSS Feed