package IIf36e12b41a7a84d25fce0419eb850e82::mod_getusermembership; use strict; use base qw/II720d6e18aa34327713eb014408fc9144/; use IIc006e1d88f66a3969ffd0192be9acb1b; use IIc9f035ff8503e79af87975c1cfc1fd75; use IIb02f8d3064e235967de5c537b3e7ce9b; sub call { my ($class, $api, $in) = @_; my $user_mem = II982446f8950cc3dc59e487adba22df54::lllllIllIlIllllI($IIb39071a48a82a07eeb9256f406abebc5::IlllIIlIllllIIIl{$IIb39071a48a82a07eeb9256f406abebc5::lllllllIlIllIlIl},7,$IIb39071a48a82a07eeb9256f406abebc5::IlllIIlIllllIIIl{$II720d6e18aa34327713eb014408fc9144::IllIllIIlIIIIlIl})->search(type => 'membership', user_id => $in->{user_id}, obj_id => $in->{membership_id})->[0] or return (undef, 'RECORD_NOT_FOUND', "Record not found"); my $data = {}; $data->{Membership} = $user_mem; $data->{MembershipFields} = [qw/ ctime obj_id obj_title sale_id expires expired /]; if ($user_mem->{sale_id}) { $data->{Sale} = $user_mem->getSale; $data->{SaleFields} = [II982446f8950cc3dc59e487adba22df54::lIlIllIlllllIlll($II720d6e18aa34327713eb014408fc9144::lIIIlIlIlllIIIll{$II982446f8950cc3dc59e487adba22df54::IIIllIlIlIIIllII},100,$II720d6e18aa34327713eb014408fc9144::lIIIlIlIlllIIIll{$II720d6e18aa34327713eb014408fc9144::lIIlllIllIlIllll})->fields]; $data->{Order} = $data->{Sale}->getOrder; $data->{OrderFields} = [II8dae0e141ee45f5daba6a74e4a7c3b6f::lllIllIIIllIllII($II720d6e18aa34327713eb014408fc9144::lIIIlIlIlllIIIll{$II982446f8950cc3dc59e487adba22df54::IlIllIIIlllIlIll},11,$II720d6e18aa34327713eb014408fc9144::lIIIlIlIlllIIIll{$II8dae0e141ee45f5daba6a74e4a7c3b6f::IlllIllIIIIIllIl})->fields]; } $data; } 1; 