[* $HEADER = $param[0]; $FOOTER = $param[1]; $USERDETAILS_GL = $param[2]; $RESULT = $param[3]; $BREADCRUM = $param[4]; $BUSINESS_TYPE = $param[5]; $TOTAL_PRODUCT_OFFER = $param[6]; $PROD_PCITEM_GLUSR = $param[7]; $RELATEDCATALOGS1 = $param[8]; $GLUSR_PRODUCT = $param[9]; $URL = $param[10]; $IP_ADDRESS = $param[11]; $PID = $param[12]; $PAGENUMBER = $param[13]; $WITHOUT_IMAGE_DESC_PRODUCT_OFFER = $param[14]; $EXTENDED_PROFILE = $param[15]; $PRODUCTID = $param[16]; $pro_deatil_page_name = $param[20]; $TIME_TRACK = $param[21]; $PGTIME = $param[22]; $PAGECOUNT = $param[23]; $PGFLAG = $param[24]; $PRO_QUERY = $param[25]; $BUYLEAD = $param[26]; $TOTPROCNT = $param[27]; $div = $param[28]; $url_refer =$param[32]; $escmode = 0; $logo = ''; $logo = qq~
~ if($RESULT->{'GLUSR_USR_COMP_LOGO_IMG'}); $RESULT->{'GLUSR_USR_COMPANYNAME'} =~ s/'/'/isg if($RESULT->{'GLUSR_USR_COMPANYNAME'}); *] [+$HEADER+]
Home » Sellers[+$BREADCRUM+]
[+$div+]
[+$logo+]

[+$RESULT->{'GLUSR_USR_COMPANYNAME'}+]

[* $address = ''; if(defined($RESULT->{'GLUSR_USR_ADD1'})) { $address = $RESULT->{'GLUSR_USR_ADD1'}; } if(defined($RESULT->{'GLUSR_USR_ADD2'})) { if($address ne '') { $address = $address.','.$RESULT->{'GLUSR_USR_ADD2'}; } else { $address = $RESULT->{'GLUSR_USR_ADD2'}; } } $zipcode = $RESULT->{'GLUSR_USR_ZIP'} || ''; $city = $RESULT->{'GLUSR_USR_CITY'} || ''; $state = $RESULT->{'GLUSR_USR_STATE'} || ''; if($city ne '' and $state ne '' and ($zipcode =~ /\d+/)) { $city .= qq~, $state-$zipcode~; } elsif($state eq '' and $city ne '' and ($zipcode =~ /\d+/)) { $city .= qq~-$zipcode~; } $country = $RESULT->{'GL_COUNTRY_DISPLAYNAME'} || ''; $add_city_count = qq~$address~ if($address && $address ne ''); $add_city_count.=qq~
$city~ if($city ne ''); $add_city_count.=qq~, $country~ if($country ne ''); $add_city_count =~ s/,,/,/isg; $add_city_count =~ s/, /,/isg; $add_city_count =~ s/,/, /isg; $add_city_count =~ s/-,/,/isg; $add_city_count =~ s/, $//isg; $add_city_count =~ s/^,//isg; $add_city_count =~ s/^ ,//isg; $add_city_count =~ s/'/'/isg; *] [+$add_city_count+]
[* $phdisplay = ''; $phdisplay1 = ''; $phone = ''; if(defined($RESULT->{'GLUSR_USR_PH_COUNTRY'})) { if($RESULT->{'GLUSR_USR_PH_COUNTRY'}=~/\(\+*(.*?)\)/i) { $phone = qq~$RESULT->{'GLUSR_USR_PH_COUNTRY'}~; } else { $phone = qq~+($RESULT->{'GLUSR_USR_PH_COUNTRY'})~; } } $mobile = $RESULT->{'GLUSR_USR_PH_MOBILE'} || ''; if($phone ne '') { $mobile = $phone.'-'.$mobile; } $mobile1 = $mobile; $mobile1 =~ s/[^0-9]//g; if(defined($RESULT->{'GLUSR_USR_PH_AREA'})) { $areaPhone = ''; if(defined($RESULT->{'GLUSR_USR_PH_AREA'})) { if($RESULT->{'GLUSR_USR_PH_AREA'}=~/\((.*?)\)/i) { $areaPhone = qq~$RESULT->{'GLUSR_USR_PH_AREA'}~; } else { $areaPhone = qq~($RESULT->{'GLUSR_USR_PH_AREA'})~; } } if($phone ne '') { $phone = $phone.'-'.$areaPhone; } else { $phone = $areaPhone; } } if(defined($RESULT->{'GLUSR_USR_PH_NUMBER'})) { @phlist = split(/\s*\/+\s*/, $RESULT->{'GLUSR_USR_PH_NUMBER'}); @phfinal = (); foreach my $ph (@phlist) { if($phone ne '') { push(@phfinal, $phone.'-'.$ph); } else { push(@phfinal, $ph); } } $phdisplay = $phfinal[0]; $phdisplay1 = $phfinal[0]; $phdisplay1 =~ s/[^0-9]//g; } $url = $URL.'contact.html'; $enq_link = ''; $enq_link1 = ''; if($phdisplay ne '' || $mobile ne '') { if($RESULT->{'GLUSR_USR_PH_MOBILE'}) { $enq_link = qq~ Send Enquiry~; } else { $enq_link1 = qq~ Send Enquiry~; } *] [* } *]

PRODUCTS & SERVICES

[* $data = ''; @pageExist = (); $counter = $PAGENUMBER * 6; $arr_image = ''; $flag = 0; $count = 0; $id = 0; $j = 0; use HTML::Strip; foreach my $p(@$TOTAL_PRODUCT_OFFER) { $productname = lc($p->{'NAME'}); my $hs = HTML::Strip->new(); $productname = $hs->parse( $productname ); $hs->eof; $productname =~ s/\t+/ /g; $productname =~ s/\ \;/ /g; $productname =~ s/\<(.*?)\>//mg; $productname =~ s/[^[:ascii:]]+//sg; $productname =~ s/[[:cntrl:]]//g; $productname =~ s/\s+/ /mg; $productname =~ s/[^0-9a-zA-Z]/ /g; $productname =~ s/^\s+//g; $productname =~ s/\s+$//g; $productname =~ s/\s+/ /g; $productname =~ s/\s+/-/g; if($j != 0 && ($j % 5 == 0 || $j == (scalar(@$TOTAL_PRODUCT_OFFER) - 1))) { $data .= qq~
~; } else { $data .= qq~
~; } $thumbImage = $p->{'IMAGE'} || ''; if($thumbImage =~ /add-image.gif/ig or $thumbImage =~ /pcat-gifs/ig) { $thumbImage = ''; } if(lc $p->{'DESCRIPTION'} ne lc $p->{'NAME'}) { $smalldesc = $p->{'DESCRIPTION'}; $smalldesc =~ s/^ //isg; $smalldesc =~ s/ $//isg; $smalldesc=~ s/
/\n/isg; $smalldesc=~ s/
/\n/isg; $smalldesc=~ s/\?*//isg; $smalldesc =~ s/<(.*?)>//isg; $smalldesc =~s/(.*?)\<(.*?)$/$1/img; if(length($p->{'DESCRIPTION'}) >= 250) { if(scalar(grep(/$p->{'DATAID'}/, @$PRODUCTID)) > 0 && $productname ne 'profile' && $productname ne 'contact' && !($productname =~ /^product(\d*)#?(.*?)/)) { $url = $URL.$productname.'.html'; if($thumbImage ne '') { if($count > 9) { $p->{'NAME'} =~ s/'/\\'/isg; $arr_image = qq~$arr_image,'$p->{'NAME'}'~; $data .= qq~
~; $id++; } else { $data .= qq~
$p->{'NAME'}
~; } $data .= qq~

$p->{'NAME'}

~; $smalldesc1 = substr($smalldesc,0,250); $len = rindex($smalldesc1,' '); $smalldesc = substr($smalldesc1,0,$len); $smalldesc .= ' ...'; $smalldesc =~ s/\r?\n/
/g; $smalldesc =~ s/ +/ /g; $data .= qq~

$smalldesc

~; $data .= qq~read moreSend Enquiry
~; } else { $data .= qq~

$p->{'NAME'}

~; $smalldesc1 = substr($smalldesc,0,250); $len = rindex($smalldesc1,' '); $smalldesc = substr($smalldesc1,0,$len); $smalldesc .= ' ...'; $smalldesc =~ s/\r?\n/
/g; $smalldesc =~ s/ +/ /g; $data .= qq~

$smalldesc

~; $data .= qq~read moreSend Enquiry
~; } } else { if($thumbImage ne '') { if(scalar(grep(/$productname/, @$pro_deatil_page_name)) > 0) { $url = $URL.$productname.'.html#'.$p->{'DATAID'}; if($count > 9) { $p->{'NAME'} =~ s/'/\\'/isg; $arr_image = qq~$arr_image,'$p->{'NAME'}'~; $data .= qq~
~; $id++; } else { $data .= qq~
$p->{'NAME'}
~; } $data .= qq~

$p->{'NAME'}

~; $smalldesc1 = substr($smalldesc,0,250); $len = rindex($smalldesc1,' '); $smalldesc = substr($smalldesc1,0,$len); $smalldesc .= ' ...'; $smalldesc =~ s/\r?\n/
/g; $smalldesc =~ s/ +/ /g; $data .= qq~

$smalldesc

~; $data .= qq~read moreSend Enquiry~; } else { if($count > 9) { $p->{'NAME'} =~ s/'/\\'/isg; $arr_image = qq~$arr_image,'$p->{'NAME'}'~; $data .= qq~
~; $id++; } else { $data .= qq~
$p->{'NAME'}
~; } $data .= qq~

$p->{'NAME'}

~; $smalldesc =~ s/\r?\n/
/g; $smalldesc =~ s/ +/ /g; $data .= qq~

$smalldesc

Send Enquiry~; } $data .= qq~
~; } else { if(scalar(grep(/$productname/, @$pro_deatil_page_name)) > 0) { $url = $URL.$productname.'.html#'.$p->{'DATAID'}; $data .= qq~

$p->{'NAME'}

~; $smalldesc1 = substr($smalldesc,0,250); $len = rindex($smalldesc1,' '); $smalldesc = substr($smalldesc1,0,$len); $smalldesc .= ' ...'; $smalldesc =~ s/\r?\n/
/g; $smalldesc =~ s/ +/ /g; $data .= qq~

$smalldesc

~; $data .= qq~read moreSend Enquiry~; } else { $data .= qq~

$p->{'NAME'}

~; $smalldesc =~ s/\r?\n/
/g; $smalldesc =~ s/ +/ /g; $data .= qq~

$smalldesc

Send Enquiry~; } $data .= qq~
~; } } } else { if($thumbImage ne '') { if($count > 9) { $p->{'NAME'} =~ s/'/\\'/isg; $arr_image = qq~$arr_image,'$p->{'NAME'}'~; $data .= qq~
~; $id++; } else { $data .= qq~
$p->{'NAME'}
~; } $data .= qq~

$p->{'NAME'}

~; $smalldesc =~ s/\r?\n/
/g; $smalldesc =~ s/ +/ /g; $data .= qq~

$smalldesc

Send Enquiry
~; } else { $data .= qq~

$p->{'NAME'}

~; $smalldesc =~ s/\r?\n/
/g; $smalldesc =~ s/ +/ /g; $data .= qq~

$smalldesc

Send Enquiry
~; } } } else { if($thumbImage ne '') { if($count > 9) { $p->{'NAME'} =~ s/'/\\'/isg; $arr_image = qq~$arr_image,'$p->{'NAME'}'~; $data .= qq~
~; $id++; } else { $data .= qq~
$p->{'NAME'}
~; } $data .= qq~

$p->{'NAME'}

Send Enquiry
~; } else { $data .= qq~

$p->{'NAME'}

Send Enquiry
~; } } $data .= qq~
 
~; $j++; $count++; $flag = 1 if($j == $PGFLAG); if($PAGENUMBER != ($PAGECOUNT - 1) and (!$flag)) { last if($j % 6 == 0); } } $l1=''; $f1=''; $link=''; $link1=''; $urlnum =''; $disp=''; $prev=''; $next=''; if($PAGECOUNT > 1) { if($PAGECOUNT <= 12) { if($PAGENUMBER>0) { if($PAGENUMBER==1) { $pagenation .=qq~
  • ~; } else { $disp =$PAGENUMBER-1; $url = $URL.'product'.$disp.'.html'; $pagenation .=qq~
  • ~; } } elsif($PAGENUMBER==0) { $pagenation .=qq~
  • Prev
  • ~; } foreach($i=0;$i < $PAGECOUNT;$i++) { if($i == $PAGENUMBER) { $disp =$i+1; $pagenation .=qq~
  • $disp
  • ~ } else { if($i==0) { $disp =$i+1; $url = $URL.'product.html'; $pagenation.= qq~
  • $disp
  • ~; } else { $disp =$i+1; $url = $URL.'product'.$i.'.html'; $pagenation.= qq~
  • $disp
  • ~; } } } if($PAGENUMBER<($PAGECOUNT-1)) { $disp =$PAGENUMBER+1; $url = $URL.'product'.$disp.'.html'; $pagenation .=qq~
  • ~; } elsif($PAGENUMBER==($PAGECOUNT-1)) { $pagenation .=qq~
  • Next
  • ~; } } else { $PGNUMBER = $PAGENUMBER+1; if($PAGENUMBER>1) { if($PAGENUMBER==2) { $prev =qq~
  • ~; } else { $disp =$PAGENUMBER-1; $url = $URL.'product'.$disp.'.html'; $prev =qq~
  • ~; } } elsif($PGNUMBER==1) { $prev =qq~
  • Prev
  • ~; } if($PGNUMBER > 7) { $url = $URL.'product.html'; $f1 .=qq~
  • 1
  • ...
  • ~; $i= 4; $j=1; while($i > 0) { $num = $PGNUMBER-$i; $urlnum =$num-1; if($urlnum>0) { $url = $URL.'product'.$urlnum.'.html'; } else { $url = $URL.'product.html'; } $link .= qq~
  • $num
  • ~; $num = $PGNUMBER+$j; $urlnum=$num-1; $url = $URL.'product'.$urlnum.'.html'; if(($num < $PAGECOUNT)) { $link1 .= qq~
  • $num
  • ~; } $i--; $j++; } $urlnum =$PAGECOUNT-1; $url = $URL.'product'.$urlnum.'.html'; if(($PAGECOUNT-$PGNUMBER)> 4) { $l1 .= qq~
  • ...
  • $PAGECOUNT
  • ~; } else { if($PAGENUMBER!=($PAGECOUNT-1)) { $urlnum =$PAGECOUNT-1; $url = $URL.'product'.$urlnum.'.html'; $l1 .= qq~
  • $PAGECOUNT
  • ~; } } $urlnum=$PGNUMBER-1; $url = $URL.'product'.$urlnum.'.html'; if($PAGENUMBER<($PAGECOUNT-1)) { $disp =$PAGENUMBER+1; $url = $URL.'product'.$disp.'.html'; $next =qq~
  • ~; } elsif($PAGENUMBER==($PAGECOUNT-1)) { $next =qq~
  • Next
  • ~; } $pagenation= qq~$prev$f1$link
  • $PGNUMBER
  • $link1$l1$next~; } else { $i = 1; while($i < 10) { $urlnum =$i-1; $url = $URL.'product'.$urlnum.'.html'; if($PGNUMBER == $i) { $f1 .= qq~
  • $i
  • ~; } else { $f1 .= qq~
  • $i
  • ~; } $i++; } if($PAGENUMBER<($PAGECOUNT-1)) { $disp =$PAGENUMBER+1; $url = $URL.'product'.$disp.'.html'; $next =qq~
  • ~; } elsif($PAGENUMBER==($PAGECOUNT-1)) { $next =qq~
  • Next
  • ~; } $urlnum=$PAGECOUNT-1; $url = $URL.'product'.$urlnum.'.html'; $l1 .= qq~
  • ...
  • $PAGECOUNT
  • ~; $pagenation= qq~$prev$f1$link$link1$l1$next~; } } } $data =~ s/'/'/isg; $data =~ s/
    /
    /isg; *] [+$data+]
    [* if(!$RESULT->{'ADULT_FLAG'}) { *] [* } *]

    [* $data = ''; $data1 = ''; if(scalar(@$RELATEDCATALOGS1) > 0) { $counter = 0; foreach $compDetail (@$RELATEDCATALOGS1) { $counter++; $image = $compDetail->{'IMAGE'} || ''; $compdesc = substr($compDetail->{'DIR_SEARCH_COMPANYSUBCATDESC'}, 0, 150); if(length($compDetail->{'DIR_SEARCH_COMPANYSUBCATDESC'}) > 150) { $compdesc =~ s/^(.*\s).*/$1/s; $compdesc .= '...'; } $compdesc =~ s/br \>|br>//isg; $compdesc =~ s/br \/>br \/>//isg; my $fcpurl = $compDetail->{'FREESHOWROOM_URL_HT'}; $fcpurl =~ s/http\:\/\///ig; my @fcpurl = split(/\//,$fcpurl); $fcpurl = '/'.$fcpurl[1].'/'; $compname = $compDetail->{'DIR_SEARCH_COMPANY'}; if($counter>3) { $data2 .= qq~
    ×
    ~; if($image ne '') { $image =~ s/\'/\\'/gs; $arr_image = qq~$arr_image,''~; $data2 .= qq~
    ~; } else { $data2 .= qq~
    ~; } $data2 .= qq~

    $compname

    ~; $data2 .= qq~$compdescview details
    ~; } else { $data1 .= qq~
    ~; if($image ne '') { $image =~ s/\'/\\'/gs; $arr_image = qq~$arr_image,''~; $data1 .= qq~
    ~; } else { $data1 .= qq~
    ~; } $data1 .= qq~

    $compname

    ~; $data1 .= qq~$compdescview details
    ~; } $id++; } $data1 =~ s/'/'/isg; $data1 =~ s/
    /
    /isg; *]
    RELATED CATALOGS
    [+$data1+]

    [* if($counter > 3) { $data2 =~ s/'/'/isg; $data2 =~ s/
    /
    /isg; *]
    [* if(!$RESULT->{'ADULT_FLAG'}) { *] [* } *]
     
    [* if(!$RESULT->{'ADULT_FLAG'}) { *] [* } *]
     
    [* if(!$RESULT->{'ADULT_FLAG'}) { *] [* } *]
    [* if(scalar(@$BUYLEAD) > 0) { *]

    Related Buyers

    [* foreach $h(@$BUYLEAD) { *]
    [+$h->{title}+] , [+$h->{countryname}+]

    [+$h->{smalldesc}+]...

    [* } *]
    [* } *]
     
     

    sending enquiry
    Thank You

    unable to instantiate your call right now. please try after some time.

    close

    © Copyright HelloTrade.com
    [* $PRO_QUERY = qq~~; *] [+$PRO_QUERY+]
    [* $PGTIME = Time::HiRes::time - $PGTIME; $TIME_TRACK .= qq~~; *] [+$TIME_TRACK+]