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;