package WebGUI::Style;
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2002 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 strict;
use Tie::CPHash;
use WebGUI::Macro;
use WebGUI::Session;
use WebGUI::SQL;
#-------------------------------------------------------------------
sub getStyle {
my ($header, $footer, %style, $styleId, @body);
tie %style, 'Tie::CPHash';
if ($session{form}{makePrintable}) {
$styleId = $session{form}{style} || 3;
%style = WebGUI::SQL->quickHash("select * from style where styleId=$styleId");
@body = split(/\^\-\;/,$style{body});
$header = ''."\n";
$header .= ''.$session{page}{title}.' - '.$session{setting}{companyName}.'';
$header .= $style{styleSheet}.''.$body[0];
} else {
%style = WebGUI::SQL->quickHash("select * from style where styleId=$session{page}{styleId}");
@body = split(/\^\-\;/,$style{body});
$header = $session{setting}{docTypeDec}."\n".'
';
$header .= $session{page}{title}.' - '.$session{setting}{companyName};
$header .= ''
.$style{styleSheet}
.$session{page}{metaTags};
if ($session{var}{adminOn}) {
# This "triple incantation" panders to the delicate tastes of various browsers for reliable cache suppression.
$header .= '';
$header .= '';
$header .= '';
}
if ($session{page}{defaultMetaTags}) {
$header .= '';
$header .= '';
}
$header .= ''.$body[0];
}
$footer = $body[1].' ';
$header = WebGUI::Macro::process($header);
$footer = WebGUI::Macro::process($footer);
return ($header, $footer);
}
1;