Line # Revision Author
1 198 ahitrov package webshop::Delivery;
2
3 use base "Contenido::Document";
4 sub extra_properties
5 {
6 return (
7 { 'attr' => 'status', 'type' => 'status', 'rusname' => 'Статус',
8 'cases' => [
9 [0, 'Не активна'],
10 [1, 'Действует'],
11 ],
12 },
13 { 'attr' => 'dtime', 'hidden' => 1 },
14 { 'attr' => 'price', 'type' => 'string', 'rusname' => 'Стоимость доставки (NN или NN%)', default => 0 },
15 { 'attr' => 'abstr', 'type' => 'text', 'rusname' => 'Краткое описание' },
16 { 'attr' => 'fields', 'type' => 'status_multi', 'rusname' => 'Поля, необходимые к заполнению',
17 'cases' => [
18 ['timeline','Время заказа'],
19 ['zipcode','Почтовый индекс'],
20 ['town','Город'],
21 ['address','Адрес'],
22 ['metro','Ближайшее метро'],
23 ],
24 },
25 )
26 }
27
28 sub class_name
29 {
30 return 'Способ доставки';
31 }
32
33 sub class_description
34 {
35 return 'Способ доставки';
36 }
37
38 sub pre_store
39 {
40 my $self = shift;
41
42 my $default_section = $project->s_alias->{delivery} if ref $project->s_alias eq 'HASH';
43 my $sections = $self->{sections};
44 if ( $default_section ) {
45 if ( ref $sections eq 'ARRAY' && scalar @$sections ) {
46 my @new_sects = grep { $_ != $default_section } @$sections;
47 push @new_sects, $default_section;
48 $self->sections(@new_sects);
49 } elsif ( $sections && !ref $sections && $sections != $default_section ) {
50 my @new_sects = ($default_section, $sections);
51 $self->sections(@new_sects);
52 } else {
53 $self->sections($default_section);
54 }
55 }
56
57 return 1;
58 }
59
60 1;