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;