Line # Revision Author
1 259 ahitrov package webshop::Country;
2
3 use Contenido::Globals;
4 use base "Contenido::Document";
5 sub extra_properties
6 {
7 return (
8 { 'attr' => 'status', 'type' => 'status', 'rusname' => 'Статус',
9 'cases' => [
10 261 ahitrov [0, 'Запись не активна'],
11 [1, 'Запись активна'],
12 259 ahitrov ],
13 },
14 { 'attr' => 'pid', 'hidden' => 1 },
15 )
16 }
17
18 sub class_name
19 {
20 return 'Webshop: страна';
21 }
22
23 sub class_description
24 {
25 return 'Webshop: страна';
26 }
27
28 sub class_table
29 {
30 return 'webshop::SQL::RegionsTable';
31 }
32
33 sub table_links
34 {
35 return [
36 { name => 'Регионы', class => 'webshop::Area', filter => 'pid', field => 'pid' },
37 ];
38 }
39
40 sub pre_store
41 {
42 my $self = shift;
43
44 my $default_section = $project->s_alias->{webshop_country} if ref $project->s_alias eq 'HASH';
45 my $sections = $self->{sections};
46 if ( $default_section ) {
47 if ( ref $sections eq 'ARRAY' && scalar @$sections ) {
48 my @new_sects = grep { $_ != $default_section } @$sections;
49 push @new_sects, $default_section;
50 $self->sections(@new_sects);
51 } elsif ( $sections && !ref $sections && $sections != $default_section ) {
52 my @new_sects = ($default_section, $sections);
53 $self->sections(@new_sects);
54 } else {
55 $self->sections($default_section);
56 }
57 }
58
59 return 1;
60 }
61
62
63 1;