oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

added a bunch of style functions

Browse source
This commit is contained in:
JT Smith 2004-01-04 06:02:28 +00:00
parent 264287a0fb
commit 759dfd2f6b
22 changed files with 75 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lib/WebGUI/Style.pm
View file

@ -89,6 +89,13 @@ sub process {
my %var;
$var{'body.content'} = shift;
my $templateId = shift;
if ($session{page}{makePrintable}) {
$templateId = $session{page}{printableStyleId};
} elsif ($session{page}{useAdminStyle} ne "" && $session{setting}{useAdminStyle}) {
$templateId = $session{setting}{adminStyleId};
} elsif ($session{scratch}{personalStyleId} ne "") {
$templateId = $session{scratch}{personalStyleId};
}
my $type = lc($session{setting}{siteicon});
$type =~ s/.*\.(.*?)$/$1/;
$var{'head.tags'} = '