From 65cfad409639556bac2b112e9bdb79c6a7d5e0e5 Mon Sep 17 00:00:00 2001
From: kenperl <kenperl@webgui-svn>
Date: Fri, 24 Feb 2006 07:42:08 +0000
Subject: [PATCH] fix Global symbol %session requires explicit package name at
 WebGUI/lib/WebGUI/AssetPackage.pm line 87 and the
 WebGUI::Grouping::isInGroup('4') reference.

---
 lib/WebGUI.pm              | 1 +
 lib/WebGUI/AssetPackage.pm | 4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/WebGUI.pm b/lib/WebGUI.pm
index 93157869e..6602111a2 100644
--- a/lib/WebGUI.pm
+++ b/lib/WebGUI.pm
@@ -242,3 +242,4 @@ sub upgrading {
 }
 
 1;
+
diff --git a/lib/WebGUI/AssetPackage.pm b/lib/WebGUI/AssetPackage.pm
index bf16d7db3..3f0fe100f 100644
--- a/lib/WebGUI/AssetPackage.pm
+++ b/lib/WebGUI/AssetPackage.pm
@@ -83,8 +83,8 @@ sub www_deployPackage {
 	my $self = shift;
 	# 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.
-	return $self->session->privilege->insufficient() unless ($self->canEdit && WebGUI::Grouping::isInGroup('4'));
-	my $packageMasterAssetId = $session{form}{assetId};
+	return $self->session->privilege->insufficient() unless ($self->canEdit && $self->session->user->isInGroup(4));
+	my $packageMasterAssetId = $self->session->form->process("assetId");
 	if (defined $packageMasterAssetId) {
 		my $packageMasterAsset = WebGUI::Asset->newByDynamicClass($packageMasterAssetId);
 		unless ($packageMasterAsset->getValue('isPackage')) { #only deploy packages