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

converted subscription api

Browse source
This commit is contained in:
JT Smith 2006-01-12 19:27:59 +00:00
parent 1e5034acd6
commit 0cc5884b77
4 changed files with 42 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/WebGUI/Operation/Subscription.pm
View file

@ -156,7 +156,7 @@ sub www_deleteSubscription {
my $session = shift;
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
WebGUI::Subscription->new($session->form->process("sid"))->delete;
WebGUI::Subscription->new($session,$session->form->process("sid"))->delete;
return www_listSubscriptions();
}
@ -196,7 +196,7 @@ sub www_editSubscription {
my $i18n = WebGUI::International->new($session, "Subscription");
unless ($session->form->process("sid") eq 'new') {
$properties = WebGUI::Subscription->new($session->form->process("sid"))->get;
$properties = WebGUI::Subscription->new($session,$session->form->process("sid"))->get;
}
$subscriptionId = $session->form->process("sid") || 'new';
@ -271,7 +271,7 @@ sub www_editSubscriptionSave {
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
@relevantFields = qw(subscriptionId name price description subscriptionGroup duration executeOnSubscription karma);
WebGUI::Subscription->new($session->form->process("sid"))->set({map {$_ => $session->form->process("$_}} @relevantFields"));
WebGUI::Subscription->new($session,$session->form->process("sid"))->set({map {$_ => $session->form->process("$_}} @relevantFields"));
return www_listSubscriptions();
}
@ -439,7 +439,7 @@ sub www_redeemSubscriptionCode {
# Code is ok
@subscriptions = $session->db->buildArray("select subscriptionId from subscriptionCodeSubscriptions where code=".$session->db->quote($session->form->process("code")));
foreach (@subscriptions) {
WebGUI::Subscription->new($_)->apply;
WebGUI::Subscription->new($session,$_)->apply;
}
# Set code to Used