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

package promosuite::SQL::DocumentTable;

use strict;
use base 'SQL::DocumentTable';

sub db_table
{
	return 'documents';
}

sub available_filters {
	my @available_filters = qw(	
					_class_filter
					_status_filter
					_in_id_filter
					_id_filter
					_name_filter
					_class_excludes_filter
					_sfilter_filter
					_datetime_filter
					_date_equal_filter
					_date_filter
				 	_previous_days_filter
					_s_filter

					_excludes_filter
					_link_filter
					_ext_id_filter
					_alias_filter
				);
	return \@available_filters; 
}

# ----------------------------------------------------------------------------
# Свойства храним в массивах, потому что порядок важен!
# Это общие свойства - одинаковые для всех документов.
#
#   attr - обязательный параметр, название атрибута;
#   type - тип аттрибута, требуется для отображдения;
#   rusname - русское название, опять же требуется для отображения;
#   hidden - равен 1, когда 
#   readonly - инициализации при записи только без изменения в дальнейшем
#   db_field - поле в таблице
#   default  - значение по умолчанию (поле всегда имеет это значение)
# ----------------------------------------------------------------------------
sub required_properties
{
        my $self = shift;

        my @parent_properties = $self->SUPER::required_properties;
	return (
		@parent_properties,
		{							# Дополнительное поле индексации
			'attr'		=> 'ext_id',
			'type'		=> 'integer',
			'rusname'	=> 'Внешний ID',
			'db_field'	=> 'ext_id',
			'db_type'       => 'integer',
		},
		{							# Дополнительное поле индексации
			'attr'		=> 'alias',
			'type'		=> 'string',
			'rusname'	=> 'Алиас документа',
			'db_field'	=> 'alias',
			'db_type'       => 'text',
		},
	);
}

########### FILTERS DESCRIPTION ####################################################################################
sub _ext_id_filter {
	my ($self,%opts)=@_;
	return undef unless ( exists $opts{ext_id} );
	return &SQL::Common::_generic_int_filter('d.ext_id', $opts{ext_id});
}

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


1;