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

added a bunch of style functions

Browse source
This commit is contained in:
JT Smith 2004-01-04 06:02:28 +00:00
parent 264287a0fb
commit 759dfd2f6b
22 changed files with 75 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -74,7 +74,8 @@ sub _recursePageTree {
hideFromNavigation,
newWindow,
cacheTimeout,
cacheTimeoutVisitor
cacheTimeoutVisitor,
printableStyleId
) values (
$newPageId,
$_[1],
@ -101,7 +102,8 @@ sub _recursePageTree {
$package{hideFromNavigation},
$package{newWindow},
$package{cacheTimeout},
$package{cacheTimeoutVisitor}
$package{cacheTimeoutVisitor},
$package{printableStyleId}
)");
_recursePageTree($package{pageId},$newPageId);
}
@ -111,6 +113,7 @@ sub _recursePageTree {
#-------------------------------------------------------------------
sub www_selectPackageToDeploy {
my ($output, %data, $sth, $flag);
$session{page}{useAdminStyle} = 1;
if (WebGUI::Privilege::canEditPage()) {
tie %data,'Tie::CPHash';
$output = helpIcon(30);