[* $dataref = $param[0]; $biznature = $param[1]; $message = $param[2]; $noofemp = $param[3]; $turnover = $param[4]; $ownership = $param[5]; $market_type = $param[6]; $ExtendedProfileData = $param[7]; $escmode = 0; $show_flag=''; $display_flag=0; if(!defined($dataref->{FREESHOWROOM_URL_HT}) || $dataref->{FREESHOWROOM_URL_HT} eq '') { $show_flag = qq~ ~; $show_flagsa = qq~ ~; $display_flag=1; } *] [+$message+]
[* if($display_flag) { *]

Fill the Highlighted Flag ([+$show_flag+]) and make your catalog visible to numerous buyers across the world.

[* } *]
[* $back_color = ''; if($dataref->{GLUSR_USR_COMPANYNAME} eq '' && $display_flag ) { $back_color = qq~ style="background-color:#ffe533" ~; } *] [* $back_color = ''; if($dataref->{GLUSR_USR_COMPANY_DESC} eq '' && $display_flag ) { $back_color = qq~ style="background-color:#ffe533" ~; } *] [* $back_color = ''; if($dataref->{FK_GLUSR_BIZ_IDS} eq '' && $display_flag ) { $back_color = qq~ style="background-color:#ffe533" ~; } *] [* $back_color = ''; if($dataref->{GLUSR_USR_URL} eq '' && $display_flag) { $back_color = qq~ style="background-color:#ffe533" ~; } *]
  Company Information

This section enables you to make any changes in your profile. To make it user friendly none of the fields are made compulsory and form can be saved at any instance. However in order to freelist your company or get a free catalog we compulsorily need some basic information.
 
* Your Name  
[* if( $dataref->{GLUSR_USR_SALUTE} && $dataref->{GLUSR_USR_SALUTE} =~ m/Mr/i) { *] [* } elsif( $dataref->{GLUSR_USR_SALUTE} && $dataref->{GLUSR_USR_SALUTE} =~ m/Ms/i) { *] [* } else { *] [* } *]
* E-Mail  
Change Password
 
[+$show_flag+] Company Name  
 
 
[+$show_flag+] Company Profile  
   
 
[+$show_flag+] Buisness Type   [+$biznature+]
   
 
[+$show_flag+] Website  
 
 Contact Person  
[* if($dataref->{GLUSR_USR_CSALUTE} && $dataref->{GLUSR_USR_CSALUTE} =~ m/Mr./i) { *] [* } elsif($dataref->{GLUSR_USR_CSALUTE} && $dataref->{GLUSR_USR_CSALUTE} =~ m/Ms./i) { *] [* } else { *] [* } *]
Designation  
 Address  
Street Address
   
* Country  
  [* $city_name=$dataref->{GLUSR_USR_CITY}||$dataref->{GLUSR_USR_CITY_OTHERS}; *]
 City State Postal/ZIP Code
 
* Phone  
Country Code Area Code Phone Number  
more
   
* Mobile  
Country Code Mobile Number  
   
 Fax  
Country Code Area Code Fax Number  
more
   
 
  Company Additional Information
Year of Establisment  
Turnover  
[+$turnover+]
No. of Employees  
[+$noofemp+]
Major Markets   [+$market_type+]
   
 
  Extended Profile
[* @titleArray = (); foreach $data (@$ExtendedProfileData) { push(@titleArray, $data->{'title'}); } $data = ''; $var = 'Achievements'; $var =~ s/[^a-zA-Z0-9]/ /ig;$var =~ s/^\s+//;$var =~ s/\s+$//;$var =~ s/\s+/-/ig;$var = lc($var); if((scalar(grep(/$var/,@titleArray))) && $var ne '') { $data .= qq~~; } else { $data .= qq~ ~; } $var = 'Clientele'; $var =~ s/[^a-zA-Z0-9]/ /ig;$var =~ s/^\s+//;$var =~ s/\s+$//;$var =~ s/\s+/-/ig;$var = lc($var); if((scalar(grep(/$var/,@titleArray))) && $var ne '') { $data .= qq~~; } else { $data .= qq~~; } $var = 'Machines'; $var =~ s/[^a-zA-Z0-9]/ /ig;$var =~ s/^\s+//;$var =~ s/\s+$//;$var =~ s/\s+/-/ig;$var = lc($var); if((scalar(grep(/$var/,@titleArray))) && $var ne '') { $data .= qq~~; } else { $data .= qq~~; } *] [+$data+] [* $data = ''; $var = 'Infrastructure'; $var =~ s/[^a-zA-Z0-9]/ /ig;$var =~ s/^\s+//;$var =~ s/\s+$//;$var =~ s/\s+/-/ig;$var = lc($var); $var1 = 'Our Infrastructure'; $var1 =~ s/[^a-zA-Z0-9]/ /ig;$var1 =~ s/^\s+//;$var1 =~ s/\s+$//;$var1 =~ s/\s+/-/ig;$var1 = lc($var1); if(((scalar(grep(/$var/,@titleArray))) || (scalar(grep(/$var1/,@titleArray))) ) && $var ne '') { $data .= qq~~; } else { $data .= qq~~; } $var = 'Quality Policy / Processes'; $var =~ s/[^a-zA-Z0-9]/ /ig;$var =~ s/^\s+//;$var =~ s/\s+$//;$var =~ s/\s+/-/ig;$var = lc($var); $var1 = 'Quality Policy'; $var1 =~ s/[^a-zA-Z0-9]/ /ig;$var1 =~ s/^\s+//;$var1 =~ s/\s+$//;$var1 =~ s/\s+/-/ig; $var1 = lc($var1); if(((scalar(grep(/$var/,@titleArray))) || (scalar(grep(/$var1/,@titleArray))) )&& $var ne '') { $data .= qq~~; } else { $data .= qq~~; } $var = 'Awards / Recognition'; $var =~ s/[^a-zA-Z0-9]/ /ig;$var =~ s/^\s+//;$var =~ s/\s+$//;$var =~ s/\s+/-/ig;$var = lc($var); $var1 = 'Awards & Recognitions'; $var1 =~ s/[^a-zA-Z0-9]/ /ig;$var1 =~ s/^\s+//;$var1 =~ s/\s+$//;$var1 =~ s/\s+/-/ig;$var1 = lc($var1); if( ( (scalar(grep(/$var/,@titleArray))) || (scalar(grep(/$var1/,@titleArray)))) && $var ne '') { $data .= qq~~; } else { $data .= qq~~; } *] [+$data+] [* $data = ''; $var = 'Memberships / Affiliations'; $var =~ s/[^a-zA-Z0-9]/ /ig;$var =~ s/^\s+//;$var =~ s/\s+$//;$var =~ s/\s+/-/ig;$var = lc($var); if((scalar(grep(/$var/,@titleArray))) && $var ne '') { $data .= qq~~; } else { $data .= qq~~; } $var = 'Team / Manpower'; $var =~ s/[^a-zA-Z0-9]/ /ig;$var =~ s/^\s+//;$var =~ s/\s+$//;$var =~ s/\s+/-/ig;$var = lc($var); if((scalar(grep(/$var/,@titleArray))) && $var ne '') { $data .= qq~~; } else { $data .= qq~~; } $var = 'Events Participation'; $var =~ s/[^a-zA-Z0-9]/ /ig;$var =~ s/^\s+//;$var =~ s/\s+$//;$var =~ s/\s+/-/ig;$var = lc($var); if((scalar(grep(/$var/,@titleArray))) && $var ne '') { $data .= qq~~; } else { $data .= qq~~; } *] [+$data+] [* $data = ''; $var = 'Warehouse / Production Capacity'; $var =~ s/[^a-zA-Z0-9]/ /ig;$var =~ s/^\s+//;$var =~ s/\s+$//;$var =~ s/\s+/-/ig;$var = lc($var); $var1 = 'Our Warehouse'; $var1 =~ s/[^a-zA-Z0-9]/ /ig;$var1 =~ s/^\s+//;$var1 =~ s/\s+$//;$var1 =~ s/\s+/-/ig;$var1 = lc($var1); if(((scalar(grep(/$var/,@titleArray))) || (scalar(grep(/$var1/,@titleArray)))) && $var ne '') { $data .= qq~~; } else { $data .= qq~~; } $var = 'Testing Facilities'; $var =~ s/[^a-zA-Z0-9]/ /ig;$var =~ s/^\s+//;$var =~ s/\s+$//;$var =~ s/\s+/-/ig;$var = lc($var); if((scalar(grep(/$var/,@titleArray))) && $var ne '') { $data .= qq~~; } else { $data .= qq~~; } $var = 'Aim / Vision / Mission'; $var =~ s/[^a-zA-Z0-9]/ /ig;$var =~ s/^\s+//;$var =~ s/\s+$//;$var =~ s/\s+/-/ig;$var = lc($var); if((scalar(grep(/$var/,@titleArray))) && $var ne '') { $data .= qq~~; } else { $data .= qq~ ~; } *] [+$data+] [* $data = ''; $var = 'About the Owner'; $var =~ s/[^a-zA-Z0-9]/ /ig;$var =~ s/^\s+//;$var =~ s/\s+$//;$var =~ s/\s+/-/ig;$var = lc($var); if((scalar(grep(/$var/,@titleArray))) && $var ne '') { $data .= qq~~; } else { $data .= qq~~; } $var = 'Product Application'; $var =~ s/[^a-zA-Z0-9]/ /ig;$var =~ s/^\s+//;$var =~ s/\s+$//;$var =~ s/\s+/-/ig;$var = lc($var); if((scalar(grep(/$var/,@titleArray))) && $var ne '') { $data .= qq~~; } else { $data .= qq~~; } *] [+$data+]
Achievements Achievements Clientele Clientele Machines Machines
Our Infrastructure Our Infrastructure Quality Policy Quality Policy Awards & Recognitions Awards & Recognitions
Memberships & Affiliations Memberships & Affiliations Team / Manpower Team / Manpower Events Participation Events Participation
Our Warehouse Our Warehouse Testing Facilities Testing Facilities Aim / Vision / Mission Aim / Vision / Mission
About the Owner About the Owner Product Application Product Application

[* $data = ''; $tr = ''; foreach $data (@$ExtendedProfileData) { $data->{'title'} = $data->{'title'} || ''; $data->{'image'} = $data->{'image'} || ''; if($data->{'title'} eq 'achievements') { $tr.='
'; if(defined($data->{'image'}) && $data->{'image'} ne '') { $tr.=''; } else { $tr.=''; } $tr.='
   '.$data->{'orig_title'}.'
  Description
  
 
'; } if($data->{'title'} eq 'clientele') { $tr.='
   '.$data->{'orig_title'}.'
  Description
 
'; } if($data->{'title'} eq 'machines') { $tr.='
'; if($data->{'image'} ne '') { $tr.=''; } else { $tr.=''; } $tr.='
   '.$data->{'orig_title'}.'
  Description
  
 
'; } if(($data->{'title'} eq 'infrastructure')|| ($data->{'title'} eq 'our-infrastructure')) { $tr.='
'; if($data->{'image'} ne '') { $tr.=''; } else { $tr.=''; } $tr.='
   Our Infrastructure
  Description
  
 
'; } if(($data->{'title'} eq 'quality-policy-processes') || ($data->{'title'} eq 'quality-policy')) { $tr.='
'; if($data->{'image'} ne '') { $tr.=''; } else { $tr.=''; } $tr.='
   Quality Policy
  Description
  
 
'; } if(($data->{'title'} eq 'awards-recognition')||($data->{'title'} eq 'awards-recognitions')) { $tr.='
'; if($data->{'image'} ne '') { $tr.=''; } else { $tr.=''; } $tr.='
   Awards & Recognitions
  Description
  
 
'; } if($data->{'title'} eq 'memberships-affiliations') { $tr.='
'; if($data->{'image'} ne '') { $tr.=''; } else { $tr.=''; } $tr.='
   Memberships & Affiliations
  Description
  
 
'; } if($data->{'title'} eq 'happenings-news-press-coverage') { $tr.='
'; if($data->{'image'} ne '') { $tr.=''; } else { $tr.=''; } $tr.='
   '.$data->{'orig_title'}.'
  Description
  
 
'; } if($data->{'title'} eq 'events-participation') { $tr.='
'; if($data->{'image'} ne '') { $tr.=''; } else { $tr.=''; } $tr.='
   '.$data->{'orig_title'}.'
  Description
  
 
'; } if($data->{'title'} eq 'team-manpower') { $tr.='
   '.$data->{'orig_title'}.'
  Description
 
'; } if(($data->{'title'} eq 'warehouse-production-capacity') || ($data->{'title'} eq 'our-warehouse') ) { $tr.='
   Our Warehouse
  Description
 
'; } if($data->{'title'} eq 'testing-facilities') { $tr.='
   '.$data->{'orig_title'}.'
  Description
 
'; } if($data->{'title'} eq 'aim-vision-mission') { $tr.='
   '.$data->{'orig_title'}.'
  Description
 
'; } if($data->{'title'} eq 'about-the-owner') { $tr.='
   '.$data->{'orig_title'}.'
  Description
 
'; } if($data->{'title'} eq 'product-application') { $tr.='
   '.$data->{'orig_title'}.'
  Description
 
'; } } *] [+$tr+]
[+$show_flagsa+]