package webshop::Delivery; use base "Contenido::Document"; sub extra_properties { return ( { 'attr' => 'status', 'type' => 'status', 'rusname' => 'Статус', 'cases' => [ [0, 'Не активна'], [1, 'Действует'], ], }, { 'attr' => 'dtime', 'hidden' => 1 }, { 'attr' => 'price', 'type' => 'string', 'rusname' => 'Стоимость доставки (NN или NN%)', default => 0 }, { 'attr' => 'abstr', 'type' => 'text', 'rusname' => 'Краткое описание' }, { 'attr' => 'fields', 'type' => 'status_multi', 'rusname' => 'Поля, необходимые к заполнению', 'cases' => [ ['timeline','Время заказа'], ['zipcode','Почтовый индекс'], ['town','Город'], ['address','Адрес'], ['metro','Ближайшее метро'], ], }, ) } sub class_name { return 'Способ доставки'; } sub class_description { return 'Способ доставки'; } sub pre_store { my $self = shift; my $default_section = $project->s_alias->{delivery} if ref $project->s_alias eq 'HASH'; my $sections = $self->{sections}; if ( $default_section ) { if ( ref $sections eq 'ARRAY' && scalar @$sections ) { my @new_sects = grep { $_ != $default_section } @$sections; push @new_sects, $default_section; $self->sections(@new_sects); } elsif ( $sections && !ref $sections && $sections != $default_section ) { my @new_sects = ($default_section, $sections); $self->sections(@new_sects); } else { $self->sections($default_section); } } return 1; } 1;