Bummer, it really does not work  ??? I must have made a mess of my script, although i still get it. This seem to crash somewhere around the 3/4th part of this addon.

As soon as i change something after:
sub get_table_val {
   my ($option, $random_data) = @_;
   my $pic_cnt = 0;
   my $row_switch = (int(@$random_data / 2) + 1) if @$random_data > 4;
   my (
$close_time, $image, $img_info, $title, $bids, $bid, $cat,
$item, $row, $rowcolor, $tbl_val, $the_bid, $date, $time,
   );
   local $_;
   
foreach (@$random_data) {
 $pic_cnt++;
 
    (
 $close_time,
 $image,
 $title,
 $bids,
 $bid,
 $cat,
 $item
    ) = split /\[\]/, $_;
     
    $img_info = qq|<img src="$config{'img_url'}/$image"@{[img_size($image, 110)]}>|
    if $option eq 'pic' and $image !~ /http\:/;
     
    $img_info = qq|<img src="$config{'icon_url'}/$config{'if_image'}" border="0">|
    if $option eq 'list' and $image =~ /\.\w{3,}/;
     
    $img_info = qq|<img src="$config{'icon_url'}/$config{'no_image'}" border="0">|
    if $option eq 'list' and $image !~ /\.\w{3,}/;
     
 $the_bid = form_currency($bid);
    ($date, $time) = form_date($close_time) if $option eq 'list';
     
 ($row, $rowcolor) = get_row_color($row);
     

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxx xxxxxxxxxxxxxx

There is goes wrong.

What can I do?

Freddy