Game Name
Star Wars
Online Players
67000
Avg Time
4 Hrs

##</code><code>##

Game Name     Online Players    Avg Time
Star Wars     67000             4 Hrs

##</code><code>##

while ( ($timestamp, $report_type, $game_name, $data_name, $data_value) = $ora_sth->fetchrow_array)
        {
                if (($data_name eq 'min') || ($data_name eq 'time')) {$data_value = $data_value * 1440}


                {       %myvar =(       $report_type,
                                        $data_name,
                                        $data_value,
                                );
                $dname{$report_type} = $data_name;
                $dvalue{$report_type} = $data_value + $dvalue{$report_type};
                }
        }


print $query->Tr( $query->th(["Report Name"]) );

foreach $var  (keys %dvalue)
        {

                if ($var =~ m/avg_per_comp_game/) {$dvalue{$var} = $dvalue{$var} / $counter}
                if ($var !~ m/unique_user/ and $counter ne 1)
                {
         print $query->Tr($query->td([$var]));
         print $query->Tr($query->td(["$dvalue{$var} $dname{$var}"]));
                }
        }
$ora_dbh->disconnect;
print $query->end_table;
print "\n";
print $query->end_html;
print "\n";