927 lines
31 KiB
Perl
927 lines
31 KiB
Perl
package WebGUI::Operation::Page;
|
|
|
|
#-------------------------------------------------------------------
|
|
# 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;
|
|
use File::Path;
|
|
use WebGUI::DateTime;
|
|
use WebGUI::FormProcessor;
|
|
use WebGUI::Grouping;
|
|
use WebGUI::HTMLForm;
|
|
use WebGUI::HTTP;
|
|
use WebGUI::Icon;
|
|
use WebGUI::International;
|
|
use WebGUI::Page;
|
|
use WebGUI::Privilege;
|
|
use WebGUI::Session;
|
|
use WebGUI::SQL;
|
|
use WebGUI::TabForm;
|
|
use WebGUI::URL;
|
|
use WebGUI::Utility;
|
|
use WebGUI::Export;
|
|
|
|
#-------------------------------------------------------------------
|
|
=head2 _changeWobjectPrivileges ( page )
|
|
|
|
This private function changes the privileges of all wobjects on page.
|
|
|
|
=cut
|
|
sub _changeWobjectPrivileges {
|
|
my($wobject,$sth);
|
|
$sth = WebGUI::SQL->read("select wobjectId,namespace from wobject where pageId=".quote($_[0]));
|
|
while ($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);
|
|
if ($w->canEdit) {
|
|
$w->set({
|
|
startDate=>WebGUI::FormProcessor::dateTime("startDate"),
|
|
endDate=>WebGUI::FormProcessor::dateTime("endDate"),
|
|
ownerId=>$session{form}{ownerId},
|
|
groupIdView=>$session{form}{ownerId},
|
|
groupIdEdit=>$session{form}{groupIdEdit}
|
|
});
|
|
}
|
|
}
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
=head2 _recursivelyChangeProperties ( page )
|
|
|
|
This private function set an entire subtree with $page as root to the same privilege and/or
|
|
style settings. These properties are set to be a duplicate of those in page.
|
|
|
|
=head3 page
|
|
|
|
This is the page whose ancestors should be changed. This must be an WebGUI::Page instance.
|
|
|
|
=cut
|
|
# This combines _recusivelyChangePrivileges and _recusivelyChangeStyle, since there's no use in walking down a tree twice.
|
|
sub _recursivelyChangeProperties {
|
|
my ($page, $currentPage);
|
|
$page = shift;
|
|
|
|
_changeWobjectPrivileges($page->get("pageId")) unless $session{form}{wobjectPrivileges};
|
|
|
|
$page->traversePreOrder(
|
|
sub {
|
|
$currentPage = shift;
|
|
if (WebGUI::Page::canEdit($currentPage->get('pageId'))) {
|
|
$currentPage->setWithoutRecache({
|
|
startDate => WebGUI::FormProcessor::dateTime("startDate"),
|
|
endDate => WebGUI::FormProcessor::dateTime("endDate"),
|
|
ownerId => $session{form}{ownerId},
|
|
groupIdView => $session{form}{groupIdView},
|
|
groupIdEdit => $session{form}{groupIdEdit}
|
|
}) if ($session{form}{recursePrivs});
|
|
$currentPage->setWithoutRecache({
|
|
styleId => $session{form}{styleId},
|
|
printableStyleId => $session{form}{printableStyleId}
|
|
}) if ($session{form}{recurseStyle});
|
|
}
|
|
return 1;
|
|
}
|
|
);
|
|
|
|
WebGUI::Page->recacheNavigation;
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub _selectPositions {
|
|
my ($templates, $output, $f, $key);
|
|
$f = WebGUI::HTMLForm->new(1);
|
|
$templates = WebGUI::Page::getTemplateList();
|
|
$f->template(
|
|
-value=>$_[0],
|
|
-namespace=>"page",
|
|
-afterEdit=>'op=editPage&npp='.$session{form}{npp},
|
|
-extras=>'onChange="changeTemplatePreview(this.form.templateId.value)"'
|
|
);
|
|
my $headtags = '
|
|
<script language="JavaScript">
|
|
var b_templates = new Array();
|
|
';
|
|
foreach $key (keys %{$templates}) {
|
|
$headtags .= " b_templates['".$key."'] = '".WebGUI::Page::drawTemplate($key)."';\n";
|
|
}
|
|
$headtags .= '
|
|
function checkBrowserVersion(){
|
|
this.ver=navigator.appVersion;
|
|
this.dom=document.getElementById?1:0;
|
|
this.ie5=(this.ver.indexOf("MSIE 5")>-1 && this.dom)?1:0;
|
|
this.ie4=(document.all && !this.dom)?1:0;
|
|
this.ns5=(this.dom && parseInt(this.ver) >= 5) ?1:0;
|
|
this.ns4=(document.layers && !this.dom)?1:0;
|
|
this.bw=(this.ie5 || this.ie4 || this.ns4 || this.ns5 || this.dom);
|
|
return this;
|
|
}
|
|
pbw=new checkBrowserVersion();
|
|
function makeChangeTextObj(obj){
|
|
this.css=pbw.dom? document.getElementById(obj).style:pbw.ie4?document.all[obj].style:pbw.ns4?document.layers[obj]:0;
|
|
this.writeref=pbw.dom? document.getElementById(obj):pbw.ie4?document.all[obj]:pbw.ns4?document.layers[obj].document:0
|
|
;
|
|
this.writeIt=b_writeIt;
|
|
}
|
|
function b_writeIt(text){
|
|
var obj;
|
|
if(pbw.ns4) {
|
|
if (document.loading) document.loading.visibility = "hidden";
|
|
this.writeref.write(text + " ");
|
|
this.writeref.close();
|
|
} else {
|
|
if (pbw.ie4) {
|
|
if (document.all.loading) obj = document.all.loading;
|
|
}
|
|
if (obj) obj.style.visibility = "hidden";
|
|
this.writeref.innerHTML=text;
|
|
}
|
|
}
|
|
function inittemplatechanger(){
|
|
if(pbw.bw){
|
|
oMessage=new makeChangeTextObj("templatePreview");
|
|
oMessage.css.visibility="visible";
|
|
changeTemplatePreview(\''.$_[0].'\');
|
|
}
|
|
}
|
|
function changeTemplatePreview(value) {
|
|
oMessage.writeIt(b_templates[value]);
|
|
}
|
|
onload=inittemplatechanger
|
|
';
|
|
$headtags .= '</script>';
|
|
WebGUI::Style::setRawHeadTags($headtags);
|
|
$output .= $f->printRowsOnly;
|
|
$output .= '<div id="templatePreview" style="padding: 5px;"></div>';
|
|
return $output;
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 _traversePageTree( pageId [, initialDepth ] )
|
|
|
|
Walks down the page tree from page with id pageId and returns an indented list of the pages it
|
|
walks over. Also prints edit/delete/move buttons.
|
|
|
|
=head3 pageId
|
|
|
|
The id of the page you want to start from
|
|
|
|
=head3 initialDepth
|
|
|
|
The depth the tree should start with. Defaults to zero.
|
|
|
|
=cut
|
|
|
|
sub _traversePageTree {
|
|
my (%wobject, $output, $spacer, $page, $currentPage, $currentPageId, $currentUrlizedTitle, $wobjects);
|
|
my ($parentId, $initialDepth) = @_;
|
|
|
|
tie %wobject, 'Tie::CPHash';
|
|
$spacer = '<img src="'.$session{config}{extrasURL}.'/spacer.gif" width=12>';
|
|
my $sth = WebGUI::SQL->read("select pageId,isSystem,urlizedTitle,title from page where parentId=".quote($parentId)." order by nestedSetLeft");
|
|
while (my ($pageId,$isSystem,$url,$title) = $sth->array) {
|
|
unless ($isSystem) {
|
|
$output .= $spacer x $initialDepth
|
|
.pageIcon()
|
|
.deleteIcon('op=deletePageConfirm',$url,WebGUI::International::get(101))
|
|
.moveLeftIcon(sprintf('op=moveTreePageLeft&pageId=%s',$pageId), $url)
|
|
.moveUpIcon(sprintf('op=moveTreePageUp&pageId=%s',$pageId), $url)
|
|
.moveDownIcon(sprintf('op=moveTreePageDown&pageId=%s',$pageId), $url)
|
|
.moveRightIcon(sprintf('op=moveTreePageRight&pageId=%s',$pageId), $url)
|
|
.editIcon('op=editPage', $url)
|
|
.' <a href="'.WebGUI::URL::gateway($url).'">'.$title.'</a><br>';
|
|
$wobjects = WebGUI::SQL->read("select wobjectId,title from wobject where pageId=".quote($pageId));
|
|
while (%wobject = $wobjects->hash) {
|
|
$output .= $spacer x $initialDepth. $spacer
|
|
.wobjectIcon()
|
|
.deleteIcon('func=deleteConfirm&wid='.$wobject{wobjectId},$url,WebGUI::International::get(43))
|
|
.editIcon('func=edit&wid='.$wobject{wobjectId},$url)
|
|
.' '. $wobject{title}.'<br>';
|
|
}
|
|
$wobjects->finish;
|
|
$output .= _traversePageTree($pageId,$initialDepth+1);
|
|
}
|
|
}
|
|
$sth->finish;
|
|
return $output;
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
=head2 www_cutPage
|
|
|
|
This will cut the page defined by $session{page}{pageId} (ie. the current page) and all it's
|
|
children from the pagetree and place it on the clipboard.
|
|
|
|
=cut
|
|
sub www_cutPage {
|
|
my ($page);
|
|
if ($session{page}{isSystem}) {
|
|
return WebGUI::Privilege::vitalComponent();
|
|
|
|
} elsif (WebGUI::Page::canEdit()) {
|
|
$page = WebGUI::Page->getPage($session{page}{pageId});
|
|
my $parentId = $page->get("parentId") || 1;
|
|
$page->cut;
|
|
WebGUI::Session::refreshPageInfo($parentId);
|
|
return "";
|
|
} else {
|
|
return WebGUI::Privilege::insufficient();
|
|
}
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
=head2 www_deletePageConfirm
|
|
|
|
Actually transfers the page to the trash.
|
|
|
|
=cut
|
|
sub www_deletePageConfirm {
|
|
if ($session{page}{isSystem}) {
|
|
return WebGUI::Privilege::vitalComponent();
|
|
} elsif (WebGUI::Page::canEdit()) {
|
|
my $page = WebGUI::Page->getPage($session{page}{pageId});
|
|
$page->delete;
|
|
WebGUI::Session::refreshPageInfo($session{page}{parentId});
|
|
return "";
|
|
} else {
|
|
return WebGUI::Privilege::insufficient();
|
|
}
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
=head2 www_editPage
|
|
|
|
Displays the properties for a page.
|
|
|
|
=cut
|
|
sub www_editPage {
|
|
my ($f, $endDate, $output, $subtext, $childCount, %hash, %page);
|
|
$session{page}{useAdminStyle} = 1;
|
|
tie %hash, "Tie::IxHash";
|
|
tie %page, "Tie::CPHash";
|
|
if (WebGUI::Page::canEdit($session{form}{npp})) {
|
|
my %tabs;
|
|
tie %tabs, 'Tie::IxHash';
|
|
%tabs = (
|
|
properties=>{
|
|
label=>WebGUI::International::get(103)
|
|
},
|
|
layout=>{
|
|
label=>WebGUI::International::get(105),
|
|
uiLevel=>5
|
|
},
|
|
privileges=>{
|
|
label=>WebGUI::International::get(107),
|
|
uiLevel=>6
|
|
}
|
|
);
|
|
$f = WebGUI::TabForm->new(\%tabs);
|
|
if ($session{form}{npp} ne "") {
|
|
my $buildFromPage = $session{form}{npp};
|
|
if ($buildFromPage eq "0") {
|
|
$buildFromPage = $session{setting}{defaultPage};
|
|
}
|
|
%page = WebGUI::SQL->quickHash("select * from page where pageId=".quote($buildFromPage));
|
|
$page{templateId} = 1;
|
|
$page{pageId} = "new";
|
|
$page{title} = $page{menuTitle} = $page{urlizedTitle} = $page{synopsis} = '';
|
|
$page{parentId} = $session{form}{npp};
|
|
$page{ownerId} = $session{user}{userId};
|
|
$page{hideFromNavigation} = 0;
|
|
$page{newWindow} = 0;
|
|
$page{encryptPage} = 0;
|
|
$page{redirectURL} = "";
|
|
} else {
|
|
%page = %{$session{page}};
|
|
($childCount) = WebGUI::SQL->quickArray("select count(*) from page where parentId=".quote($page{pageId}));
|
|
}
|
|
$page{endDate} = (addToDate(time(),10)) if ($page{endDate} < 0);
|
|
$output = helpIcon("page add/edit");
|
|
$output .= '<h1>'.WebGUI::International::get(102).'</h1>';
|
|
$f->hidden({name=>"pageId",value=>$page{pageId}});
|
|
$f->hidden({name=>"parentId",value=>$page{parentId}});
|
|
$f->hidden({name=>"op",value=>"editPageSave"});
|
|
$f->getTab("properties")->readOnly(
|
|
-value=>$page{pageId},
|
|
-label=>WebGUI::International::get(500),
|
|
-uiLevel=>3
|
|
);
|
|
$f->getTab("properties")->text(
|
|
-name=>"title",
|
|
-label=>WebGUI::International::get(99),
|
|
-value=>$page{title}
|
|
);
|
|
$f->getTab("properties")->text(
|
|
-name=>"menuTitle",
|
|
-label=>WebGUI::International::get(411),
|
|
-value=>$page{menuTitle},
|
|
-uiLevel=>1
|
|
);
|
|
$f->getTab("properties")->yesNo(
|
|
-name=>"hideFromNavigation",
|
|
-value=>$page{hideFromNavigation},
|
|
-label=>WebGUI::International::get(886),
|
|
-uiLevel=>6
|
|
);
|
|
$f->getTab("properties")->yesNo(
|
|
-name=>"newWindow",
|
|
-value=>$page{newWindow},
|
|
-label=>WebGUI::International::get(940),
|
|
-uiLevel=>6
|
|
);
|
|
$f->getTab("properties")->yesNo(
|
|
-name=>"encryptPage",
|
|
-value=>$page{encryptPage},
|
|
-label=>WebGUI::International::get('encrypt page'),
|
|
-uiLevel=>6
|
|
);
|
|
$f->getTab("properties")->text(
|
|
-name=>"urlizedTitle",
|
|
-label=>WebGUI::International::get(104),
|
|
-value=>$page{urlizedTitle},
|
|
-uiLevel=>3
|
|
);
|
|
$f->getTab("properties")->selectList(
|
|
-name=>"languageId",
|
|
-label=>WebGUI::International::get(304),
|
|
-value=>[$page{languageId}],
|
|
-uiLevel=>1,
|
|
-options=>WebGUI::International::getLanguages()
|
|
);
|
|
$f->getTab("properties")->url(
|
|
-name=>"redirectURL",
|
|
-label=>WebGUI::International::get(715),
|
|
-value=>$page{redirectURL},
|
|
-uiLevel=>9
|
|
);
|
|
$f->getTab("properties")->textarea(
|
|
-name=>"synopsis",
|
|
-label=>WebGUI::International::get(412),
|
|
-value=>$page{synopsis},
|
|
-uiLevel=>3
|
|
);
|
|
$f->getTab("properties")->textarea(
|
|
-name=>"metaTags",
|
|
-label=>WebGUI::International::get(100),
|
|
-value=>$page{metaTags},
|
|
-uiLevel=>7
|
|
);
|
|
$f->getTab("properties")->yesNo(
|
|
-name=>"defaultMetaTags",
|
|
-label=>WebGUI::International::get(307),
|
|
-value=>$page{defaultMetaTags},
|
|
-uiLevel=>5
|
|
);
|
|
my @data = WebGUI::DateTime::secondsToInterval($page{cacheTimeout});
|
|
$f->getTab("properties")->interval(
|
|
-name=>"cacheTimeout",
|
|
-label=>WebGUI::International::get(895),
|
|
-intervalValue=>$data[0],
|
|
-unitsValue=>$data[1],
|
|
-uiLevel=>8
|
|
);
|
|
@data = WebGUI::DateTime::secondsToInterval($page{cacheTimeoutVisitor});
|
|
$f->getTab("properties")->interval(
|
|
-name=>"cacheTimeoutVisitor",
|
|
-label=>WebGUI::International::get(896),
|
|
-intervalValue=>$data[0],
|
|
-unitsValue=>$data[1],
|
|
-uiLevel=>8
|
|
);
|
|
$f->getTab("layout")->template(
|
|
-name=>"styleId",
|
|
-label=>WebGUI::International::get(1073),
|
|
-value=>($page{styleId} || 2),
|
|
-namespace=>'style',
|
|
-afterEdit=>'op=editPage&npp='.$session{form}{npp},
|
|
-uiLevel=>5
|
|
);
|
|
$f->getTab("layout")->template(
|
|
-name=>"printableStyleId",
|
|
-label=>WebGUI::International::get(1079),
|
|
-value=>($page{printableStyleId} || 3),
|
|
-namespace=>'style',
|
|
-afterEdit=>'op=editPage&npp='.$session{form}{npp},
|
|
-uiLevel=>5
|
|
);
|
|
if ($childCount) {
|
|
$f->getTab("layout")->yesNo(
|
|
-name=>"recurseStyle",
|
|
-subtext=>' '.WebGUI::International::get(106),
|
|
-uiLevel=>9
|
|
);
|
|
}
|
|
$f->getTab("layout")->readOnly(
|
|
-value=>_selectPositions($page{templateId}),
|
|
-label=>WebGUI::International::get(829),
|
|
-uiLevel=>5
|
|
);
|
|
$f->getTab("privileges")->dateTime(
|
|
-name=>"startDate",
|
|
-label=>WebGUI::International::get(497),
|
|
-value=>$page{startDate},
|
|
-uiLevel=>6
|
|
);
|
|
$f->getTab("privileges")->dateTime(
|
|
-name=>"endDate",
|
|
-label=>WebGUI::International::get(498),
|
|
-value=>$page{endDate},
|
|
-uiLevel=>6
|
|
);
|
|
if (WebGUI::Grouping::isInGroup(3)) {
|
|
$subtext = manageIcon('op=listUsers');
|
|
} else {
|
|
$subtext = "";
|
|
}
|
|
my $clause;
|
|
if (WebGUI::Grouping::isInGroup(3)) {
|
|
my $contentManagers = WebGUI::Grouping::getUsersInGroup(4,1);
|
|
push (@$contentManagers, $session{user}{userId});
|
|
$clause = "userId in (".quoteAndJoin($contentManagers).")";
|
|
} else {
|
|
$clause = "userId=".quote($page{ownerId});
|
|
}
|
|
my $users = WebGUI::SQL->buildHashRef("select userId,username from users where $clause order by username");
|
|
$f->getTab("privileges")->selectList(
|
|
-name=>"ownerId",
|
|
-options=>$users,
|
|
-label=>WebGUI::International::get(108),
|
|
-value=>[$page{ownerId}],
|
|
-subtext=>$subtext,
|
|
-uiLevel=>6
|
|
);
|
|
$f->getTab("privileges")->group(
|
|
-name=>"groupIdView",
|
|
-label=>WebGUI::International::get(872),
|
|
-value=>[$page{groupIdView}],
|
|
-uiLevel=>6
|
|
);
|
|
$f->getTab("privileges")->group(
|
|
-name=>"groupIdEdit",
|
|
-label=>WebGUI::International::get(871),
|
|
-value=>[$page{groupIdEdit}],
|
|
-excludeGroups=>[1,7],
|
|
-uiLevel=>6
|
|
);
|
|
$f->getTab("privileges")->yesNo(
|
|
-name=>"wobjectPrivileges",
|
|
-label=>WebGUI::International::get(1003),
|
|
-value=>$page{wobjectPrivileges},
|
|
-uiLevel=>9
|
|
);
|
|
if ($childCount) {
|
|
$f->getTab("privileges")->yesNo(
|
|
-name=>"recursePrivs",
|
|
-subtext=>' '.WebGUI::International::get(116),
|
|
-uiLevel=>9
|
|
);
|
|
}
|
|
if ($page{pageId} eq "new") {
|
|
$f->getTab("properties")->whatNext(
|
|
-options=>{
|
|
gotoNewPage=>WebGUI::International::get(823),
|
|
backToPage=>WebGUI::International::get(847)
|
|
},
|
|
-value=>"gotoNewPage",
|
|
-uiLevel=>1
|
|
);
|
|
}
|
|
$output .= $f->print;
|
|
return $output;
|
|
} else {
|
|
return WebGUI::Privilege::insufficient();
|
|
}
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
=head2 www_editPageSave
|
|
|
|
Stores the data from www_editPage to the database and tree cache.
|
|
|
|
=cut
|
|
sub www_editPageSave {
|
|
my ($pageId, $currentPage, $page);
|
|
|
|
if ($session{form}{pageId} eq "new") {
|
|
$pageId = $session{form}{parentId};
|
|
} else {
|
|
$pageId = $session{form}{pageId};
|
|
}
|
|
return WebGUI::Privilege::insufficient() unless (WebGUI::Page::canEdit($pageId));
|
|
|
|
if ($session{form}{pageId} eq "new") {
|
|
$currentPage = WebGUI::Page->getPage($session{form}{parentId});
|
|
$page = $currentPage->add;
|
|
$page->set({parentId=>$session{form}{parentId}});
|
|
} else {
|
|
$page = WebGUI::Page->getPage($session{form}{pageId});
|
|
}
|
|
$session{form}{title} = "no title" if ($session{form}{title} eq "");
|
|
$session{form}{menuTitle} = $session{form}{title} if ($session{form}{menuTitle} eq "");
|
|
my $url = $session{form}{urlizedTitle};
|
|
$url = $session{form}{menuTitle} if ($url eq "");
|
|
$url .= ".".$session{setting}{urlExtension} unless ($url =~ /\./ && $session{setting}{urlExtension} ne "");
|
|
$url = WebGUI::Page::makeUnique(WebGUI::URL::urlize($url),$session{form}{pageId});
|
|
$page->set({
|
|
title => $session{form}{title},
|
|
styleId => $session{form}{styleId},
|
|
printableStyleId => $session{form}{printableStyleId},
|
|
ownerId => ($session{form}{ownerId} || 3),
|
|
groupIdView => $session{form}{groupIdView},
|
|
groupIdEdit => $session{form}{groupIdEdit},
|
|
newWindow => $session{form}{newWindow},
|
|
encryptPage => $session{form}{encryptPage},
|
|
wobjectPrivileges => $session{form}{wobjectPrivileges},
|
|
hideFromNavigation => $session{form}{hideFromNavigation},
|
|
startDate => WebGUI::FormProcessor::dateTime("startDate"),
|
|
endDate => WebGUI::FormProcessor::dateTime("endDate"),
|
|
cacheTimeout => WebGUI::FormProcessor::interval("cacheTimeout"),
|
|
cacheTimeoutVisitor => WebGUI::FormProcessor::interval("cacheTimeoutVisitor"),
|
|
metaTags => $session{form}{metaTags},
|
|
urlizedTitle => $url,
|
|
redirectURL => $session{form}{redirectURL},
|
|
languageId => $session{form}{languageId},
|
|
defaultMetaTags => $session{form}{defaultMetaTags},
|
|
templateId => $session{form}{templateId},
|
|
menuTitle => $session{form}{menuTitle},
|
|
synopsis => $session{form}{synopsis}
|
|
});
|
|
unless ($session{form}{pageId} eq 'new') {
|
|
WebGUI::SQL->write("update wobject set templatePosition=1 where pageId=".quote($session{form}{pageId})."
|
|
and templatePosition>".WebGUI::Page::countTemplatePositions($session{form}{templateId}));
|
|
}
|
|
_recursivelyChangeProperties($page) if ($session{form}{recursePrivs} || $session{form}{recurseStyle});
|
|
if ($session{form}{proceed} eq "gotoNewPage") {
|
|
WebGUI::Session::refreshPageInfo($page->get('pageId'));
|
|
} elsif ($session{form}{pageId} eq $session{page}{pageId}) {
|
|
WebGUI::Session::refreshPageInfo($session{page}{pageId});
|
|
}
|
|
return "";
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 www_exportPage
|
|
|
|
Displays the export page administrative interface
|
|
|
|
=cut
|
|
|
|
sub www_exportPage {
|
|
return WebGUI::Privilege::insufficient unless (WebGUI::Grouping::isInGroup(13));
|
|
|
|
my $output;
|
|
$output .= helpIcon("page export");
|
|
$output .= '<h1>'.WebGUI::International::get('Export Page').'</h1>';
|
|
$output .= _checkExportPath();
|
|
|
|
my $f = WebGUI::HTMLForm->new;
|
|
$f->hidden("op","exportPageStatus");
|
|
$f->integer(
|
|
-label=>WebGUI::International::get('Depth'),
|
|
-name=>"depth",
|
|
-value=>99,
|
|
);
|
|
$f->selectList(
|
|
-label=>WebGUI::International::get('Export as user'),
|
|
-name=>"userId",
|
|
-options=>WebGUI::SQL->buildHashRef("select userId, username from users"),
|
|
-value=>[1],
|
|
);
|
|
tie my %templates, 'Tie::IxHash';
|
|
%templates = ("", WebGUI::International::get(139), %{WebGUI::Template::getList('style')});
|
|
$f->selectList(
|
|
-label=>WebGUI::International::get('Alternate style'),
|
|
-name=>"styleId",
|
|
-options=>\%templates,
|
|
);
|
|
$f->text(
|
|
-label=>WebGUI::International::get('Extras URL'),
|
|
-name=>"extrasURL",
|
|
-value=>$session{config}{extrasURL}
|
|
);
|
|
$f->text(
|
|
-label=>WebGUI::International::get('Uploads URL'),
|
|
-name=>"uploadsURL",
|
|
-value=>$session{config}{uploadsURL}
|
|
);
|
|
$f->submit;
|
|
$output .= $f->print;
|
|
return $output;
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 www_exportPageStatus
|
|
|
|
Displays the export status page
|
|
|
|
=cut
|
|
|
|
|
|
sub www_exportPageStatus {
|
|
return WebGUI::Privilege::insufficient unless (WebGUI::Grouping::isInGroup(13));
|
|
|
|
my $iframeUrl = WebGUI::URL::page('op=exportPageGenerate');
|
|
$iframeUrl = WebGUI::URL::append($iframeUrl, 'depth='.$session{form}{depth});
|
|
$iframeUrl = WebGUI::URL::append($iframeUrl, 'styleId='.$session{form}{styleId});
|
|
$iframeUrl = WebGUI::URL::append($iframeUrl, 'userId='.$session{form}{userId});
|
|
$iframeUrl = WebGUI::URL::append($iframeUrl, 'pageId='.$session{page}{pageId});
|
|
$iframeUrl = WebGUI::URL::append($iframeUrl, 'extrasURL='.$session{form}{extrasURL});
|
|
$iframeUrl = WebGUI::URL::append($iframeUrl, 'uploadsURL='.$session{form}{uploadsURL});
|
|
|
|
|
|
my $output;
|
|
$output .= '<h1>'.WebGUI::International::get('Page Export Status').'</h1>';
|
|
$output .= '<IFRAME SRC="'.$iframeUrl.'"
|
|
TITLE="'.WebGUI::International::get('Page Export Status').'"
|
|
WIDTH="410" HEIGHT="200"></IFRAME>';
|
|
|
|
return $output;
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 www_exportPageGenerate
|
|
|
|
Executes the export process and displays real time status. This operation is displayed
|
|
by exportPageStatus in an IFRAME.
|
|
|
|
=cut
|
|
|
|
|
|
sub www_exportPageGenerate {
|
|
return WebGUI::Privilege::insufficient unless (WebGUI::Grouping::isInGroup(13));
|
|
|
|
# This routine is called in an IFRAME and prints status output directly to the browser.
|
|
$|++; # Unbuffered data output
|
|
$session{page}{empty} = 1; # Write directly to the browser
|
|
|
|
print WebGUI::HTTP::getHeader();
|
|
|
|
my $startTime = time();
|
|
my $error = _checkExportPath();
|
|
if ($error) {
|
|
print $error;
|
|
return;
|
|
}
|
|
my $userId = $session{form}{userId};
|
|
my $styleId = $session{form}{styleId};
|
|
my $extrasURL = $session{form}{extrasURL};
|
|
my $uploadsURL = $session{form}{uploadsURL};
|
|
|
|
# Get the pages
|
|
my $p = WebGUI::Page->getPage($session{form}{page});
|
|
my @pages = $p->self_and_descendants(depth=>$session{form}{depth});
|
|
unless (@pages) {
|
|
print "There are no pages to export";
|
|
return;
|
|
}
|
|
foreach my $page (@pages) {
|
|
my ($path, $file);
|
|
print "Exporting page ".$page->{urlizedTitle}."......";
|
|
|
|
# Create path
|
|
$page->{urlizedTitle} =~ /^(.*)\/(.*)$/;
|
|
$path = $1;
|
|
if($path) {
|
|
$path = $session{config}{exportPath} . $session{os}{slash} . $path;
|
|
eval { mkpath($path) };
|
|
if($@) {
|
|
print "Couldn't create $path because $@ <br />\n";
|
|
print "This most likely means that you have a page with the same name as folder that you're trying to create.<br />\n";
|
|
return;
|
|
}
|
|
}
|
|
# initiate export object
|
|
my $e = WebGUI::Export->new(
|
|
pageId => $page->{pageId},
|
|
userId => $userId || 1,
|
|
styleId => $styleId,
|
|
relativeUrls => 1,
|
|
extrasURL => $extrasURL,
|
|
uploadsURL => $uploadsURL
|
|
);
|
|
# Open file
|
|
$file = $session{config}{exportPath} . $session{os}{slash} . $page->{urlizedTitle};
|
|
eval { open(FILE, "> $file") or die "$!" };
|
|
if ($@) {
|
|
print "Couldn't open $file because $@ <br />\n";
|
|
print "This most likely means that you have created a page with the same name as an existing folder. <br />\n";
|
|
return;
|
|
} else {
|
|
print FILE $e->generate;
|
|
close(FILE);
|
|
}
|
|
|
|
print "DONE<br/>";
|
|
}
|
|
print "<p>Exported ".scalar(@pages)." pages in ".(time()-$startTime)." seconds.</p>";
|
|
print '<a target="_parent" href="'.WebGUI::URL::page().'">'.WebGUI::International::get(493).'</a>';
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub _checkExportPath {
|
|
my $error;
|
|
if(defined $session{config}{exportPath}) {
|
|
if(-d $session{config}{exportPath}) {
|
|
unless (-w $session{config}{exportPath}) {
|
|
$error .= 'Error: The export path '.$session{config}{exportPath}.' is not writable.<br>
|
|
Make sure that the webserver has permissions to write to that directory';
|
|
}
|
|
} else {
|
|
$error .= 'Error: The export path '.$session{config}{exportPath}.' does not exists.';
|
|
}
|
|
} else {
|
|
$error.= 'Error: The export path is not configured. Please set the exportPath variable in the WebGUI config file';
|
|
}
|
|
$error = '<p><b>'.$error.'</b></p>' if $error;
|
|
return $error;
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
=head2 www_movePageDown
|
|
|
|
Moves page down in the context of it's sisters.
|
|
|
|
=cut
|
|
sub www_movePageDown {
|
|
if (WebGUI::Page::canEdit($session{page}{pageId})) {
|
|
my $page = WebGUI::Page->getPage;
|
|
$page->moveRight;
|
|
return "";
|
|
} else {
|
|
return WebGUI::Privilege::insufficient();
|
|
}
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
=head2 www_movePageDown
|
|
|
|
Moves page up in the context of it's sisters.
|
|
|
|
=cut
|
|
sub www_movePageUp {
|
|
if (WebGUI::Page::canEdit($session{page}{pageId})) {
|
|
my $page = WebGUI::Page->getPage;
|
|
$page->moveLeft;
|
|
return "";
|
|
} else {
|
|
return WebGUI::Privilege::insufficient();
|
|
}
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
=head2 www_moveTreePageUp
|
|
|
|
Same as www_movePageUp wit this difference that this module returns the www_viewPageTree method.
|
|
|
|
=cut
|
|
sub www_moveTreePageUp {
|
|
if (WebGUI::Page::canEdit($session{form}{pageId})) {
|
|
WebGUI::Page->getPage($session{form}{pageId})->moveLeft;
|
|
return www_viewPageTree();
|
|
} else {
|
|
return WebGUI::Privilege::insufficient();
|
|
}
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
=head2 www_moveTreePageDown
|
|
|
|
Same as www_movePageDown with this difference that this module returns the www_viewPageTree method.
|
|
|
|
=cut
|
|
sub www_moveTreePageDown {
|
|
if (WebGUI::Page::canEdit($session{form}{pageId})) {
|
|
WebGUI::Page->getPage($session{form}{pageId})->moveRight;
|
|
return www_viewPageTree();
|
|
} else {
|
|
return WebGUI::Privilege::insufficient();
|
|
}
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
=head2 www_moveTreePageLeft
|
|
|
|
Move the page one level left in the tree. In other words, the page is moved up one place in the hierarchy.
|
|
Another way to look at is that the mother of the current page becomes the elder sister of the current page.
|
|
|
|
=cut
|
|
sub www_moveTreePageLeft {
|
|
if (WebGUI::Page::canEdit($session{form}{pageId})) {
|
|
WebGUI::Page->getPage($session{form}{pageId})->moveUp;
|
|
return www_viewPageTree();
|
|
} else {
|
|
return WebGUI::Privilege::insufficient();
|
|
}
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_moveTreePageRight {
|
|
if (WebGUI::Page::canEdit($session{form}{pageId})) {
|
|
WebGUI::Page->getPage($session{form}{pageId})->moveDown;
|
|
return www_viewPageTree();
|
|
} else {
|
|
return WebGUI::Privilege::insufficient();
|
|
}
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_pastePage {
|
|
my ($currentPage, $pageToPaste);
|
|
if (WebGUI::Page::canEdit()) {
|
|
$currentPage = WebGUI::Page->getPage($session{page}{pageId});
|
|
$pageToPaste = WebGUI::Page->getPage($session{form}{pageId});
|
|
$pageToPaste->paste($currentPage);
|
|
return "";
|
|
} else {
|
|
return WebGUI::Privilege::insufficient();
|
|
}
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_richEditPageTree {
|
|
my (%var,@bad);
|
|
my $namelessroot = WebGUI::Page->new('0');
|
|
foreach my $page ($namelessroot->descendants) {
|
|
my $skipBadPage = 0;
|
|
foreach my $badPage (@bad) {
|
|
if ($page->{nestedSetLeft} > $badPage->{nestedSetLeft} && $page->{nestedSetRight} < $badPage->{nestedSetRight}) {
|
|
$skipBadPage = 1;
|
|
}
|
|
}
|
|
next if ($skipBadPage); # descendant of a page we threw out
|
|
if ($page->{isSystem}) {
|
|
push(@bad,$page);
|
|
next; # throw out system pages
|
|
}
|
|
unless (WebGUI::Page::canView($page)) {
|
|
push(@bad,$page);
|
|
next; # throw out pages we can't view
|
|
}
|
|
push(@{$var{page_loop}},{
|
|
id=>$page->{pageId},
|
|
url=>$page->{urlizedTitle},
|
|
indent=>" " x $page->{depth},
|
|
title=>$page->{title}
|
|
});
|
|
}
|
|
$session{page}{useEmptyStyle} = 1;
|
|
return WebGUI::Template::process(1,"richEditor/pagetree",\%var);
|
|
}
|
|
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_rearrangeWobjects {
|
|
return WebGUI::Privilege::insufficient() unless (WebGUI::Page::canEdit($session{page}{pageId}));
|
|
$session{page}{styleId} = 2;
|
|
my @contentAreas = split(/\./,$session{form}{map});
|
|
my $templatePosition = 1;
|
|
foreach my $position (@contentAreas) {
|
|
my @sequence = split(",",$position);
|
|
my $sequenceNumber = 1;
|
|
foreach my $wobjectId (@sequence) {
|
|
$wobjectId =~ s/td(\d+|\S+)/$1/;
|
|
WebGUI::SQL->setRow("wobject","wobjectId",{
|
|
wobjectId=>$wobjectId,
|
|
sequenceNumber=>$sequenceNumber,
|
|
templatePosition=>$templatePosition
|
|
});
|
|
$sequenceNumber++;
|
|
}
|
|
$templatePosition++;
|
|
}
|
|
return $session{form}{map};
|
|
}
|
|
|
|
|
|
#-------------------------------------------------------------------
|
|
=head2 www_viewPageTree
|
|
|
|
Returns a HTML formatted indented pagetree complete with edit/delete/cut/move buttons
|
|
|
|
=cut
|
|
sub www_viewPageTree {
|
|
return WebGUI::Privilege::insufficient() unless (WebGUI::Grouping::isInGroup(4));
|
|
my ($output);
|
|
$session{page}{useAdminStyle} = 1;
|
|
$output = '<h1>'.WebGUI::International::get(448).'</h1>';
|
|
$output .= _traversePageTree(0,0);
|
|
return $output;
|
|
}
|
|
|
|
1;
|