Line # Revision Author
1 296 ahitrov package promosuite::Postcard;
2
3 use strict;
4 use vars qw(@ISA);
5
6 use Contenido::Document;
7 use Time::ParseDate;
8 use Contenido::Globals;
9
10 @ISA = ('Contenido::Document');
11
12 sub extra_properties
13 {
14
15 return (
16 { 'attr' => 'from', 'type' => 'string', 'rusname' => 'От кого', },
17 { 'attr' => 'to', 'type' => 'string', 'rusname' => 'Кому', },
18 { 'attr' => 'abstr', 'type' => 'text', 'rusname' => 'Аннотация', 'rows' => 10 },
19 { 'attr' => 'body', 'type' => 'text', 'rusname' => 'Описание', 'rows' => 40 },
20 { 'attr' => 'params', 'type' => 'text', 'rusname' => 'Параметры flash-открытки', 'rows' => 10 },
21 { 'attr' => 'icon', 'type' => 'image', 'rusname' => 'Иконка 120x120', 'preview' => '120x120' },
22 { 'attr' => 'picture', 'type' => 'image', 'rusname' => 'Картинко' },
23 { 'attr' => 'pictures', 'type' => 'images', 'rusname' => 'Дополнительные картинки', 'preview' => '240x240' },
24 )
25 }
26
27 sub class_name
28 {
29 return 'Открытка';
30 }
31
32 sub class_description
33 {
34 return 'Открытка';
35 }
36
37 sub class_table
38 {
39 return 'promosuite::SQL::PostcardTable';
40 }
41
42 1;