\n print ” cellspacing=$vals[cellspacing]”;
\n print ” border=$vals[border]”; <\/p>\n
if ($vals[width] != 0) { print ” width=$vals[width]”; }
\n if ($vals[background]) { print ” background=$vals[background]”; }
\n print “>
\n“; <\/p>\n
if (($vals[vlabel]) || ($vals[hlabel])) {
\n if (($vals[type] == 0) || ($vals[type] == 2 )) { \/\/ horizontal chart
\n $rowspan = sizeof($names) + 1;
\n $colspan = 3;
\n } elseif ($vals[type] == 1) { \/\/ vertical chart
\n $rowspan = 3;
\n $colspan = sizeof($names) + 1;
\n } <\/p>\n
print “<\/p>\n
\n if (!$vals[background]) { print “bgcolor=$vals[hbgcolor]”; }
\n print ” colspan=$colspan>”;
\n print ““;
\n print “$vals[hlabel]<\/b>“;
\n print “<\/font><\/td>\n<\/tr>\n
\n“; <\/p>\n
print “<\/p>\n
\n if (!$vals[background]) { print “bgcolor=$vals[vbgcolor]”; }
\n print ” ROWSPAN=$rowspan>”;
\n print ““;
\n print “$vals[vlabel]<\/b>“;
\n print “<\/font><\/td>\n
\n“;
\n }
\n} <\/p>\n
#######################################################################
\n# Function: end_graph()
\n# Purpose: Prints out the table footer.
\n#######################################################################
\nfunction end_graph()
\n{
\n print “<\/table>\n
“;
\n} <\/p>\n
#######################################################################
\n# Function: hv_graph_defaults($vals)
\n# Purpose: Sets the default values for the $vals array
\n#######################################################################
\nfunction hv_graph_defaults($vals)
\n{
\n if (!$vals[vfcolor]) { $vals[vfcolor]=”#000000″; }
\n if (!$vals[hfcolor]) { $vals[hfcolor]=”#000000″; }
\n if (!$vals[vbgcolor]) { $vals[vbgcolor]=”#FFFFFF”; }
\n if (!$vals[hbgcolor]) { $vals[hbgcolor]=”#FFFFFF”; }
\n if (!$vals[cellpadding]) { $vals[cellpadding]=0; }
\n if (!$vals[cellspacing]) { $vals[cellspacing]=0; }
\n if (!$vals[border]) { $vals[border]=0; }
\n if (!$vals[scale]) { $vals[scale]=1; }
\n if (!$vals[namebgcolor]) { $vals[namebgcolor]=”#FFFFFF”; }
\n if (!$vals[valuebgcolor]) { $vals[valuebgcolor]=”#FFFFFF”; }
\n if (!$vals[namefcolor]) { $vals[namefcolor]=”#000000″; }
\n if (!$vals[valuefcolor]) { $vals[valuefcolor]=”#000000″; }
\n if (!$vals[doublefcolor]) { $vals[doublefcolor]=”#886666″; }
\n return ($vals);
\n} <\/p>\n
#######################################################################
\n# Function: horizontal_graph($names, $values, $bars, $vals)
\n# Purpose: Prints out the actual data for the horizontal chart.
\n#######################################################################
\nfunction horizontal_graph($names, $values, $bars, $vals)
\n{
\n for ($i = 0; $i < sizeof($values); $i++) {
\n echo(“
\n if (! $vals[background]) { print ‘ BGCOLOR=”‘ . $vals[namebgcolor] . ‘”‘; }
\n echo(“>
\n
\n$names[$i]
\n<\/FONT><\/TD>
\n
\n if (! $vals[background]) { print ‘ BGCOLOR=”‘ . $vals[valuebgcolor] . ‘”‘; }
\n echo(“>”);
\n \/\/ Decide if the value in bar is a color code or image.
\n if (ereg(“^#”, $bars[$i])) {
\n $width = $values[$i] * $vals[scale];
\n echo(“
\n
\n<\/TABLE>
\n“);
\n } else {
\n print ‘
\n }
\n if (! $vals[noshowvals]) {
\n print ‘\n print ‘ STYLE=”‘ . $vals[valuefstyle] . ‘”>(‘;
\n print $values[$i] . “)<\/FONT><\/I>“;
\n }
\n echo(“<\/TD><\/TR>
\n“);
\n }
\n} <\/p>\n
#######################################################################
\n# Function: vertical_graph($names, $values, $bars, $vals)
\n# Purpose: Prints out the actual data for the vertical chart.
\n#######################################################################
\nfunction vertical_graph($names, $values, $bars, $vals)
\n{
\n print “<\/p>\n
for ($i = 0; $i < sizeof($values); $i++) {
\n print “<\/p>\n
\n if (!$vals[background]) { print ” BGCOLOR=$vals[valuebgcolor]”; }
\n print “>”; <\/p>\n