I want to creat monthly bucket for comaprison in a format like:

Report Name  Game   June   May   April etc....
[download]

Please help.

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 st
+atement: $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_va
+lue = $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";

}
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.