Added configurable favicon and site icon support.

This commit is contained in:
JT Smith 2003-04-12 23:33:56 +00:00
parent 0edcfad5f5
commit 8898dd3323
4 changed files with 24 additions and 2 deletions

View file

@ -62,8 +62,12 @@ sub get {
@body = split(/\^\-\;/,$style{body});
$header = $session{setting}{docTypeDec}."\n".'<!-- WebGUI '.$WebGUI::VERSION.' --> <html> <head> <title>';
$header .= $session{page}{title}.' - '.$session{setting}{companyName};
$header .= '</title><link REL="icon" HREF="'.$session{config}{extrasURL}.'/favicon.png" TYPE="image/png">'
.$style{styleSheet}.$session{page}{metaTags};
my $type = lc($session{setting}{siteicon});
$type =~ s/.*\.(.*?)$/$1/;
$header .= '</title>
<link REL="icon" HREF="'.$session{setting}{siteicon}.'" TYPE="image/'.$type.'">
<LINK REL="SHORTCUT ICON" HREF="'.$session{setting}{favicon}.'">
'.$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 .= '<META HTTP-EQUIV="Pragma" CONTENT="no-cache">';