Revision Navigation

Revision 839

Date:

2022/01/08 11:44:24

Author:

ahitrov

Revision Log:

Retail vs wholesale coupon check

Files:

Legend:

: Added
: Removed
: Modified

utf8/plugins/webshop/lib/webshop/Coupon.pm


164	164	}
165	165
166	166
	167	###############################
	168	# Проверка доступности по объекту сессии. В случае конфликта
	169	# возвращает 0, иначе 1.
	170	###########################################################
	171	sub is_accessible
	172	{
	173	my $self = shift;
	174	my $session = shift;
167	175
	176	if ( !$self->accessible ) {
	177	return 1;
	178	}
	179	if ( !ref $session ) {
	180	return !$self->accessible \|\| $self->accessible == 1 ? 1 : 0;
	181	}
	182	if ( $session->get('company_id') && $self->accessible == 2 \|\| !$session->get('company_id') && $self->accessible == 1 ) {
	183	return 1;
	184	}
168	185
	186	return 0;
	187	}
	188
	189
169	190	#sub table_links
170	191	#{
171	192	# return [

utf8/plugins/webshop/lib/webshop/Keeper.pm


465	465	source_id => 0,
466	466	return_mode => 'array_ref',
467	467	);
	468	my %cids = map{ $_->dest_id => 1 } (@items, @$merge_to);
	469	my @cids = keys %cids;
	470	my $coupons = @cids ? $keeper->get_documents(
	471	class => 'webshop::Coupon',
	472	id => \@cids,
	473	return_mode => 'hash_ref',
	474	) : {};
468	475	my %merge_to;
469	476	foreach my $link ( @$merge_to ) {
470		if ( exists $merge_to{$link->dest_id} ) {
	477	my $coupon = $coupons->{$link->dest_id};
	478	if ( !ref $coupon \|\| !$coupon->is_accessible($opts{session}) ) {
471	479	$link->delete;
	480	} elsif ( exists $merge_to{$link->dest_id} ) {
	481	$link->delete;
472	482	} else {
473	483	$merge_to{$link->dest_id} = $link;
474	484	}
475	485	}
476	486	foreach my $item ( @items ) {
477		if ( exists $merge_to{$item->dest_id} ) {
	487	my $coupon = $coupons->{$link->dest_id};
	488	if ( !ref $coupon \|\| !$coupon->is_accessible($opts{session}) ) {
	489	$link->delete;
	490	} elsif ( exists $merge_to{$item->dest_id} ) {
478	491	$item->delete;
479	492	} else {
480	493	$item->session( undef );
…	…
567	580	return ($discount_sum, $discount_payment, $summarize);
568	581	}
569	582
	583
	584	### Метод проверки и получения списка доступных купонов
	585	#############################################################
570	586	sub check_coupons {
571	587	my $self = shift;
572	588	my (%opts) = @_;
…	…
575	591	my %dopts;
576	592	if ( exists $opts{uid} && $opts{uid} ) {
577	593	$dopts{luid} = $opts{uid};
578		} else {
579		$dopts{lsession} = $opts{session};
	594	} elsif ( ref $opts{session} ) {
	595	$dopts{lsession} = $opts{session}->_session_id;
580	596	}
581	597	my $basket = exists $opts{basket} ? $opts{basket} : $self->get_basket( %opts, with_products => 1 );
582	598	return (0, []) unless ref $basket eq 'ARRAY' && @$basket;
…	…
593	609	%dopts,
594	610	);
595	611	return (0, []) unless @coupons;
596		my @usable = grep { $_->discount } @coupons;
	612	my @usable = grep { $_->discount && $_->is_accessible($opts{session}) } @coupons;
597	613	warn "We count on ".scalar(@usable)." coupons: [".join(', ', map { $_->id.'. '.$_->name } @usable)."]\n" if $DEBUG;
598	614	my ($total, $sum) = $self->basket_count( \@basket );
599	615	return (0, \@usable) unless $sum;
…	…
642	658	}
643	659
644	660
	661	### Метод проверки и регистрации купона по введенному коду.
	662	# Код не чувствителен к регистру.
	663	#############################################################
645	664	sub register_coupon {
646	665	my $self = shift;
647	666	my ($code, $session) = @_;
…	…
701	720	ilike => 1,
702	721	);
703	722	}
704		if ( ref $coupon ) {
	723	if ( ref $coupon && $coupon->is_accessible($session) ) {
705	724	if ( $coupon->uid && $coupon->status == 3 ) {
706	725	$result{error} = 'Купон уже использован';
707	726	}

Repository List / Contenido @ r839

Revision Navigation

Revision 839

Legend:

utf8/plugins/webshop/lib/webshop/Coupon.pm

utf8/plugins/webshop/lib/webshop/Keeper.pm

Небольшая справка по веткам