[* $dataref = $param[0]; $escmode = 0; *] [+ $dataref->{HEADER} +] [* if($dataref->{'showDEID'}) { *] [+ $dataref->{leftNavNetwork} +] [* } elsif($dataref->{'vendor_id'}) { *] [+ $dataref->{leftNavNetwork} +] [* } elsif($dataref->{'from_where'} && $dataref->{'from_where'} eq 'vendor') { *] [+ $dataref->{leftNavVendor} +] [* } else { *] [+ $dataref->{leftNavNetwork} +] [* } *]
 
[* if($dataref->{'error'}) { *]

[+$dataref->{'error'}+]


[+$dataref->{'FOOTER'}+] [* } else { *]

[+$dataref->{'title'}+]

View History

[* if($dataref->{'from_where'} && $dataref->{'from_where'} eq 'vendor') { *]
[* } else { *]
[* } $totalrecords = $dataref->{'totalrecords'} || 0; $currentRecNo = $dataref->{'currentRecNo'} || 0; if($totalrecords > 0) { $table = ''; $td = ''; if($currentRecNo !=1) { $td = qq~Previous Previous~; if($dataref->{'GLUSR_ID'}) { $td .= qq~View History~; } $td .= ""; } if($currentRecNo !=$totalrecords) { $td = qq~NextNext~; } if($td ne '') { $table = qq~ $td
~; } if($totalrecords != 1) { $table .= qq~
Jump To Record:
$currentRecNo of $totalrecords Records

~; } if($table ne '') { *]
[+ $table +]


[* } } *] [* $prd_cnt = $dataref->{'PRODUCT_COUNT'}; *] [* $dataref->{'email2'} = $dataref->{'email2'} || ''; $dataref->{'email3'} = $dataref->{'email3'} || ''; $dataref->{'email4'} = $dataref->{'email4'} || ''; if($dataref->{'email2'} eq '') { $more = 'more'; $email = ' '; } else { $more = ''; $email = '
 
 
 
'; } *]
  Company Contact Information
Fields marked with [ * ] are mandatory
* Website  
view
* E-Mail  
[+ $more +]
[+$email+]
 
* Company Name  
[+$ph2_hide+]
Reference Link  
[+ $dataref->{'reference_link'}+]
 Company Logo  
[* if($dataref->{'usr_comp_logo_img'}) { *]
[* } else { *]
[* } *]
* Company Profile  
   
* Business Type   [+ $dataref->{'BIZNATURE'}+]
   
CEO  
[+$dataref->{'CSALUTE'}+]
* Contact Person  
[+$dataref->{'SALUTE'}+]
Designation  
* Address  
Street Address
   
* Country  
   
* City State  Potal/ZIP Code
* Phone   [* if($dataref->{'ph_no2'} && !$dataref->{'ph_no3'}) { $ph2_hide = ''; $ph3_hide = ''; } else { $ph2_hide = ''; $ph3_hide = ''; } if($dataref->{'ph_no3'}) { $ph3_hide = ''; $ph2_hide = ''; } $dataref->{'ph_country'} = $dataref->{'ph_country'} || ''; $dataref->{'ph_area'} = $dataref->{'ph_area'} || ''; $dataref->{'ph_no'} = $dataref->{'ph_no'} || ''; $dataref->{'ph_area2'} = $dataref->{'ph_area2'} || ''; $dataref->{'ph_no2'} = $dataref->{'ph_no2'} || ''; $dataref->{'ph_no3'} = $dataref->{'ph_no3'} || ''; $phone2 = '
Country Code Area Code Phone Number  
more moremore
'.$ph3_hide.'
'; $phone3 = '
 
'; *]
[* if($dataref->{'ph_no3'}) { *] [+$phone2+] [+$phone3+] [* } else { if($dataref->{'ph_no2'}) { *] [+$phone2+] [* } else { *] [* } } *]   OR  Mobile   [* $dataref->{'mobile'} = $dataref->{'mobile'} || ''; $dataref->{'mobile2'} = $dataref->{'mobile2'} || ''; $mobile2 = '
Country Code Mobile Number
 
'; if ($dataref->{'mobile2'}) { $mob_hide = ''; } else { $mob_hide = 'more '; } *] [+$mob_hide+] [* if ($dataref->{'mobile2'}) { *] [+$mobile2+] [* } else { *] [* } *]      Fax   [* $dataref->{'fax_area'} = $dataref->{'fax_area'} || ''; $dataref->{'fax_no'} = $dataref->{'fax_no'} || ''; $dataref->{'fax_no2'} = $dataref->{'fax_no2'} || ''; $fax2 = '
Country Code Area Code Phone Number  
 
'; if ($dataref->{'fax_no2'}) { $fax_hide = ''; } else { $fax_hide = ' more '; } *] [+$fax_hide+] [* if ($dataref->{'fax_no2'}) { *] [+$fax2+] [* } else { *] [* } *]    
 
  Product Information * (Three products are compulsary)
[* if($prd_cnt){ foreach $i (1 .. $prd_cnt) { $prdid = 'prd'.$i.'_id'; $prdname = 'product'.$i; $prd_desc = 'prd'.$i.'_desc'; $prd_img = 'prd'.$i.'_img'; $prd_code = 'prd'.$i.'_code'; if($dataref->{$prd_desc} eq $dataref->{$prdname}) { $dataref->{$prd_desc} = ''; } if($dataref->{$prd_code} eq $dataref->{$prdid}) { $dataref->{$prd_code} = ''; } *]
 
 [+ $i +]. [* if($dataref->{$prd_img}) { *]
[* } else { *]
[* } *]
Product Name
  Product Code
  Description
  Image Path
[* } } *]
add more products
 
  Company Additional Information
 Year of Establishment  
Turnover  
[+ $dataref->{TURNOVER} +]
No. Of Employees  
[+ $dataref->{NOOFEMP} +]
 
Major Markets   [+ $dataref->{MARKETTYPE} +]
   
 
  Extended Profile
[* $titleString = ''; foreach $j (1 .. 15) { $title = 'title'.$j; $vartitle = $dataref->{$title} || ''; if($vartitle) { $vartitle =~ s/[^a-zA-Z0-9]/ /ig;$vartitle =~ s/^\s+//;$vartitle =~ s/\s+$//;$vartitle =~ s/\s+/-/ig;$vartitle = lc($vartitle); } $titleString .= ','.$vartitle.','; } $data = ''; $var = 'Achievements'; $var =~ s/[^a-zA-Z0-9]/ /ig; $var =~ s/^\s+//; $var =~ s/\s+$//; $var =~ s/\s+/-/ig; $var = lc($var); $var = ','.$var.','; if((scalar(grep(/$var/,$titleString))) && $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); $var = ','.$var.','; if((scalar(grep(/$var/,$titleString))) && $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); $var = ','.$var.','; if((scalar(grep(/$var/,$titleString))) && $var ne '') { $data .= qq~~; } else { $data .= qq~~; } *] [+$data+] [* $data = ''; $var = 'Our Infrastructure'; $var =~ s/[^a-zA-Z0-9]/ /ig;$var =~ s/^\s+//;$var =~ s/\s+$//;$var =~ s/\s+/-/ig;$var = lc($var); $var = ','.$var.','; if((scalar(grep(/$var/,$titleString))) && $var ne '') { $data .= qq~~; } else { $data .= qq~~; } $var = 'Quality Policy'; $var =~ s/[^a-zA-Z0-9]/ /ig;$var =~ s/^\s+//;$var =~ s/\s+$//;$var =~ s/\s+/-/ig;$var = lc($var); $var = ','.$var.','; if((scalar(grep(/$var/,$titleString))) && $var ne '') { $data .= qq~~; } else { $data .= qq~~; } $var = 'Awards & Recognitions'; $var =~ s/[^a-zA-Z0-9]/ /ig;$var =~ s/^\s+//;$var =~ s/\s+$//;$var =~ s/\s+/-/ig;$var = lc($var); if((scalar(grep(/$var/,$titleString))) && $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); $var = ','.$var.','; if((scalar(grep(/$var/,$titleString))) && $var ne '') { $data .= qq~~; } else { $data .= qq~~; } $var = 'Happenings / News / Press Coverage'; $var =~ s/[^a-zA-Z0-9]/ /ig;$var =~ s/^\s+//;$var =~ s/\s+$//;$var =~ s/\s+/-/ig;$var = lc($var); $var = ','.$var.','; if((scalar(grep(/$var/,$titleString))) && $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); $var = ','.$var.','; if((scalar(grep(/$var/,$titleString))) && $var ne '') { $data .= qq~~; } else { $data .= qq~~; } *] [+$data+] [* $data = ''; $var = 'Team / Manpower'; $var =~ s/[^a-zA-Z0-9]/ /ig;$var =~ s/^\s+//;$var =~ s/\s+$//;$var =~ s/\s+/-/ig;$var = lc($var); $var = ','.$var.','; if((scalar(grep(/$var/,$titleString))) && $var ne '') { $data .= qq~~; } else { $data .= qq~~; } $var = 'Our Warehouse'; $var =~ s/[^a-zA-Z0-9]/ /ig;$var =~ s/^\s+//;$var =~ s/\s+$//;$var =~ s/\s+/-/ig;$var = lc($var); $var = ','.$var.','; if((scalar(grep(/$var/,$titleString))) && $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); $var = ','.$var.','; if((scalar(grep(/$var/,$titleString))) && $var ne '') { $data .= qq~~; } else { $data .= qq~~; } *] [+$data+] [* $data = ''; $var = 'Aim / Vision / Mission'; $var =~ s/[^a-zA-Z0-9]/ /ig;$var =~ s/^\s+//;$var =~ s/\s+$//;$var =~ s/\s+/-/ig;$var = lc($var); $var = ','.$var.','; if((scalar(grep(/$var/,$titleString))) && $var ne '') { $data .= qq~~; } else { $data .= qq~~; } $var = 'About the Owner'; $var =~ s/[^a-zA-Z0-9]/ /ig;$var =~ s/^\s+//;$var =~ s/\s+$//;$var =~ s/\s+/-/ig;$var = lc($var); $var = ','.$var.','; if((scalar(grep(/$var/,$titleString))) && $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); $var = ','.$var.','; if((scalar(grep(/$var/,$titleString))) && $var ne '') { $data .= qq~~; } else { $data .= qq~~; } *] [+$data+]
AchievementsAchievementsClienteleClienteleMachinesMachines
Our InfrastructureOur InfrastructureQuality PolicyQuality PolicyAwards & RecognitionsAwards & Recognitions
Memberships & AffiliationsMemberships & AffiliationsHappenings / News / Press CoverageEvents ParticipationHappenings / News / Press CoverageEvents Participation
Team / ManpowerTeam / ManpowerOur WarehouseTesting FacilitiesOur WarehouseTesting Facilities
Aim / Vision / MissionAbout the OwnerAim / Vision / MissionAbout the OwnerProduct ApplicationProduct Application
 
[* $data = ''; $tr = ''; foreach $k (1 .. 15) { $title = 'title'.$k || ''; $desc = 'extprof_desc'.$k || ''; $img = 'extprof_img'.$k || ''; $ori_title = 'orig_title'.$k || ''; $hpdesc = 'pdesc'.$k || ''; $hpimg = 'pimg'.$k || ''; $vartitle = $dataref->{$title} || ''; if($vartitle) { $vartitle =~ s/[^a-zA-Z0-9]/ /ig;$vartitle =~ s/^\s+//;$vartitle =~ s/\s+$//;$vartitle =~ s/\s+/-/ig;$vartitle = lc($vartitle); } $dataref->{$title} = $dataref->{$title} || ''; $dataref->{$desc} = $dataref->{$desc} || ''; $dataref->{$img} = $dataref->{$img} || ''; if($vartitle eq 'achievements') { if($dataref->{$img} ne '') { $image = ''; } else { $image = ''; } $tr.='
  '.$dataref->{$title}.'
'.$image.'
Description  
Image Path  
     

'; } if($vartitle eq 'clientele') { if($dataref->{$img} ne '') { $image = ''; } else { $image = ''; } $tr.='
  '.$dataref->{$title}.'
'.$image.'
Description  
Image Path  
     

'; } if($vartitle eq 'machines') { if($dataref->{$img} ne '') { $image = ''; } else { $image = ''; } $tr.='
  '.$dataref->{$title}.'
'.$image.'
Description  
Image Path  
     

'; } if($vartitle =~ /infrastructure/) { if($dataref->{$img} ne '') { $image = ''; } else { $image = ''; } $tr.='
  '.$dataref->{$title}.'
'.$image.'
Description  
Image Path  
     

'; } if($vartitle =~ /quality/) { if($dataref->{$img} ne '') { $image = ''; } else { $image = ''; } $tr.='
  '.$dataref->{$title}.'
'.$image.'
Description  
Image Path  
     

'; } if($vartitle =~ /awards/) { if($dataref->{$img} ne '') { $image = ''; } else { $image = ''; } $tr.='
  '.$dataref->{$title}.'
'.$image.'
Description  
Image Path  
     

'; } if($vartitle eq 'memberships-affiliations') { if($dataref->{$img} ne '') { $image = ''; } else { $image = ''; } $tr.='
  '.$dataref->{$title}.'
'.$image.'
Description  
Image Path  
     

'; } if($vartitle eq 'happenings-news-press-coverage') { if($dataref->{$img} && $dataref->{$img} ne '') { $image = ''; } else { $image = ''; } $tr.='
  '.$dataref->{$title}.'
'.$image.'
Description  
Image Path  
     

'; } if($vartitle eq 'events-participation') { if($dataref->{$img} ne '') { $image = ''; } else { $image = ''; } $tr.='
  '.$dataref->{$title}.'
'.$image.'
Description  
Image Path  
     

'; } if($vartitle eq 'team-manpower') { if($dataref->{$img} ne '') { $image = ''; } else { $image = ''; } $tr.='
  '.$dataref->{$title}.'
'.$image.'
Description  
Image Path  
     

'; } if($vartitle =~ /warehouse/) { if($dataref->{$img} ne '') { $image = ''; } else { $image = ''; } $tr.='
  '.$dataref->{$title}.'
'.$image.'
Description  
Image Path  
     

'; } if($vartitle eq 'testing-facilities') { if($dataref->{$img} ne '') { $image = ''; } else { $image = ''; } $tr.='
  '.$dataref->{$title}.'
'.$image.'
Description  
Image Path  
     

'; } if($vartitle eq 'aim-vision-mission') { if($dataref->{$img} && $dataref->{$img} ne '') { $image = ''; } else { $image = ''; } $tr.='
  '.$dataref->{$title}.'
'.$image.'
Description  
Image Path  
     

'; } if($vartitle eq 'about-the-owner') { if($dataref->{$img} ne '') { $image = ''; } else { $image = ''; } $tr.='
  '.$dataref->{$title}.'
'.$image.'
Description  
Image Path  
     

'; } if($vartitle eq 'product-application') { if($dataref->{$img} ne '') { $image = ''; } else { $image = ''; } $tr.='
  '.$dataref->{$title}.'
'.$image.'
Description  
Image Path  
     

'; } } *] [+$tr+] [* if($dataref->{'vendor_id'}) { *]
  COMMENTS
 
[* } *]
[* if($dataref->{'dr_vendor_name'}) { *] [* } else { *] [* } *] [* $detials = ''; $de_str1 = ''; if($dataref->{'admin_comment'}) { $detials=qq~~; } if($dataref->{'bonus_detail'}) { $detials.=qq~~; } if($dataref->{'qcbonus_detail'}) { $detials.=qq~~; } if($dataref->{'vendor_comment'}) { $detials.=qq~~; } if($dataref->{'reject_reason'}) { if($dataref->{'review_status'} eq 'R') { $detials.=qq~~; } else { $detials.=qq~~; } } if($detials ne '') { $detials=qq~$detials~; } if($dataref->{'de_str'}) { $de_str1 = qq~~; } *] [+$detials+] [+$de_str1+]

Vendor Detail

Vendor Name:
[+$dataref->{'vendor_fullname'}+]
Operator Name :
[+$dataref->{'operator_name'}+]
New OR Existing :
[+$dataref->{'neworexisting'}+]
Entry Date :
[+$dataref->{'data_entry_date'}+]
Review Date :
[+$dataref->{'dr_date'}+]
Review Vendor Name :
[+$dataref->{'dr_vendor_name'}+]
Review Operator Name :
[+$dataref->{'dr_op_name'}+]
Status :
Pending
Admin Comment :
$dataref->{'admin_comment'}

Data Entry:
$dataref->{'bonus_detail'}

Bonus Rate:$dataref->{'bonus_rate'}
Bonus Field Count:$dataref->{'bonus_data_dtl_comma_cnt'}
Total Amount:$dataref->{'bonus_amount'}


Quality Control :
$dataref->{'qcbonus_detail'}

Bonus Rate:$dataref->{'qcbonus_rate'}
Bonus Field Count:$dataref->{'qcbonus_data_dtl_comma_cnt'}
Total Amount:$dataref->{'qcbonus_amount'}


Rejection Reason :
$dataref->{'vendor_comment'}

Rejection Reason :
R- $dataref->{'reject_reason'}

Back To Rework
Comments- :
R- $dataref->{'reject_reason'}

Bonus Details
Data enterd Details :
$dataref->{'de_str'}
$dataref->{'de_prdstr'}
 
[* if($dataref->{'vendor_id'}) { *]
[* } *] [+$dataref->{'FOOTER'}+] [* } *]