removing old page system
This commit is contained in:
JT Smith
parent
38f150975e
commit
81ff5f1c48
3 changed files with 0 additions and 2570 deletions
|
|
@ -1,927 +0,0 @@
|
|||
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;
|
||||
1583
lib/WebGUI/Page.pm
1583
lib/WebGUI/Page.pm
File diff suppressed because it is too large
Load diff
|
|
@ -450,11 +450,6 @@ The URL of the web site for this theme's designer. If you are in the business of
|
|||
lastUpdated => 1031514049
|
||||
},
|
||||
|
||||
'101' => {
|
||||
message => q|Are you certain that you wish to delete this page, its content, and all items under it?|,
|
||||
lastUpdated => 1031514049
|
||||
},
|
||||
|
||||
'340' => {
|
||||
message => q|Female|,
|
||||
lastUpdated => 1031514049
|
||||
|
|
@ -578,11 +573,6 @@ The URL of the web site for this theme's designer. If you are in the business of
|
|||
lastUpdated => 1031514049
|
||||
},
|
||||
|
||||
'715' => {
|
||||
message => q|Redirect URL|,
|
||||
lastUpdated => 1031514049
|
||||
},
|
||||
|
||||
'23' => {
|
||||
message => q|September|,
|
||||
lastUpdated => 1031514049
|
||||
|
|
@ -1343,11 +1333,6 @@ How should this user be notified when they get a new WebGUI message?
|
|||
lastUpdated => 1031514049
|
||||
},
|
||||
|
||||
'417' => {
|
||||
message => q|<h1>Security Violation</h1>You attempted to access a wobject not associated with this page. This incident has been reported.|,
|
||||
lastUpdated => 1031514049
|
||||
},
|
||||
|
||||
'12' => {
|
||||
message => q|Turn admin off.|,
|
||||
lastUpdated => 1031514049
|
||||
|
|
@ -1426,11 +1411,6 @@ As with any delete operation, you are prompted to be sure you wish to proceed wi
|
|||
lastUpdated => 1031514049
|
||||
},
|
||||
|
||||
'116' => {
|
||||
message => q|Select "Yes" to change the privileges of all pages and wobjects under this page to these privileges.|,
|
||||
lastUpdated => 1056054674
|
||||
},
|
||||
|
||||
'144' => {
|
||||
message => q|View statistics.|,
|
||||
lastUpdated => 1031514049
|
||||
|
|
@ -1441,11 +1421,6 @@ As with any delete operation, you are prompted to be sure you wish to proceed wi
|
|||
lastUpdated => 1050232286
|
||||
},
|
||||
|
||||
'100' => {
|
||||
message => q|Meta Tags|,
|
||||
lastUpdated => 1031514049
|
||||
},
|
||||
|
||||
'965' => {
|
||||
message => q|System Trash|,
|
||||
lastUpdated => 1099050265
|
||||
|
|
@ -2306,11 +2281,6 @@ will be modified to make it unique.|,
|
|||
lastUpdated => 1044138730
|
||||
},
|
||||
|
||||
'500' => {
|
||||
message => q|Page ID|,
|
||||
lastUpdated => 1031514049
|
||||
},
|
||||
|
||||
'533' => {
|
||||
message => q|<b>without</b> the words|,
|
||||
lastUpdated => 1031514049
|
||||
|
|
@ -2993,11 +2963,6 @@ If this wobject is a shortcut, then this URL will direct you to the original wob
|
|||
lastUpdated => 1031514049
|
||||
},
|
||||
|
||||
'102' => {
|
||||
message => q|Edit Page|,
|
||||
lastUpdated => 1031514049
|
||||
},
|
||||
|
||||
'565' => {
|
||||
message => q|Who can moderate?|,
|
||||
lastUpdated => 1031514049
|
||||
|
|
@ -3656,11 +3621,6 @@ Large sites using external group data will be making many calls to the external
|
|||
lastUpdated => 1052850265
|
||||
},
|
||||
|
||||
'307' => {
|
||||
message => q|Use default meta tags?|,
|
||||
lastUpdated => 1031514049
|
||||
},
|
||||
|
||||
'314' => {
|
||||
message => q|First Name|,
|
||||
lastUpdated => 1031514049
|
||||
|
|
@ -4324,11 +4284,6 @@ div.tabs {
|
|||
lastUpdated => 1099434667
|
||||
},
|
||||
|
||||
'103' => {
|
||||
message => q|Page Properties|,
|
||||
lastUpdated => 1046638742
|
||||
},
|
||||
|
||||
'922' => {
|
||||
message => q|Created With|,
|
||||
lastUpdated => 1050262917
|
||||
|
|
@ -5152,11 +5107,6 @@ Macros always begin with a caret (^) and follow with at least one other char
|
|||
lastUpdated => 1031514049
|
||||
},
|
||||
|
||||
'829' => {
|
||||
message => q|Page Template|,
|
||||
lastUpdated => 1038870260
|
||||
},
|
||||
|
||||
'345' => {
|
||||
message => q|Not A Member|,
|
||||
lastUpdated => 1031514049
|
||||
|
|
@ -5435,11 +5385,6 @@ Privileges and styles assigned to pages in the package will not be copied when t
|
|||
lastUpdated => 1031514049
|
||||
},
|
||||
|
||||
'448' => {
|
||||
message => q|Page Tree|,
|
||||
lastUpdated => 1031514049
|
||||
},
|
||||
|
||||
'357' => {
|
||||
message => q|News|,
|
||||
lastUpdated => 1031514049
|
||||
|
|
@ -5546,11 +5491,6 @@ Privileges and styles assigned to pages in the package will not be copied when t
|
|||
context => q|Title of the user manager for the admin console.|
|
||||
},
|
||||
|
||||
'304' => {
|
||||
message => q|Language|,
|
||||
lastUpdated => 1031514049
|
||||
},
|
||||
|
||||
'406' => {
|
||||
message => q|Thumbnail Size|,
|
||||
lastUpdated => 1031514049
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue