Line # Revision Author
1 413 ahitrov package webshop::Payment;
2
3 use base "Contenido::Document";
4
5 sub extra_properties
6 {
7 return (
8 { 'attr' => 'status', 'type' => 'status', 'rusname' => 'Статус',
9 'cases' => [
10 [0, 'Не активен'],
11 [1, 'Действует'],
12 716 ahitrov [2, 'Отладка'],
13 413 ahitrov ],
14 },
15 { 'attr' => 'dtime', 'hidden' => 1, column => undef },
16 { 'attr' => 'class', 'column' => undef },
17 453 ahitrov { 'attr' => 'alias', 'type' => 'string', 'column' => undef, 'rusname' => 'Алиас метода оплаты' },
18 413 ahitrov { 'attr' => 'abstr', 'type' => 'text', 'rusname' => 'Краткое описание' },
19 { 'attr' => 'online', 'type' => 'checkbox', 'rusname' => 'Онлайн-оплата', column => 4 },
20 786 ahitrov
21 { 'attr' => 'discount', 'type' => 'integer', 'rusname' => 'Скидка, %' },
22 { 'attr' => 'exclude_specials', 'type' => 'checkbox', 'rusname' => 'Исключить спецпредложения', default => 1 },
23 { 'attr' => 'summarize', 'type' => 'checkbox', 'rusname' => 'Суммируется со скидкой на объем заказа' },
24
25 413 ahitrov { 'attr' => 'url', 'type' => 'string', 'rusname' => 'URL перехода на страницу оплаты',
26 'shortname' => 'URL перехода', column => 5,
27 'rem' => 'техническое поле, заполняется программистом' },
28 # { 'attr' => 'handler', 'type' => 'string', 'rusname' => 'Обработчик', rem => 'техническое поле, заполняется программистом' },
29 )
30 }
31
32
33 sub class_name
34 {
35 return 'Способ оплаты';
36 }
37
38 sub class_description
39 {
40 return 'Способ оплаты';
41 }
42
43 716 ahitrov sub contenido_status_style
44 {
45 my $self = shift;
46 if ( $self->status == 2 ) {
47 return 'color:green;';
48 }
49 }
50
51 413 ahitrov sub pre_store
52 {
53 my $self = shift;
54
55 my $default_section = $project->s_alias->{payment} if ref $project->s_alias eq 'HASH' && exists $project->s_alias->{payment};
56 my $sections = $self->{sections};
57 if ( $default_section ) {
58 if ( ref $sections eq 'ARRAY' && scalar @$sections ) {
59 my @new_sects = grep { $_ != $default_section } @$sections;
60 push @new_sects, $default_section;
61 $self->sections(@new_sects);
62 } elsif ( $sections && !ref $sections && $sections != $default_section ) {
63 my @new_sects = ($sections, $default_section);
64 $self->sections(@new_sects);
65 } else {
66 $self->sections($default_section);
67 }
68 }
69
70 return 1;
71 }
72
73 1;