diff --git a/lib/WebGUI/Operation/WebGUI.pm b/lib/WebGUI/Operation/WebGUI.pm new file mode 100644 index 000000000..3e3bce848 --- /dev/null +++ b/lib/WebGUI/Operation/WebGUI.pm @@ -0,0 +1,39 @@ +package WebGUI::Operation::WebGUI; + +#------------------------------------------------------------------- +# WebGUI is Copyright 2001-2003 Plain Black LLC. +#------------------------------------------------------------------- +# 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 Exporter; +use strict; +use WebGUI::Session; + +our @ISA = qw(Exporter); +our @EXPORT = qw(&www_genesis); + +#------------------------------------------------------------------- +sub www_genesis { + $session{page}{styleId} = -100000; + my $output = '