Line # Revision Author
1 727 ahitrov package webshop::SQL::DeliveryTable;
2
3 use base 'SQL::DocumentTable';
4
5 sub db_table
6 {
7 return 'webshop_delivery';
8 }
9
10 my $available_filters = [qw(
11
12 _class_filter
13 _status_filter
14 _in_id_filter
15 _id_filter
16 _name_filter
17 _class_excludes_filter
18 _sfilter_filter
19 _excludes_filter
20 _datetime_filter
21 _date_equal_filter
22 _date_filter
23 _previous_days_filter
24 _s_filter
25
26 _alias_filter
27 )];
28
29 sub available_filters {
30 return $available_filters;
31 }
32
33
34 # ----------------------------------------------------------------------------
35 # Свойства храним в массивах, потому что порядок важен!
36 # Это общие свойства - одинаковые для всех документов.
37 #
38 # attr - обязательный параметр, название атрибута;
39 # type - тип аттрибута, требуется для отображдения;
40 # rusname - русское название, опять же требуется для отображения;
41 # hidden - равен 1, когда
42 # readonly - инициализации при записи только без изменения в дальнейшем
43 # db_field - поле в таблице
44 # default - значение по умолчанию (поле всегда имеет это значение)
45 # ----------------------------------------------------------------------------
46 sub required_properties
47 {
48 my $self = shift;
49
50 my @parent_properties = $self->SUPER::required_properties;
51 return (
52 @parent_properties,
53 { # User ID
54 'attr' => 'alias',
55 'type' => 'string',
56 'rusname' => 'Alias доставки',
57 'db_field' => 'alias',
58 'db_type' => 'text',
59 },
60 );
61 }
62
63 ########### FILTERS DESCRIPTION ###############################################################################
64 sub _alias_filter {
65 my ($self,%opts)=@_;
66 return undef unless ( exists $opts{alias} );
67 return &SQL::Common::_generic_text_filter('d.alias', $opts{alias});
68 }
69
70 1;