Line # Revision Author
1 741 ahitrov package Contenido::Email;
2
3 use strict;
4 use base 'Contenido::Document';
5 use Contenido::Globals;
6
7 sub extra_properties
8 {
9
10 return (
11 { 'attr' => 'status',
12 'cases' => [
13 [0, 'Ожидает доставки'],
14 [1, 'Доставлен'],
15 [2, 'Обработка'],
16 [3, 'Ошибка'],
17 [-1, 'Удален'],
18 ],
19 },
20 { 'attr' => 'cc', 'type' => 'text', 'rusname' => 'Дополнительные получатели (по одному на строку)', rows => 10 },
21 { 'attr' => 'body_text', 'type' => 'text', 'rusname' => 'Текст письма (txt)', 'rows' => 40 },
22 { 'attr' => 'body_html', 'type' => 'wysiwyg', 'rusname' => 'Текст письма (html)', 'rows' => 40 },
23 { 'attr' => 'pictures', 'type' => 'images', 'rusname' => 'Список иллюстраций', preview => ['400x400'], crop => ['870x450','85x85'] },
24 )
25 }
26
27
28 sub class_name
29 {
30 return 'E-mail';
31 }
32
33 sub class_description
34 {
35 return 'E-mail сообщение';
36 }
37
38 sub contenido_status_style
39 {
40 my $self = shift;
41 if ( $self->status == 2 ) {
42 return 'color:green;';
43 } elsif ( $self->status == 3 ) {
44 return 'color:green;';
45 } elsif ( $self->status < 0 ) {
46 return 'text-decoration:line-through;';
47 }
48 }
49
50 sub class_table
51 {
52 return 'SQL::MailQueueTable';
53 }
54
55 sub search_fields {
56 return ('name');
57 }
58
59 sub pre_store
60 {
61 my $self = shift;
62 my $default_section = $project->s_alias->{spam} if ref $project->s_alias && exists $project->s_alias->{spam};
63 if ( $default_section ) {
64 $self->sections($default_section);
65 }
66
67 return 1;
68 }
69
70 1;