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

changes to get closer to XHTML 1.0 compiance

Browse source
This commit is contained in:
JT Smith 2003-07-01 02:57:41 +00:00
parent 397e64aff8
commit 713d94221f
3 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Navigation.pm
View file

@ -135,7 +135,7 @@ sub drawVertical {
$padding .= "   ";
}
for ($i=1;$i<=$spacing;$i++) {
$leading .= "<br>";
$leading .= "<br />";
}
foreach $pageId (keys %{$tree}) {
$output .= $padding.$bullet.'<a class="'.$class.'"';

16
lib/WebGUI/Style.pm
View file

@ -65,20 +65,20 @@ sub get {
my $type = lc($session{setting}{siteicon});
$type =~ s/.*\.(.*?)$/$1/;
$header .= '</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset='.($session{header}{charset}||$session{language}{characterSet}||"ISO-8859-1").'">
<link REL="icon" HREF="'.$session{setting}{siteicon}.'" TYPE="image/'.$type.'">
<LINK REL="SHORTCUT ICON" HREF="'.$session{setting}{favicon}.'">
<meta http-equiv="Content-Type" content="text/html; charset='.($session{header}{charset}||$session{language}{characterSet}||"ISO-8859-1").'" />
<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">';
$header .= '<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache, must-revalidate, max_age=0">';
$header .= '<META HTTP-EQUIV="Expires" CONTENT="0">';
$header .= '<meta http-equiv="Pragma" content="no-cache" />';
$header .= '<meta http-equiv="Cache-Control" content="no-cache, must-revalidate, max_age=0" />';
$header .= '<meta http-equiv="Expires" content="0" />';
}
if ($session{page}{defaultMetaTags}) {
$header .= '<meta http-equiv="Keywords" name="Keywords" content="'.$session{page}{title}
.', '.$session{setting}{companyName}.'">';
$header .= '<meta http-equiv="Description" name="Description" content="'.$session{page}{synopsis}.'">';
.', '.$session{setting}{companyName}.'" />';
$header .= '<meta http-equiv="Description" name="Description" content="'.$session{page}{synopsis}.'" />';
}
$header .= '</head>'.$body[0];

2
lib/WebGUI/URL.pm
View file

@ -87,7 +87,7 @@ sub append {
my ($url);
$url = $_[0];
if ($url =~ /\?/) {
$url .= '&'.$_[1];
$url .= '&amp;'.$_[1];
} else {
$url .= '?'.$_[1];
}