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

2
lib/WebGUI/Operation/ActiveSessions.pm
View file

@ -76,7 +76,7 @@ sub www_viewActiveSessions {
$i++;
}
$sth->finish;
$p = WebGUI::Paginator->new($session->url->page('op=viewActiveSessions'));
$p = WebGUI::Paginator->new($session,$session->url->page('op=viewActiveSessions'));
$p->setDataByArrayRef(\@row);
$output .= '<table border="1" cellpadding="5" cellspacing="0" align="center">';
$output .= '<tr class="tableHeader"><td>'.WebGUI::International::get(428).'</td>';

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

@ -527,10 +527,10 @@ sub www_editCommerceSettingsSave {
type => $1,
namespace => $2,
fieldName => $3,
fieldValue => $session{form}{$_}
fieldValue => $session->form->process("$_")
});
} elsif ($_ ne 'op') {
WebGUI::Setting::set($_,$session{form}{$_});
WebGUI::Setting::set($_,$session->form->process("$_"));
}
}
@ -545,7 +545,7 @@ sub www_listPendingTransactions {
$i18n = WebGUI::International->new("Commerce");
$p = WebGUI::Paginator->new($session->url->page('op=listPendingTransactions'));
$p = WebGUI::Paginator->new($session,$session->url->page('op=listPendingTransactions'));
$p->setDataByArrayRef(WebGUI::Commerce::Transaction->pendingTransactions);
$transactions = $p->getPageData;
@ -776,7 +776,7 @@ my $shoppingCart = WebGUI::Commerce::ShoppingCart->new;
foreach my $formElement (keys(%{$session{form}})) {
if ($formElement =~ m/^quantity~([^~]*)~([^~]*)$/) {
$shoppingCart->setQuantity($2, $1, $session{form}{$formElement});
$shoppingCart->setQuantity($2, $1, $session->form->process("$formElement"));
}
}

6
lib/WebGUI/Operation/Group.pm
View file

@ -87,7 +87,7 @@ sub doGroupSearch {
my $sql = "select groupId,groupName,description from groups where isEditable=1 and (groupName like $keyword or description like $keyword)
and groupId not in (".$session->db->quoteAndJoin($groupFilter).") order by groupName";
if ($returnPaginator) {
my $p = WebGUI::Paginator->new($session->url->page($op));
my $p = WebGUI::Paginator->new($session,$session->url->page($op));
$p->setDataByQuery($sql);
return $p;
} else {
@ -579,7 +579,7 @@ sub www_listGroups {
$i++;
}
$sth->finish;
$p = WebGUI::Paginator->new($session->url->page('op=listGroups'));
$p = WebGUI::Paginator->new($session,$session->url->page('op=listGroups'));
$p->setDataByArrayRef(\@row);
$output .= '<table border="1" cellpadding="5" cellspacing="0" align="center">';
$output .= '<tr><td class="tableHeader">'.WebGUI::International::get(84).'</td><td class="tableHeader">'
@ -642,7 +642,7 @@ sub www_manageUsersInGroup {
.WebGUI::Icon::_getBaseURL().'delete.gif" border="0"></td>
<td class="tableHeader">'.WebGUI::International::get(50).'</td>
<td class="tableHeader">'.WebGUI::International::get(369).'</td></tr>';
my $p = WebGUI::Paginator->new($session->url->page("op=manageUsersInGroup;gid=".$session->form->process("gid")));
my $p = WebGUI::Paginator->new($session,$session->url->page("op=manageUsersInGroup;gid=".$session->form->process("gid")));
$p->setDataByQuery("select users.username,users.userId,groupings.expireDate
from groupings,users where groupings.groupId=".$session->db->quote($session->form->process("gid"))." and groupings.userId=users.userId
order by users.username");

2
lib/WebGUI/Operation/LDAPLink.pm
View file

@ -243,7 +243,7 @@ sub www_listLDAPLinks {
$i++;
}
$sth->finish;
$p = WebGUI::Paginator->new($session->url->page('op=listLDAPLinks'));
$p = WebGUI::Paginator->new($session,$session->url->page('op=listLDAPLinks'));
$p->setDataByArrayRef(\@row);
$output .= '<table border="1" cellpadding="3" cellspacing="0" align="center">';
$output .= $p->getPage;

2
lib/WebGUI/Operation/LoginHistory.pm
View file

@ -53,7 +53,7 @@ sub www_viewLoginHistory {
$i++;
}
$sth->finish;
$p = WebGUI::Paginator->new($session->url->page('op=viewLoginHistory'));
$p = WebGUI::Paginator->new($session,$session->url->page('op=viewLoginHistory'));
$p->setDataByArrayRef(\@row);
$output .= '<table border="1" cellpadding="5" cellspacing="0" align="center">';
$output .= '<tr class="tableHeader"><td>'.WebGUI::International::get(428).'</td>';

2
lib/WebGUI/Operation/MessageLog.pm
View file

@ -61,7 +61,7 @@ sub www_viewMessageLog {
my (@msg, $vars);
return $session->privilege->insufficient() unless ($session->user->isInGroup(2,$session->user->profileField("userId")));
$vars->{displayTitle} = '<h1>'.WebGUI::International::get(159).'</h1>';
my $p = WebGUI::Paginator->new($session->url->page('op=viewMessageLog'));
my $p = WebGUI::Paginator->new($session,$session->url->page('op=viewMessageLog'));
my $query = "select messageLogId,subject,url,dateOfEntry,status from messageLog where userId=".$session->db->quote($session->user->profileField("userId"))." order by dateOfEntry desc";
$p->setDataByQuery($query);

2
lib/WebGUI/Operation/Settings.pm
View file

@ -300,7 +300,7 @@ sub www_saveSettings {
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
my ($key, $value);
foreach $key (keys %{$session{form}}) {
$value = $session{form}{$key};
$value = $session->form->process("$key");
if ($key =~ m/(.*)_interval/) {
$value = $session->form->interval($1);
$key = $1;

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;

2
lib/WebGUI/Operation/User.pm
View file

@ -139,7 +139,7 @@ sub doUserSearch {
where $selectedStatus and (users.username like ".$keyword." or useralias.fieldData like ".$keyword." or email.fieldData like ".$keyword.")
and users.userId not in (".$session->db->quoteAndJoin($userFilter).") order by users.username";
if ($returnPaginator) {
my $p = WebGUI::Paginator->new($session->url->page("op=".$op));
my $p = WebGUI::Paginator->new($session,$session->url->page("op=".$op));
$p->setDataByQuery($sql);
return $p;
} else {