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

removed unneeded files for packages

Browse source
This commit is contained in:
JT Smith 2005-01-07 16:36:25 +00:00
parent b501d05f2d
commit c168b77ae4
2 changed files with 0 additions and 96 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Operation.pm
View file

@ -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',

94
lib/WebGUI/Operation/Package.pm
View file

@ -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;