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