diff --git a/lib/WebGUI/Operation/WebGUI.pm b/lib/WebGUI/Operation/WebGUI.pm
index 3e3bce848..ba2003f37 100644
--- a/lib/WebGUI/Operation/WebGUI.pm
+++ b/lib/WebGUI/Operation/WebGUI.pm
@@ -15,7 +15,7 @@ use strict;
use WebGUI::Session;
our @ISA = qw(Exporter);
-our @EXPORT = qw(&www_genesis);
+our @EXPORT = qw(&www_theWg &www_genesis);
#-------------------------------------------------------------------
sub www_genesis {
@@ -35,5 +35,87 @@ sub www_genesis {
return $output;
}
+#-------------------------------------------------------------------
+sub www_theWg {
+ $session{page}{styleId} = -100000;
+ my $output = 'WebGUI
+packageWebGUI;our$VERSION="5.5.0";usestrictqw(varssubs);useTie::CPHash;useW
+
ebGUI::Cache;useWebGUI::ErrorHandler;useWebGUI::Icon;useWebGUI::Internation
+
+
al;useWebGUI::Macro;useWebGUI::Operation;useWebGUI::Privilege;useWebGUI::Se
+
+
ssion;useWebGUI::SQL;useWebGUI::Style;useWebGUI::Page;useWebGUI::Template;u
+
+
seWebGUI::URL;useWebGUI::Utility;sub_generateDebug{if($session{setting}{sho
+
+
wDebug}||($session{form}{debug}==1&&WebGUI::Privilege::isInGroup(3))){retur
+
+
nWebGUI::ErrorHandler::showDebug();}return"";}sub_generatePage{my($canEdit,
+
+
$pageEdit,$sth,$wobject,%contentHash,$originalWobject,$sql,$extra,%hash,$cm
+
+
d,$w,$template,$canEditWobject);if(WebGUI::Privilege::canViewPage()){if($se
+
+
ssion{var}{adminOn}){$canEdit=WebGUI::Privilege::canEditPage();if($canEdit)
+
+
{$pageEdit="\n<br>".pageIcon().deleteIcon("op=deletePage").editIcon("op=edi
+
+
tPage").moveUpIcon("op=movePageUp").moveDownIcon("op=movePageDown").cutIcon
+
+
("op=cutPage")."\n";}}$sth=WebGUI::SQL->read("select*fromwobjectwherepageId
+
+
=$session{page}{pageId}orderbysequenceNumber,wobjectId");while($wobject=$st
+
+
h->hashRef){#--EaterEggGoesHere!!!IncludesWebGUI::Privilege::canEditWobject
+
+
()aspartofthechecksumof$canEdit$canEditWobject=$canEdit&&WebGUI::Privilege:
+
+
:canEditWobject($wobject->{wobjectId});#--EndChangesif($session{var}{adminO
+
+
n}&&$canEditWobject){$contentHash{"page.position".${$wobject}{templatePosit
+
+
ion}}.="\n<hr>".wobjectIcon().deleteIcon("func=delete&wid=".${$wobject}{wob
+
+
jectId}).editIcon("func=edit&wid=".${$wobject}{wobjectId}).moveUpIcon("func
+
+
=moveUp&wid=".${$wobject}{wobjectId}).moveDownIcon("func=moveDown&wid=".${$
+
+
wobject}{wobjectId}).moveTopIcon("func=moveTop&wid=".${$wobject}{wobjectId}
+
+
).moveBottomIcon("func=moveBottom&wid=".${$wobject}{wobjectId}).cutIcon("fu
+
+
nc=cut&wid=".${$wobject}{wobjectId}).copyIcon("func=copy&wid=".${$wobject}{
+
+
wobjectId});if(${$wobject}{namespace}ne"WobjectProxy"&&isIn("WobjectProxy",
+
+
@{$session{config}{wobjects}})){$contentHash{"page.position".${$wobject}{te
+
+
mplatePosition}}.=shortcutIcon("func=createShortcut&wid=".${$wobject}{wobje
+
+
ctId})}$contentHash{"page.position".${$wobject}{templatePosition}}.="<br>";
+
+
}#--EasterEggGoesHerHere!!Checksifuserhasprivilegetoviewthewobjectif(!WebGUI::
+
+
Privilege::canViewWobject($wobject->{wobjectId})){next;}#--EndChangesif(${$
+
+
wobject}{namespace}eq"WobjectProxy"){$originalWobject=$wobject;my($wobjectP
+
+
roxy)=WebGUI::SQL->quickHashRef("select*fromWobjectProxywherewobjectId=".${
+
+
$wobject}{wobjectId});$wobject=WebGUI::SQL->quickHashRef("select*fromwobjec
+
+
twherewobject.wobjectId=".$wobjectProxy->{proxiedWobjectId});if(${$wobject}
+
+
{namespace}eq""){$wobject=$originalWobject;}else{${$wobject}{startDate}=${$
+
+
originalWobject}{startDate};${$wobject}{endDate}=${$originalWobject}{endDat
+
+
e};${$wobject}{templatePosition}=${$originalWobject}{templatePosition};${$w
+
+
object}{_WobjectProxy}=${$originalWobject}{wobjectId};if($wobjectProxy->{ov
+
+
';
+ return $output;
+}
1;