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

added drag and drop content

Browse source
This commit is contained in:
JT Smith 2004-02-15 19:11:00 +00:00
parent 9f94bbead8
commit 6d7d53bbff
16 changed files with 527 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

26
lib/WebGUI/Operation/Page.pm
View file

@ -29,7 +29,7 @@ use WebGUI::Utility;
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_viewPageTree &www_movePageUp &www_movePageDown
&www_cutPage &www_deletePage &www_deletePageConfirm &www_editPage
&www_editPageSave &www_pastePage &www_moveTreePageUp
&www_editPageSave &www_pastePage &www_moveTreePageUp &www_rearrangeWobjects
&www_moveTreePageDown &www_moveTreePageLeft &www_moveTreePageRight);
#-------------------------------------------------------------------
@ -608,6 +608,30 @@ sub www_pastePage {
}
}
#-------------------------------------------------------------------
sub www_rearrangeWobjects {
return WebGUI::Privilege::insufficient() unless (WebGUI::Privilege::canEditPage($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+)/$1/;
WebGUI::SQL->setRow("wobject","wobjectId",{
wobjectId=>$wobjectId,
sequenceNumber=>$sequenceNumber,
templatePosition=>$templatePosition
});
$sequenceNumber++;
}
$templatePosition++;
}
return $session{form}{map};
}
#-------------------------------------------------------------------
sub www_viewPageTree {
my ($output);