$table->exec_query("$sql");

$table->modify(table => {
     width  => '100%',
     cellspacing=> '2',
     cellpadding=>'5',
    'border-style' => 'inset',
    'border-width' => 'thin',
  });

$table->modify(th => {
  style => {
    color      => '#FFFAF0',
    background => '#4682B4',
    'text-align' => 'center',
    'text-transform'=> 'uppercase',
  }
},'head');

$table->modify(tr => {
  style => {
    background => ['#B0C4DE','#F0F8FF'],
  }
});


$table->modify(td => {
    style => {
    'text-align' => 'left',
    'white-space' => 'nowrap',
    }
  });
$table->modify(td => {
    style => {
    'text-align' => 'center',
    'white-space' => 'nowrap',
    }
  },['Projects','Tasks','EstimatedDays','SpentDays']);

$table->modify(th => {
   style => 'background: #FFF0F5'
},'foot');

#$table->map_cell(sub {
#   my $datum = shift;
#   return qq|<a href="http://sctesrv.india/cgi/project/viewprojectdetail.cgi?projectid=P-$datum">"$datum"</a>|;
#});
$table->map_cell( sub{
            my $datum = shift;
           return qq|<a href="http://sctesrv.india/cgi/project/viewprojectdetail.cgi?projectid=P-$datum">"$datum"</a>|;
           }, ['Projects']);

if (param('radio-report') eq 'Summary'){
$table->calc_totals(['Projects','Tasks','EstimatedDays','SpentDays']);
}else{
        $table->calc_totals(['Tasks','EstimatedDays','SpentDays']);
}