Repository List / Contenido / utf8 / samples / promosuite / lib / promosuite / SQL / Enquesta.pm @ r296

package promosuite::SQL::Enquesta;

use base 'SQL::ProtoTable';

sub db_table
{
	return 'enquesta';
}

sub available_filters {
	my @available_filters = qw(	
					_class_filter
					_status_filter
					_in_id_filter
					_id_filter
					_name_filter
					_s_filter
					_class_excludes_filter

					_uid_filter
					_session_filter
					_object_id_filter
					_object_class_filter
					_excludes_filter
				);
	return \@available_filters; 
}

# ----------------------------------------------------------------------------
# Свойства храним в массивах, потому что порядок важен!
# Это общие свойства - одинаковые для всех документов.
#
#   attr - обязательный параметр, название атрибута;
#   type - тип аттрибута, требуется для отображдения;
#   rusname - русское название, опять же требуется для отображения;
#   hidden - равен 1, когда 
#   readonly - инициализации при записи только без изменения в дальнейшем
#   db_field - поле в таблице
#   default  - значение по умолчанию (поле всегда имеет это значение)
# ----------------------------------------------------------------------------
sub required_properties
{
	return (
		{							# Идентификатор документа, сквозной по всем типам...
			'attr'		=> 'id',
			'type'		=> 'integer',
			'rusname'	=> 'Идентификатор документа',
			'hidden'	=> 1,
			'auto'		=> 1,
			'readonly'	=> 1,
			'db_field'	=> 'id',
			'db_type'	=> 'integer',
			'db_opts'	=> "not null default nextval('public.documents_id_seq'::text)", 
		},
		{							# Класс документа...
			'attr'		=> 'class',
			'type'		=> 'string',
			'rusname'	=> 'Класс документа',
			'hidden'	=> 1,
			'readonly'	=> 1,
			'column'	=> 3,
			'db_field'	=> 'class',
			'db_type'	=> 'varchar(48)',
			'db_opts'	=> 'not null',
		},
		{							# Имя
			'attr'		=> 'name',
			'type'		=> 'string',
			'rusname'	=> 'Имя',
			'column'	=> 2,
			'db_field'	=> 'name',
			'db_type'       => 'text',
		},
		{							# Сессия голосовавшего
			'attr'		=> 'session_id',
			'type'		=> 'string',
			'rusname'	=> 'Сессия голосовавшего',
			'db_field'	=> 'session_id',
			'db_type'       => 'char(32)',
		},
		{							# ID голосовавшего
			'attr'		=> 'uid',
			'type'		=> 'string',
			'rusname'	=> 'ID голосовавшего',
			'db_field'	=> 'uid',
			'db_type'       => 'integer',
			'default'	=> '0',
		},
		{							# Статус
			'attr'		=> 'status',
			'type'		=> 'status',
			'rusname'       => 'Статус',
			'db_field'      => 'status',
			'db_type'       => 'smallint',
		},
		{							# Время создания документа
			'attr'		=> 'ctime',
			'type'		=> 'datetime',
			'rusname'	=> 'Дата/время создания',
			'readonly'	=> 1,
			'auto'          => 1,
			'hidden'	=> 1,
			'db_field'	=> 'ctime',
			'db_type'	=> 'timestamp',
			'db_opts'	=> 'not null default now()',
			'default'	=> 'CURRENT_TIMESTAMP',
		},
		{							# Время изменения документа
			'attr'		=> 'mtime',
			'type'		=> 'datetime',
			'rusname'	=> 'Дата/время изменения',
			'auto'          => 1,
			'hidden'	=> 1,
			'db_field'	=> 'mtime',
			'db_type'	=> 'timestamp',
			'db_opts'	=> 'not null default now()',
			'default'	=> 'CURRENT_TIMESTAMP',
		},
		{							# Время документа
			'attr'		=> 'dtime',
			'type'		=> 'datetime',
			'rusname'	=> 'Дата/время',
			'column'	=> 1,
			'db_field'	=> 'dtime',
			'db_type'	=> 'timestamp',
			'db_opts'	=> 'not null default now()',
			'default'	=> 'CURRENT_TIMESTAMP',
		},
		{							# Класс объекта
			'attr'		=> 'object_class',
			'type'		=> 'string',
			'rusname'	=> 'Класс объекта',
			'column'	=> 4,
			'db_field'	=> 'object_class',
			'db_type'       => 'text',
			'default'	=> "'promosuite::Voting'",
		},
		{							# ID объекта
			'attr'		=> 'object_id',
			'type'		=> 'string',
			'rusname'	=> 'ID объекта',
			'column'	=> 5,
			'db_field'	=> 'object_id',
			'db_type'       => 'integer',
		},
		{							# Опрос
			'attr'		=> 'voting',
			'type'		=> 'text',
			'rusname'	=> 'Оценка',
			'db_field'	=> 'voting',
			'db_type'       => 'text',
		},
		{							# Массив секций
			'attr'		=> 'sections',
			'type'		=> 'sections_list',
			'rusname'	=> 'Секции',
			'hidden'	=> 1,
			'db_field'	=> 'sections',
			'db_type'	=> 'integer[]',
                },
	);
}


########### FILTERS DESCRIPTION ####################################################################################
sub _excludes_filter {
	my ($self,%opts)=@_;
	if (exists $opts{excludes}) {
		# - исключение из отбора
		my @eids = ();
		if (ref($opts{excludes}) eq 'ARRAY') {
			@eids = @{ $opts{excludes} };
		} elsif ($opts{excludes} =~ /[^\d\,]/) {
			warn "Contenido Warning: В списке идентификаторов для исключения встречаются нечисловые элементы. Параметр excludes игнорируется (".$opts{excludes}.").\n";
		} else {
			@eids = split(',', $opts{excludes});
		}

		my $excludes = join(',', @eids);

		# Меняется логика запроса, если это join-запрос.
		# Потому что в этом случае гораздо лучше ограничить выборку по таблице links,
		#  чем производить полную склейку таблиц.
		if (@eids) {
			if (exists($opts{ldest}) || exists($opts{lsource})) {
				if (exists($opts{ldest})) {
					return " (l.source_id not in ($excludes)) ";
				} elsif (exists($opts{lsource})) {
					return " (l.dest_id   not in ($excludes)) ";
				}
			} else {
				return  " (d.id not in ($excludes)) ";
			}
		}
	}
	return undef;
}


sub _get_orders {
	my ($self, %opts) = @_;

	if ($opts{order_by}) {
		return ' order by '.$opts{order_by};
	} else {
		return ' order by dtime desc';
	}
	return undef;
}

sub _uid_filter {
	my ($self, %opts)=@_;
	return undef unless ( exists $opts{uid}  );
	return &SQL::Common::_generic_int_filter('d.uid', $opts{uid});
}

sub _object_id_filter {
	my ($self, %opts)=@_;
	return undef unless ( exists $opts{object_id}  );
	return &SQL::Common::_generic_int_filter('d.object_id', $opts{object_id});
}

sub _session_filter {
	my ($self, %opts)=@_;
	return undef unless ( exists $opts{session_id}  );
	return &SQL::Common::_generic_text_filter('d.session_id', $opts{session_id});
}

sub _object_class_filter {
	my ($self, %opts)=@_;
	return undef unless ( exists $opts{object_class}  );
	return &SQL::Common::_generic_text_filter('d.object_class', $opts{object_class});
}

1;