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

migrating paginator api to new session system

Browse source 
fixed a few old style session vars
This commit is contained in:
JT Smith 2006-01-12 17:24:06 +00:00
parent 65a40d75ac
commit 877bf082a0
34 changed files with 280 additions and 262 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -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}{$_}} @relevantFields});
WebGUI::Subscription->new($session->form->process("sid"))->set({map {$_ => $session->form->process("$_}} @relevantFields"));
return www_listSubscriptions();
}
@ -284,7 +284,7 @@ sub www_listSubscriptionCodeBatches {
my $i18n = WebGUI::International->new("Subscription");
$p = WebGUI::Paginator->new($session->url->page('op=listSubscriptionCodeBatches'));
$p = WebGUI::Paginator->new($session,$session->url->page('op=listSubscriptionCodeBatches'));
$p->setDataByQuery("select * from subscriptionCodeBatch");
$batches = $p->getPageData;
@ -359,7 +359,7 @@ sub www_listSubscriptionCodes {
return _submenu($output, 'listSubscriptionCodes title', 'subscription codes manage');
}
$p = WebGUI::Paginator->new($session->url->page('op=listSubscriptionCodes'.$ops));
$p = WebGUI::Paginator->new($session,$session->url->page('op=listSubscriptionCodes'.$ops));
$p->setDataByQuery("select t1.*, t2.* from subscriptionCode as t1, subscriptionCodeBatch as t2 where t1.batchId=t2.batchId ".$where);
$codes = $p->getPageData;
@ -396,7 +396,7 @@ sub www_listSubscriptions {
my $i18n = WebGUI::International->new("Subscription");
$p = WebGUI::Paginator->new($session->url->page('op=listSubscriptions'));
$p = WebGUI::Paginator->new($session,$session->url->page('op=listSubscriptions'));
$p->setDataByQuery('select subscriptionId, name from subscription where deleted != 1');
$subscriptions = $p->getPageData;