How about replacing;
my $cond = GT::SQL::Condition->new('URL','LIKE',"$url%");
$chk_dup = $db_con->count ( $cond );
...with;
my $url2 = $url;
$url2 =~ s/www\.//i;
my $url3 = $url;
$url3 =~ s,(/|\\)$,,i;
my $cond1 = GT::SQL::Condition->new('URL','LIKE',"$url%");
my $chk_dup1 = $db_con->count ( $cond1 );
my $cond2 = GT::SQL::Condition->new('URL','LIKE',"$url2%");
my $chk_dup2 = $db_con->count ( $cond2 );
my $cond2 = GT::SQL::Condition->new('URL','LIKE',"$url3%");
my $chk_dup3 = $db_con->count ( $cond3 );
$chk_dup1 ? $chk_dup = $chk_dup1 : '';
$chk_dup2 ? $chk_dup = $chk_dup2 : '';
$chk_dup3 ? $chk_dup = $chk_dup3 : '';
Untested, but it should work.
Cheers
Andy (mod)
andy@ultranerds.co.uk
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package | GLinks ULTRA Package PRO
Links SQL Plugins | Website Design and SEO | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!
Code:
my $url = $IN->param('URL'); my $cond = GT::SQL::Condition->new('URL','LIKE',"$url%");
$chk_dup = $db_con->count ( $cond );
...with;
Code:
my $url = $IN->param('URL'); my $url2 = $url;
$url2 =~ s/www\.//i;
my $url3 = $url;
$url3 =~ s,(/|\\)$,,i;
my $cond1 = GT::SQL::Condition->new('URL','LIKE',"$url%");
my $chk_dup1 = $db_con->count ( $cond1 );
my $cond2 = GT::SQL::Condition->new('URL','LIKE',"$url2%");
my $chk_dup2 = $db_con->count ( $cond2 );
my $cond2 = GT::SQL::Condition->new('URL','LIKE',"$url3%");
my $chk_dup3 = $db_con->count ( $cond3 );
$chk_dup1 ? $chk_dup = $chk_dup1 : '';
$chk_dup2 ? $chk_dup = $chk_dup2 : '';
$chk_dup3 ? $chk_dup = $chk_dup3 : '';
Untested, but it should work.
Cheers
Andy (mod)
andy@ultranerds.co.uk
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package | GLinks ULTRA Package PRO
Links SQL Plugins | Website Design and SEO | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!