oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Extend existing non-recurring Subscriptions when rebought. Fixes bug #11010

Browse source
This commit is contained in:
Colin Kuskie 2009-09-21 22:17:21 -07:00
parent da2477d78c
commit 50d3f48936
3 changed files with 90 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lib/WebGUI/Asset/Sku/Subscription.pm
View file

@ -58,19 +58,30 @@ specified by the session variable.
sub apply {
my $self = shift;
my $userId = shift || $self->session->user->userId;
my $session = $self->session;
my $userId = shift || $session->user->userId;
my $groupId = $self->get('subscriptionGroup');
# Make user part of the right group and adjust the expiration date
my $group = WebGUI::Group->new($self->session,$groupId);
$group->addUsers( [$userId], $self->getExpirationOffset );
my $group = WebGUI::Group->new($session, $groupId);
my $user = WebGUI::User->new($session, $userId);
if ($user->isInGroup($group->getId) && ! $self->isRecurring) {
my $expireDate = $group->userGroupExpireDate($userId);
$expireDate += $self->getExpirationOffset;
$group->userGroupExpireDate($userId, $expireDate);
}
else {
$group->addUsers( [$userId], $self->getExpirationOffset );
}
# Add karma to the user's account
WebGUI::User->new($self->session,$userId)->karma($self->get('karma'), 'Subscription', 'Added for purchasing subscription '.$self->get('title'));
if ($session->setting->get('userKarma')) {
WebGUI::User->new($session,$userId)->karma($self->get('karma'), 'Subscription', 'Added for purchasing subscription '.$self->get('title'));
}
# Process the executeOnPurchase field
my $command = $self->get('executeOnSubscription');
WebGUI::Macro::process($self->session,\$command);
WebGUI::Macro::process($session,\$command);
system($command) if ($self->get('executeOnSubscription') ne "");
}