diff --git a/lib/WebGUI/Operation.pm b/lib/WebGUI/Operation.pm index cee3e3339..0921d682f 100644 --- a/lib/WebGUI/Operation.pm +++ b/lib/WebGUI/Operation.pm @@ -123,8 +123,6 @@ sub getOperations { 'deleteMetaDataField' => 'WebGUI::Operation::MetaData', 'deleteMetaDataFieldConfirm' => 'WebGUI::Operation::MetaData', 'saveMetaDataSettings' => 'WebGUI::Operation::MetaData', - 'deployPackage' => 'WebGUI::Operation::Package', - 'managePackages' => 'WebGUI::Operation::Package', 'editProfile' => 'WebGUI::Operation::Profile', 'editProfileSave' => 'WebGUI::Operation::Profile', 'viewProfile' => 'WebGUI::Operation::Profile', diff --git a/lib/WebGUI/Operation/Package.pm b/lib/WebGUI/Operation/Package.pm deleted file mode 100644 index 0cd297265..000000000 --- a/lib/WebGUI/Operation/Package.pm +++ /dev/null @@ -1,94 +0,0 @@ -package WebGUI::Operation::Package; - -#------------------------------------------------------------------- -# WebGUI is Copyright 2001-2004 Plain Black Corporation. -#------------------------------------------------------------------- -# Please read the legal notices (docs/legal.txt) and the license -# (docs/license.txt) that came with this distribution before using -# this software. -#------------------------------------------------------------------- -# http://www.plainblack.com info@plainblack.com -#------------------------------------------------------------------- - -use strict qw(vars subs); -use WebGUI::Icon; -use WebGUI::Id; -use WebGUI::Page; -use WebGUI::Privilege; -use WebGUI::Session; -use WebGUI::SQL; -use WebGUI::URL; - - -sub www_managePackages { - return "Packages have been disabled for this release. Check back in a future release to use packages.\n"; -} - -#------------------------------------------------------------------- -sub _duplicateWobjects { - my (%properties); - tie %properties, 'Tie::CPHash'; - my $sth = WebGUI::SQL->read("select * from wobject where pageId=".quote($_[0])." order by sequenceNumber"); - while (my $wobject = $sth->hashRef) { - my $cmd = "WebGUI::Wobject::".${$wobject}{namespace}; - my $load = "use ".$cmd; - eval($load); - WebGUI::ErrorHandler::warn("Wobject failed to compile: $cmd.".$@) if($@); - my $w = $cmd->new($wobject); - $w->duplicate($_[1]); - } - $sth->finish; -} - -#------------------------------------------------------------------- -sub _recursePageTree { - my ($a, %package, %newParent,$currentPage,$page); - tie %newParent, 'Tie::CPHash'; - tie %package, 'Tie::CPHash'; - %newParent = WebGUI::SQL->quickHash("select * from page where pageId=".quote($_[1])); - _duplicateWobjects($_[0],$_[1]); - $a = WebGUI::SQL->read("select * from page where parentId=".quote($_[0])." order by sequenceNumber"); - while (%package = $a->hash) { - $currentPage = WebGUI::Page->getPage($_[1]); - $page = $currentPage->add; - $page->set({ - title => $package{title}, - styleId => $newParent{styleId}, - printableStyleId => $package{printableStyleId}, - ownerId => $session{user}{userId}, - groupIdView => $newParent{groupIdView}, - groupIdEdit => $newParent{groupIdEdit}, - newWindow => $package{newWindow}, - wobjectPrivileges => $package{wobjectPrivileges}, - hideFromNavigation => $package{hideFromNavigation}, - startDate => $newParent{startDate}, - endDate => $newParent{endDate}, - cacheTimeout => $package{cacheTimeout}, - cacheTimeoutVisitor => $package{cacheTimeoutVisitor}, - metaTags => $package{metaTags}, - urlizedTitle => WebGUI::Page::makeUnique($package{urlizedTitle}), - redirectURL => $newParent{redirectURL}, - defaultMetaTags => $package{defaultMetaTags}, - templateId => $package{templateId}, - menuTitle => $package{menuTitle}, - synopsis => $package{synopsis} - }); - _recursePageTree($package{pageId},$page->get('pageId')); - } - $a->finish; -} - - -#------------------------------------------------------------------- -sub www_deployPackage { - return "Packages have been disabled for this release. Check back in a future release to use packages.\n"; - if (WebGUI::Page::canEdit()) { - _recursePageTree($session{form}{pid},$session{page}{pageId}); - return ""; - } else { - return WebGUI::Privilege::insufficient(); - } -} - -1; -