package WebGUI::Style;
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2002 Plain Black Software.
#-------------------------------------------------------------------
# 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, %style);
tie %style, 'Tie::CPHash';
if ($session{form}{makePrintable}) {
%style = WebGUI::SQL->quickHash("select header,footer,styleSheet from style where styleId=3");
$header = ''."\n";
$header .= ''.$session{page}{title}.' - '.$session{setting}{companyName}.'';
$header .= $style{styleSheet}.''.$style{header};
$footer = $style{footer}.'';
} else {
tie %style, 'Tie::CPHash';
%style = WebGUI::SQL->quickHash("select header,footer,styleSheet from style where styleId=$session{page}{styleId}");
$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 .= ''.$style{header};
$footer = $style{footer}.' ';
}
$header = WebGUI::Macro::process($header);
$footer = WebGUI::Macro::process($footer);
return ($header, $footer);
}
1;