Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi All, I am using DBIx_XHTML_Table for displaying Data in Tabular format. Its working fine. But i have one problem. When I am trying to insert link to a column is not working. Same thing works for all colunms. I am using map_cell function to create links. 
$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/viewprojectdet
+ail.cgi?projectid=P-$datum">"$datum"</a>|;
#});
$table->map_cell( sub{
            my $datum = shift;
           return qq|<a href="http://sctesrv.india/cgi/project/viewpro
+jectdetail.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']);
}

[download]
Thanks in Advance.

Replies are listed 'Best First'.
Re: DBIx_XHTML_Table usage - Urgent Please
by Samy_rio (Vicar) on Nov 21, 2006 at 05:18 UTC

    Hi, your code looks good. Its working fine for me with hyperlink. In DBIx::XHTML_Table module, all the column names are in same case (lower or upper) as of database field name.

    Look the code:

    use DBIx::XHTML_Table;

# database credentials - fill in the blanks
my ($data_source,$usr,$pass) = ();

my $table = DBIx::XHTML_Table->new('DBI:mysql:project', '', '');

$table->exec_query("select * from test");

$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',
    }
  },['id']);

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

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

print $table->output;

    [download]
    Read more... (2 kB)

    Regards,
    Velusamy R.

    eval"print uc\"\\c$_\""for split'','j)@,/6%@0%2,`e@3!-9v2)/@|6%,53!-9@2~j';

[reply]
[d/l]
[select]

Back to Seekers of Perl Wisdom