#------------------------------------------------------------------------------
# Function: Write on ouput header of HTML page
# Parameters: None
# Input: %HTMLOutput $PluginMode $Expires $Lang $StyleSheet $HTMLHeadSection $PageCode $PageDir
# Output: $HeaderHTMLSent=1
# Return: None
#------------------------------------------------------------------------------
sub html_head {
my $dir=$PageDir?'right':'left';
if (scalar keys %HTMLOutput || $PluginMode) {
my $MetaRobot=0; # meta robots
my $periodtitle=" ($YearRequired".($MonthRequired ne 'all'?"-$MonthRequired":"").")";
# Write head section
if ($BuildReportFormat eq 'xhtml' || $BuildReportFormat eq 'xml') {
if ($PageCode) {
print "\n";
} else {
print "\n";
}
;
if ($FrameName ne 'index') {
print "\n";
} else {
print "\n";
}
print "\n";
} else {
if ($FrameName ne 'index') {
print "\n\n";
} else {
print "\n\n";
}
print "\n";
}
print "\n";
print "\n";
if ($MetaRobot) {
print "\n";
} else {
print "\n";
}