Revision Navigation

Previous Revision
Next Revision
Most Recent

Revision 854

Date:

2026/08/25 21:37:05

Author:

ahitrov

Revision Log:

Autoinit coupons from user coupons after store

Files:

Legend:

: Added
: Removed
: Modified

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


705	705	}
706	706
707	707
	708	sub user_coupons_to_order {
	709	my $self = shift;
	710	my ($session) = @_;
	711
	712	warn "User coupons transfer begins:\n" if $DEBUG;
	713	my %dopts;
	714	if ( $session->id ) {
	715	$dopts{luid} = $session->id;
	716	} else {
	717	$dopts{lsession} = $session->_session_id;
	718	}
	719
	720	my $now = Contenido::DateTime->new;
	721	my @coupons = $keeper->get_documents(
	722	class => 'webshop::Coupon',
	723	lclass => 'webshop::OrderCouponLink',
	724	lsource => 0,
	725	status => 1,
	726	interval=> [$now->ymd, $now->ymd],
	727	%dopts,
	728	);
	729	my $user_coupons = $keeper->get_documents(
	730	class => 'webshop::Coupon',
	731	lclass => 'webshop::ProfileCouponLink',
	732	status => 1,
	733	%dopts,
	734	return_mode => 'hash_ref',
	735	);
	736	foreach my $coupon ( @coupons ) {
	737	if ( exists $user_coupons->{$coupon->id} ) {
	738	delete $user_coupons->{$coupon->id};
	739	}
	740	}
	741	foreach my $user_coupon ( values %$user_coupons ) {
	742	if ( !$user_coupon->is_accessible($session) ) {
	743	next;
	744	}
	745
	746	my $coupon_link = webshop::OrderCouponLink->new( $keeper );
	747	$coupon_link->status( 1 );
	748	$coupon_link->dest_id( $user_coupon->id );
	749	$coupon_link->dest_class( $user_coupon->class );
	750	$coupon_link->source_id( 0 );
	751	if ( $session->id ) {
	752	$coupon_link->uid( $session->id );
	753	} else {
	754	$coupon_link->session( $session->_session_id );
	755	}
	756	$coupon_link->store;
	757	push @coupons, $user_coupon;
	758	}
	759
	760	return \@coupons;
	761	}
	762
708	763	### Метод проверки и регистрации купона по введенному коду.
709	764	# Код не чувствителен к регистру.
710	765	#############################################################

utf8/plugins/webshop/lib/webshop/Order.pm


200	200	{
201	201	my $self = shift;
202	202
203		if ( grep { $_ eq 'payments' } split /\s+/, $state->plugins ) {
	203	my @plugins = split (/\s+/, $state->{plugins});
	204	if ( grep { $_ eq 'payments' } @plugins ) {
204	205	my $action;
205	206	my ($lastop) = $keeper->get_documents( class => 'payments::Operation', order_id => $self->id, order_by => 'id desc', limit => 1 );
206	207	if ( ref $lastop ) {
…	…
236	237	my $op = $keeper->{payments}->add( order => $self, type => $action, ref $user ? (uuid => $user->id) : () );
237	238	}
238	239	}
	240
	241	if ( grep { $_ eq 'session' } @plugins && ref $session ) {
	242	$keeper->{webshop}->user_coupons_to_order( $session );
	243	}
	244
239	245	return 1;
240	246	}
241	247

utf8/plugins/webshop/lib/webshop/SQL/CouponsTable.pm


219	219
220	220	# Ограничение по uid
221	221	if ( exists $opts{luid} ) {
222		my ($where, $values) = SQL::Common::_generic_int_filter('l.uid', $opts{luid});
223		push (@wheres, $where);
224		push (@binds, ref($values) ? @$values:$values) if (defined $values);
	222	if ( $lclass eq 'webshop::ProfileCouponLink' ) {
	223	$opts{lsource} = $opts{luid};
	224	} else {
	225	my ($where, $values) = SQL::Common::_generic_int_filter('l.uid', $opts{luid});
	226	push (@wheres, $where);
	227	push (@binds, ref($values) ? @$values:$values) if (defined $values);
	228	}
225	229	}
226	230
227	231	# Ограничение по сессии

Repository List / Contenido @ r854

Revision Navigation

Revision 854

Legend:

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

utf8/plugins/webshop/lib/webshop/Order.pm

utf8/plugins/webshop/lib/webshop/SQL/CouponsTable.pm

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