Report Name  Game   June   May   April etc....

##</code><code>##

elsif ($query->param('layout') eq 'Month Comparison')
  
{
		$ora_sth = $ora_dbh->prepare ( q
		{
			select
                        	timestamp,
                        	report_type,
				game_name,
                        	data_name,
                        	data_value
                	from
                        	dwhs.mainstream_games_reports
                	where
				game_name = ?
			and	
                        	timestamp >= (sysdate - ?)
		}  
	)  || die "Can't prepare statement: $DBI::errstr";

$rc = $ora_sth->execute($list_name,$day_list) || die "Can't execute statement: $DBI::errstr";

$query = new CGI;
print $query->header,
$query->start_html(-title=>'Hearts Data',
			-BGCOLOR=>'3366CC');
print "\n";

print $query->start_table({-border=>undef,
				-align=>'center'});
print "\n";

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","Value"]) );	

foreach $var  (keys %dvalue)
	{
	print $query->Tr( $query->td([$var,"$dvalue{$var} $dname{$var}"]) );	
	}
$ora_dbh->disconnect;
print $query->end_table;
print "\n";
print $query->end_html;
print "\n";

}