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

fix Global symbol %session requires explicit package name at WebGUI/lib/WebGUI/AssetPackage.pm line 87 and the WebGUI::Grouping::isInGroup('4') reference.

Browse source
This commit is contained in:
kenperl 2006-02-24 07:42:08 +00:00
parent 45cacac882
commit 65cfad4096
2 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lib/WebGUI.pm
View file

@ -242,3 +242,4 @@ sub upgrading {
} }
1; 1;

4
lib/WebGUI/AssetPackage.pm
View file

@ -83,8 +83,8 @@ sub www_deployPackage {
my $self = shift; my $self = shift;
# Must have edit rights to the asset deploying the package. Also, must be a Content Manager. # Must have edit rights to the asset deploying the package. Also, must be a Content Manager.
# This protects against non content managers deploying packages using a post or similar trickery. # This protects against non content managers deploying packages using a post or similar trickery.
return $self->session->privilege->insufficient() unless ($self->canEdit && WebGUI::Grouping::isInGroup('4')); return $self->session->privilege->insufficient() unless ($self->canEdit && $self->session->user->isInGroup(4));
my $packageMasterAssetId = $session{form}{assetId}; my $packageMasterAssetId = $self->session->form->process("assetId");
if (defined $packageMasterAssetId) { if (defined $packageMasterAssetId) {
my $packageMasterAsset = WebGUI::Asset->newByDynamicClass($packageMasterAssetId); my $packageMasterAsset = WebGUI::Asset->newByDynamicClass($packageMasterAssetId);
unless ($packageMasterAsset->getValue('isPackage')) { #only deploy packages unless ($packageMasterAsset->getValue('isPackage')) { #only deploy packages