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

replaced $session{cgi} with $session{req}

Browse source
This commit is contained in:
Matthew Wilson 2005-11-03 21:48:37 +00:00
parent 1b0adbb416
commit c01d7e49d5
33 changed files with 76 additions and 66 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -158,7 +158,7 @@ sub walkGroups {
#-------------------------------------------------------------------
sub www_addGroupsToGroupSave {
return WebGUI::Privilege::adminOnly() unless (WebGUI::Grouping::isInGroup(3) || _hasSecondaryPrivilege($session{form}{gid}));
my @groups = $session{cgi}->param('groups');
my @groups = $session{req}->param('groups');
WebGUI::Grouping::addGroupsToGroups(\@groups,[$session{form}{gid}]);
return www_manageGroupsInGroup();
}
@ -166,7 +166,7 @@ sub www_addGroupsToGroupSave {
#-------------------------------------------------------------------
sub www_addUsersToGroupSave {
return WebGUI::Privilege::adminOnly() unless (WebGUI::Grouping::isInGroup(3) || _hasSecondaryPrivilege($session{form}{gid}));
my @users = $session{cgi}->param('users');
my @users = $session{req}->param('users');
WebGUI::Grouping::addUsersToGroups(\@users,[$session{form}{gid}]);
return www_manageUsersInGroup();
}
@ -226,8 +226,8 @@ sub www_deleteGrouping {
if (($session{user}{userId} eq $session{form}{uid} || $session{form}{uid} eq '3') && $session{form}{gid} eq '3') {
return WebGUI::Privilege::vitalComponent();
}
my @users = $session{cgi}->param('uid');
my @groups = $session{cgi}->param("gid");
my @users = $session{req}->param('uid');
my @groups = $session{req}->param("gid");
foreach my $user (@users) {
my $u = WebGUI::User->new($user);
$u->deleteFromGroups(\@groups);

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

@ -560,7 +560,7 @@ sub www_listProductVariantsSave {
return WebGUI::Privilege::insufficient unless (WebGUI::Grouping::isInGroup(14));
my %availableVariants = map {$_ => 1} $session{cgi}->param('available');
my %availableVariants = map {$_ => 1} $session{req}->param('available');
my $product = WebGUI::Product->new($session{form}{productId});
my @variants = @{$product->getVariant};

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

@ -93,7 +93,7 @@ sub www_createSubscriptionCodeBatch {
-options=> \%subscriptions,
-multiple=>1,
-size => 5,
-value => [ ($session{cgi}->param('subscriptionId'))]
-value => [ ($session{req}->param('subscriptionId'))]
);
$f->textarea(
-name => 'description',
@ -136,7 +136,7 @@ sub www_createSubscriptionCodeBatchSave {
WebGUI::SQL->write("insert into subscriptionCode (batchId, code, status, dateCreated, dateUsed, expires, usedBy)".
" values (".quote($batchId).",".quote($code).", 'Unused', ".quote($creationEpoch).", 0, ".quote($expires).", 0)");
@subscriptions = $session{cgi}->param('subscriptionId');
@subscriptions = $session{req}->param('subscriptionId');
foreach (@subscriptions) {
WebGUI::SQL->write("insert into subscriptionCodeSubscriptions (code, subscriptionId) values (".
quote($code).", ".quote($_).")");

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

@ -169,8 +169,8 @@ sub www_deleteGrouping {
if (($session{user}{userId} eq $session{form}{uid} || $session{form}{uid} eq '3') && $session{form}{gid} eq '3') {
return _submenu(WebGUI::Privilege::vitalComponent());
}
my @users = $session{cgi}->param('uid');
my @groups = $session{cgi}->param("gid");
my @users = $session{req}->param('uid');
my @groups = $session{req}->param("gid");
foreach my $user (@users) {
my $u = WebGUI::User->new($user);
$u->deleteFromGroups(\@groups);
@ -323,7 +323,7 @@ sub www_editUser {
$previousCategory = $category;
}
$a->finish;
my @groupsToAdd = $session{cgi}->param("groupsToAdd");
my @groupsToAdd = $session{req}->param("groupsToAdd");
my @exclude = WebGUI::SQL->buildArray("select groupId from groupings where userId=".quote($u->userId));
@exclude = (@exclude,"1","2","7");
$tabform->getTab("groups")->group(
@ -345,7 +345,7 @@ sub www_editUser {
}
}
push (@include, "0");
my @groupsToDelete = $session{cgi}->param("groupsToDelete");
my @groupsToDelete = $session{req}->param("groupsToDelete");
$tabform->getTab("groups")->selectList(
-name=>"groupsToDelete",
-options=>WebGUI::SQL->buildHashRef("select groupId, groupName from groups
@ -385,9 +385,9 @@ sub www_editUserSave {
$u->profileField($field{fieldName},WebGUI::FormProcessor::process($field{fieldName},$field{dataType}));
}
$a->finish;
my @groups = $session{cgi}->param("groupsToAdd");
my @groups = $session{req}->param("groupsToAdd");
$u->addToGroups(\@groups);
@groups = $session{cgi}->param("groupsToDelete");
@groups = $session{req}->param("groupsToDelete");
$u->deleteFromGroups(\@groups);
} else {
$error = '<ul><li>'.WebGUI::International::get(77).' '.$session{form}{username}.'Too or '.$session{form}{username}.'02</li></ul>';