1 |
480 |
ahitrov |
package tag::SQL::TagsCloudTable; |
2 |
|
|
|
3 |
|
|
use strict; |
4 |
|
|
use base 'SQL::LinkTable'; |
5 |
|
|
|
6 |
|
|
sub db_table |
7 |
|
|
{ |
8 |
|
|
return 'tags_cloud'; |
9 |
|
|
} |
10 |
|
|
|
11 |
|
|
# ---------------------------------------------------------------------------- |
12 |
|
|
# Свойства храним в массивах, потому что порядок важен! |
13 |
|
|
# Это общие свойства - одинаковые для всех документов. |
14 |
|
|
# |
15 |
|
|
# attr - обязательный параметр, название атрибута; |
16 |
|
|
# type - тип аттрибута, требуется для отображдения; |
17 |
|
|
# rusname - русское название, опять же требуется для отображения; |
18 |
|
|
# hidden - равен 1, когда |
19 |
|
|
# readonly - инициализации при записи только без изменения в дальнейшем |
20 |
|
|
# db_field - поле в таблице |
21 |
|
|
# default - значение по умолчанию (поле всегда имеет это значение) |
22 |
|
|
# ---------------------------------------------------------------------------- |
23 |
|
|
sub required_properties |
24 |
|
|
{ |
25 |
|
|
my $self = shift; |
26 |
|
|
|
27 |
|
|
my @parent_properties = $self->SUPER::required_properties; |
28 |
|
|
return ( |
29 |
|
|
@parent_properties, |
30 |
|
|
); |
31 |
|
|
} |
32 |
|
|
|
33 |
|
|
########### FILTERS DESCRIPTION #################################################################################### |
34 |
|
|
|
35 |
|
|
1; |
36 |
|
|
|