[* $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]; $MCAT = $param[19]; $PGFLAG = $param[24]; $PRO_QUERY = $param[25]; $BUYLEAD = $param[26]; $TOTPROCNT = $param[27]; $div = $param[28]; $mcat_name = $param[29] || ''; $prdbdcrm = $param[30] || ''; $prd_page = $param[31] || ''; $url_refer =$param[32]; @bl_mcat = split(/\,/,$mcat_name); $RESULT->{'GLUSR_USR_COMPANYNAME'} =~ s/'/'/isg if($RESULT->{'GLUSR_USR_COMPANYNAME'}); $logo = ''; $logo = qq~
~ if($RESULT->{'GLUSR_USR_COMP_LOGO_IMG'}); $escmode = 0; use Data::Dumper; *] [+$HEADER+]
Home »Sellers [* if($MCAT) { if($prdbdcrm) { *] [+$prdbdcrm+] [* } } else { *] [+$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~; } *] [* } *]
[* $next = ''; if($prd_page && $prd_page ne '') { $glid = $RESULT->{'GLUSR_USR_ID'}; $click = qq~onclick="_gaq.push(['_trackEvent', 'FCPPRD', 'NEXTBTN']);"~; $class = '
Next Product
'; $next = qq~
$class
~; } *] [+$next+] [* $id = ''; $data = ''; $data1 = ''; @myNames = (); $counter = 0; use HTML::Strip; foreach $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; $smalldesc = $p->{'DESCRIPTION'} || ''; if(length($p->{'DESCRIPTION_NOHTML'}) >= 250) { if($productname eq $PID) { $id = $p->{'DATAID'}; $counter++; $smallImage = $p->{'IMAGE'} || ''; $largeImage =$p->{'IMAGE_500'} || ''; if($smallImage =~ /add-image.gif/ig or $smallImage =~ /pcat-gifs/ig) { $smallImage = ''; } $data .= qq~
~; if($smallImage ne '') { $data .= qq~
$p->{'NAME'}
~; $pname=$p->{'NAME'}; if($largeImage ne '') { $data .= qq~
~; } $data .=qq~
~; } if(scalar(@$TOTAL_PRODUCT_OFFER) > 1 && $smallImage eq '') { $data .= qq~
~; } elsif(scalar(@$TOTAL_PRODUCT_OFFER) > 1) { $data .= qq~
~; } else { $data .= qq~
~; } if($p->{'DESCRIPTION_NOHTML'} ne $p->{'NAME'}) { $bigdesc = $p->{'DESCRIPTION'}; $bigdesc =~ s/\r?\n/
/g; $bigdesc =~ s/ +/ /g; $data .= qq~

$p->{'NAME'}

$bigdesc
~; if($p->{'SPECIFICATION'} && length($p->{'SPECIFICATION'}) > 0) { $p->{'SPECIFICATION'} =~ s/\r?\n/
/g; $p->{'SPECIFICATION'} =~ s/ +/ /g; $data .= qq~

$p->{'SPECIFICATION'}

~; } $data =~ s/\r?\n/
/g; } if($MCAT) { $data .= qq~
 
More - $MCAT

~; } else { $data .= qq~
 
~; } $data =~ s/'/'/isg; $data =~ s/
/
/isg; *] [+$data+] [* $data = ''; $mcat_link = ''; if($counter ==1) { } } } } *] [* $btn = ''; if($USERDETAILS_GL->{'email'} && $USERDETAILS_GL->{'email'} ne '') { $msg1 = qq~
~; $btn = qq~
~; } *]
[* if($USERDETAILS_GL->{'email'} && $USERDETAILS_GL->{'email'} ne '') { *]
Send Enquiry
[* } else { *]
Send Enquiry
Your Contact Details
[* } *]
[+$msg1+] [* if($btn && $btn ne '') { *] [+$btn+] [* } else { *]
[* } *]
[* if($USERDETAILS_GL->{'email'} && $USERDETAILS_GL->{'email'} ne '') { if($USERDETAILS_GL->{'last_name'} eq 'Last Name') { $name = $USERDETAILS_GL->{'first_name'}; } else { if($USERDETAILS_GL->{'Last Name'}) { $name = $USERDETAILS_GL->{'first_name'}.' '.$USERDETAILS_GL->{'Last Name'}; } else { $name = $USERDETAILS_GL->{'first_name'}; } } $contact_data = qq~
Your Contact Information :  (It will be tagged with the enquiry)
Name
$name
Email
$USERDETAILS_GL->{'email'}
Country
$USERDETAILS_GL->{'country'}
~; if($USERDETAILS_GL->{'mobile'} && $USERDETAILS_GL->{'mobile'} ne '') { $contact_data .= '
Mobile / Cell Phone
(+'.$USERDETAILS_GL->{'ph_country'}.') - '.$USERDETAILS_GL->{'mobile'}.'
'; } else { $contact_data .= "------"; } $contact_data .= qq~
~; } *]
[+ $contact_data +]
 
 
[* if(!$RESULT->{'ADULT_FLAG'}) { *] [* } *]

[* $data = ''; $data1 = ''; $data2=''; $arr_image=''; $id1=0; 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].'/'; $proname = $compDetail->{'ITEM_NAME'}; $pgname = lc($compDetail->{'ITEM_NAME'}); $pgname =~ s/&/ /g; $pgname =~ s/'/ /g; $pgname =~ s/[^0-9a-zA-Z]/ /g; $pgname =~ s/^\s+//g; $pgname =~ s/\s+$//g; $pgname =~ s/\s+/ /g; $pgname =~ s/\s+/-/g; $fcpurl .= $pgname.'.html'; $compname = $compDetail->{'DIR_SEARCH_COMPANY'}; if($counter>3) { $data2 .= qq~
×
~; if($image ne '') { $arr_image = qq~$arr_image,''~; $data2 .= qq~
~; } else { $data2 .= qq~
~; } $data2 .= qq~

$proname

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

$proname

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

[* if($counter > 3) { $data2 =~ s/'/'/isg; $data2 =~ s/
/
/isg; *]
[* if(!$RESULT->{'ADULT_FLAG'}) { *] [* } *]
 
[* $data = ''; $counter = 0; $i=0; $flag = 0; $ProPageNum = ''; $link1 = ''; $link2 = ''; $ii=1; $jj=1; $data = ''; my $totcnt = 0; $totcnt = $PGFLAG; $totcnt = scalar(@$TOTAL_PRODUCT_OFFER) if($PGFLAG == 0); foreach $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($counter == $i) { $flag = 1; } $i++; if($flag) { if($p->{'DATAID'} ne $id) { $thumbImage = $p->{'IMAGE_125'} || ''; if($thumbImage =~ /add-image.gif/ig or $thumbImage =~ /pcat-gifs/ig) { $thumbImage = ''; } if($thumbImage ne '') { $i = $PGFLAG if($i >= $PGFLAG); $disp_cnt = $i / 6; if($disp_cnt>1 && $disp_cnt <=2) { $ProPageNum = 1; } elsif($disp_cnt>2 && $disp_cnt <=3) { $ProPageNum = 2; } elsif($disp_cnt>3 && $disp_cnt <=4) { $ProPageNum = 3; } if($ProPageNum ne '') { $ProPageNum= $ProPageNum - 1 if(($i%6 > 0 ) && ($totcnt - $i <= 2)); $ProPageNum= '' if($ProPageNum == 0); } $counter++; $smalldesc = $p->{'DESCRIPTION'}; $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(length($p->{'DESCRIPTION_NOHTML'}) >= 250) { if($productname ne 'profile' && $productname ne 'contact' && !($productname =~ /^product(\d*)#?(.*?)/)) { if(scalar(grep(/$p->{'DATAID'}/, @$PRODUCTID)) > 0) { $url = $URL.$productname.'.html'; } else { $url = $URL.$productname.'.html#'.$p->{'DATAID'}; } if($ii <= 2) { if($ii==1) { $data .=qq~
~; } $data .= qq~~; if($ii==2) { $data .=qq~
~; } $ii++; } else { if($ii > 2 && $ii <=4) { if($ii == 3) { $data .= qq~
~; } $data .= qq~~; if($ii==4) { $data .=qq~
~; } $ii++; } } } else { if(scalar(@$TOTAL_PRODUCT_OFFER) > 3) { if($ProPageNum ne '') { $url = $URL.'product'.$ProPageNum.'.html#'.$p->{'DATAID'}; } else { $url = $URL.'product.html#'.$p->{'DATAID'}; } if($ii <= 2) { if($ii==1) { $data .=qq~
~; } $data .= qq~~; if($ii==2) { $data .=qq~
~; } $ii++; } else { if($ii > 2 && $ii <=4) { if($ii == 3) { $data .= qq~
~; } $data .= qq~~; if($ii==4) { $data .=qq~
~; } $ii++; } } } else { if($ii <= 2) { if($ii==1) { $data .=qq~
~; } $data .= qq~~; if($ii==2) { $data .=qq~
~; } $ii++; } else { if($ii > 2 && $ii <=4) { if($ii == 3) { $data .= qq~
~; } $data .= qq~~; if($ii==4) { $data .=qq~
~; } $ii++; } } } } } else { if(scalar(@$TOTAL_PRODUCT_OFFER) > 3) {if($ProPageNum ne '') { $url = $URL.'product'.$ProPageNum.'.html#'.$p->{'DATAID'}; } else { $url = $URL.'product.html#'.$p->{'DATAID'}; } if($ii <= 2) { if($ii==1) { $data .=qq~
~; } $data .= qq~~; if($ii==2) { $data .=qq~
~; } $ii++; } else { if($ii > 2 && $ii <=4) { if($ii == 3) { $data .= qq~
~; } $data .= qq~~; if($ii==4) { $data .=qq~
~; } $ii++; } } } else { if($ii <= 2) { if($ii==1) { $data .=qq~
~; } $data .= qq~~; if($ii==2) { $data .=qq~
~; } $ii++; } else { if($ii > 2 && $ii <=4) { if($ii == 3) { $data .= qq~
~; } $data .= qq~~; if($ii==4) { $data .=qq~
~; } $ii++; } } } } } last if($counter == 4); } } } $data =~ s/'/'/isg; $data =~ s/
/
/isg; if($counter > 0) { *]

OTHER PRODUCTS

[+$data+]
[* } *]
 
[* 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
Home | About Us | Partner with us | Disclaimer | Blog | Testimonial | Feedback & Complaint | Help
[* $PRO_QUERY = qq~~; *] [+$PRO_QUERY+]