Untitled

sub camp_image_tag_implementation {
    my $sql = 'SELECT cam_imagename,cam_code,cam_link FROM campaigns ORDER BY RAND() LIMIT 1';
    my @fields = dbh->selectrow_array($sql);
    #my $string = '<a href="'. $Tag->area(  { href => "bounce", arg  => "id=$fields[2]", }  ) .'">';
    my $string =  $Tag->area(  { href => "bounce", arg  => "cid=$fields[2]" } )  ;
    #my $string = '';
    $string   .= "<img src='http://$::Variable->{SERVER_NAME}$::Variable->{ASSETS_DIR}/product-images/campaign/$fields[0]'></a>";
    return $string;
}