Line # | Revision | Author | |
---|---|---|---|
1 | 296 | ahitrov | package promosuite::Event; |
2 | |||
3 | use strict; | ||
4 | |||
5 | use promosuite::SQL::SampleTable; | ||
6 | use base 'Contenido::Document'; | ||
7 | |||
8 | sub extra_properties | ||
9 | { | ||
10 | return ( | ||
11 | { 'attr' => 'abstr', 'type' => 'text', 'rusname' => 'Аннотация', 'rows' => 10 }, | ||
12 | ) | ||
13 | } | ||
14 | |||
15 | sub class_name | ||
16 | { | ||
17 | return 'Событие'; | ||
18 | } | ||
19 | |||
20 | sub class_description | ||
21 | { | ||
22 | return 'Событие'; | ||
23 | } | ||
24 | |||
25 | sub class_table | ||
26 | { | ||
27 | return 'promosuite::SQL::Events'; | ||
28 | } | ||
29 | |||
30 | 1; |