Revision 198 (by ahitrov, 2012/03/15 18:29:29) Simple webshop support plugin
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;