[* $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]; $escmode = 0; *] [+$HEADER+]
Home » Sellers [+$BREADCRUM+]

[+$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 = $address->{'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~; $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+]
[* $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; } if($phdisplay ne '' || $mobile ne '') { *]
[* if($phdisplay ne '') { *]
[+$phdisplay+]
[* } if($RESULT->{'GLUSR_USR_PH_MOBILE'}) { *]
[+$mobile+]
[* } *]
[* } *]
[* $data = ''; $know_us = $RESULT->{'GLUSR_USR_COMPANY_DESC'} || ''; $know_us =~ s/^\s+//g; $know_us =~ s/\s+$//g; if($know_us eq '') { $know_us = $RESULT->{'GLUSR_USR_SELLINTEREST'} || ''; } $know_us_length = length($know_us) if($know_us ne ''); $total_length = $know_us_length; $data1 = ''; foreach $h (@$EXTENDED_PROFILE) { $desc = $h->{'GLUSR_EX_PROFILE_DESCRIPTION'} || ''; $desc =~ s/^\s+//g if($desc ne ''); $desc =~ s/\s+$//g if($desc ne ''); $desc =~ s/\s+/ /g if($desc ne ''); $total_length = $total_length + length($desc); $title = uc($h->{'GLUSR_EX_PROFILE_TITLE'}); if(length($desc) > 0 and $desc ne '') { $desc =~ s/\r?\n/
/g; $data1 .= qq~

$title

$desc

~; } } if($total_length < 700) { if($know_us ne '') { $know_us =~ s/\r?\n/
/g; $data .= qq~

$know_us

~; } if($data1 ne '') { $data .= qq~$data1~; } } else { if($know_us_length >= 700) { $url = $URL.'profile.html'; $know_us = substr($know_us,0,500); $len = rindex($know_us,' '); $know_us = substr($know_us,0,$len); $know_us =~ s/\r?\n/
/g; $data .= qq~

$know_us ...

read more~; } else { $url = $URL.'profile.html'; $know_us =~ s/\r?\n/
/g; $data .= qq~

$know_us

read more~; } } *]
[+$data+]
[* $data = ''; if(defined($BUSINESS_TYPE) || defined($RESULT->{'GLUSR_NOOF_EMP_VAL'}) || defined($RESULT->{'GLUSR_USR_YEAR_OF_ESTB'}) || defined($RESULT->{'GLUSR_TURNOVER_VAL'})) { $data .= qq~

BUSINESS INFORMATION

~; $data .= qq~
Established In
$RESULT->{'GLUSR_USR_YEAR_OF_ESTB'}
~ if(defined($RESULT->{'GLUSR_USR_YEAR_OF_ESTB'})); $data .= qq~
Business Type
$BUSINESS_TYPE
~ if(defined($BUSINESS_TYPE)); $data .= qq~
Number of Employees
$RESULT->{'GLUSR_NOOF_EMP_VAL'}
~ if(defined($RESULT->{'GLUSR_NOOF_EMP_VAL'})); $RESULT->{'GLUSR_TURNOVER_VAL'}=~s/(.*?)\((.*?)\)/$1/ig if($RESULT->{'GLUSR_TURNOVER_VAL'}); $data .= qq~
Turnover
$RESULT->{'GLUSR_TURNOVER_VAL'}
~ if(defined($RESULT->{'GLUSR_TURNOVER_VAL'})); } *] [+$data+]
 
[* if(scalar(@$TOTAL_PRODUCT_OFFER) > 0) { if(scalar(@$GLUSR_PRODUCT) > 0) { $count = 0; $p = ''; $otherproduct = ''; foreach $p (@$GLUSR_PRODUCT) { $p1 = lc($p); $p1 =~ s/[^0-9a-zA-Z]/ /g; $p1 =~ s/^\s+//g; $p1 =~ s/\s+$//g; $p1 =~ s/\s+/ /g; $p1 =~ s/\s+/-/g; next if(scalar(grep(/^$p1$/i,@displayProduct)) > 0); $count++; push(@displayProduct,$p1); $otherproduct .= qq~
  • $p
  • ~; last if($count == 5); } if($count) { *]

    OTHER PRODUCTS

      [+$otherproduct+]
    [* } } } *]

    PRODUCTS & SERVICES

    [* @displayProduct = (); $data = ''; $counter = 0; if(scalar(@$TOTAL_PRODUCT_OFFER) > 0) { foreach $p (@$TOTAL_PRODUCT_OFFER) { $thumbImage = $p->{'IMAGE_125'} || ''; if($thumbImage =~ /add-image.gif/ig or $thumbImage =~ /pcat-gifs/ig) { $thumbImage = ''; } $counter++; $data .= qq~
    ~; $data .= qq~

    $p->{'NAME'}

    ~; if($thumbImage ne '') { $data .= qq~
    $p->{'NAME'}
    ~; } if($p->{'DESCRIPTION'} ne $p->{'NAME'}) { $productname = lc($p->{'NAME'}); $productname =~ s/[^0-9a-zA-Z]/ /g; $productname =~ s/^\s+//g; $productname =~ s/\s+$//g; $productname =~ s/\s+/ /g; $productname =~ s/\s+/-/g; push(@displayProduct,$productname); $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) { $smalldesc1 = substr($smalldesc,0,125); $len = rindex($smalldesc1,' '); $smalldesc = substr($smalldesc1,0,$len); $smalldesc .= ' ...'; $smalldesc =~ s/\r?\n/
    /g; $smalldesc =~ s/ +/ /g; if(scalar(grep(/$p->{'DATAID'}/, @$PRODUCTID)) > 0) { $url = $URL.$productname.'.html'; $data .= qq~

    $smalldesc

    read more~; } else { $data .= qq~

    $smalldesc

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

    $smalldesc

    ~; } } $data .= qq~
    ~; $data .= qq~
    ~ if($counter < 4); $data .= qq~
     
    ~ if($counter == 4); last if($counter == 4); } } *] [+$data+] [* $data = ''; if($counter == 0) { if(scalar(@$GLUSR_PRODUCT) > 0) { $p = ''; $count = 0; *]
      [* foreach $p (@$GLUSR_PRODUCT) { $p1 = lc($p); $p1 =~ s/[^0-9a-zA-Z]/ /g; $p1 =~ s/^\s+//g; $p1 =~ s/\s+$//g; $p1 =~ s/\s+/ /g; $p1 =~ s/\s+/-/g; next if(scalar(grep(/^$p1$/i,@displayProduct)) > 0); $count++; push(@displayProduct,$p1); *]
    • [+$p+]
    • [* last if($count == 20); } *]
    [* } } *]
    [* $data = ''; $data1 = ''; if(scalar(@$RELATEDCATALOGS1) > 0) { $counter = 0; foreach $compDetail (@$RELATEDCATALOGS1) { $counter++; $image = $compDetail->{'IMAGE'} || ''; $compdesc = substr($compDetail->{'DIR_SEARCH_COMPANYSUBCATDESC'}, 0, 120); if(length($compDetail->{'DIR_SEARCH_COMPANYSUBCATDESC'}) > 120) { $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'}; $css = 'fl'; $css = 'fr' if($counter%2 == 0); $data1 .= qq~
    ~; if($image ne '') { $data1 .= qq~~; } $data1 .= qq~
    $compdesc
    view details
     
    ~; $data1 .= qq~
    ~if($counter==2); } *]
    [* if($counter > 0) { *]
    RELATED CATALOGS
    [+$data1+]
     
    [* } } *]
    SEND ENQUIRY
    * Describe your requirements:
    * Enter the text shown on image