##############################################
#additonal custom fields hack by ELY M.    
#for UBB 6 only  
#

#########ubb_lib.cgi

find this  

# make sure no lf bumping is going on
my $maxmemfields = 29; #total fields permitted in member file


CHANGE 29 to 33   


OR you will get "hack attempts" error    



##################

find this code

if ($each !~ /\|/) {
if ($in{$each} eq '') {
$Redo = 'true';
if ($each =~ /custom/) {
 if ($each eq 'customfield1') { $each = $vars_registration{customfield1}; }
 if ($each eq 'customfield2') { $each = $vars_registration{customfield2}; }
 if ($each eq 'customfield3') { $each = $vars_registration{customfield3}; }
 if ($each eq 'customfield4') { $each = $vars_registration{customfield4}; }
}
$BadLine .= "You did not complete: $each<BR>";
}



REPLACE with this  




if ($each !~ /\|/) {
if ($in{$each} eq '') {
$Redo = 'true';
if ($each =~ /custom/) {
 if ($each eq 'customfield1') { $each = $vars_registration{customfield1}; }
 if ($each eq 'customfield2') { $each = $vars_registration{customfield2}; }
 if ($each eq 'customfield3') { $each = $vars_registration{customfield3}; }
 if ($each eq 'customfield4') { $each = $vars_registration{customfield4}; }
 if ($each eq 'customfield5') { $each = $vars_registration{customfield5}; }
 if ($each eq 'customfield6') { $each = $vars_registration{customfield6}; }
 if ($each eq 'customfield7') { $each = $vars_registration{customfield7}; }
 if ($each eq 'customfield8') { $each = $vars_registration{customfield8}; }
}
$BadLine .= "You did not complete: $each<BR>";
}






#########cp_lib.cgi 

find this  


my $CustomField1 = &SmallClean($in{customfield1});
my $CustomField2 = &SmallClean($in{customfield2});
my $CustomField3 = &SmallClean($in{customfield3});
my $CustomField4 = &SmallClean($in{customfield4});



just add this right UNDER this  ^^^^^



my $CustomField5 = &SmallClean($in{customfield5});
my $CustomField6 = &SmallClean($in{customfield6});
my $CustomField7 = &SmallClean($in{customfield7});
my $CustomField8 = &SmallClean($in{customfield8});




############

be careful  this is the printing routine stuff 


find this code  between  print FILE qq!interests_field_use => "$in{interests_field_use}",\n!;
AND print FILE qq!icq_field_use => "$in{icq_field_use}",\n!;
 

print FILE qq!custom1_field_use => "$in{custom1_field_use}",\n!;
print FILE qq!custom2_field_use => "$in{custom2_field_use}",\n!;
print FILE qq!custom3_field_use => "$in{custom3_field_use}",\n!;
print FILE qq!custom4_field_use => "$in{custom4_field_use}",\n!;
print FILE qq!customfield1 => qq~$CustomField1~,\n!;
print FILE qq!customfield2 => qq~$CustomField2~,\n!;
print FILE qq!customfield3 => qq~$CustomField3~,\n!;
print FILE qq!customfield4 => qq~$CustomField4~,\n!;


REPLACE this section only with the new code  WITHOUT bothering any other codes  :)  
    


print FILE qq!custom1_field_use => "$in{custom1_field_use}",\n!;
print FILE qq!custom2_field_use => "$in{custom2_field_use}",\n!;
print FILE qq!custom3_field_use => "$in{custom3_field_use}",\n!;
print FILE qq!custom4_field_use => "$in{custom4_field_use}",\n!;
print FILE qq!custom5_field_use => "$in{custom5_field_use}",\n!;
print FILE qq!custom6_field_use => "$in{custom6_field_use}",\n!;
print FILE qq!custom7_field_use => "$in{custom7_field_use}",\n!;
print FILE qq!custom8_field_use => "$in{custom8_field_use}",\n!;
print FILE qq!customfield1 => qq~$CustomField1~,\n!;
print FILE qq!customfield2 => qq~$CustomField2~,\n!;
print FILE qq!customfield3 => qq~$CustomField3~,\n!;
print FILE qq!customfield4 => qq~$CustomField4~,\n!;
print FILE qq!customfield5 => qq~$CustomField5~,\n!;
print FILE qq!customfield6 => qq~$CustomField6~,\n!;
print FILE qq!customfield7 => qq~$CustomField7~,\n!;
print FILE qq!customfield8 => qq~$CustomField8~,\n!;


##########cp_users.cgi 

find this 

if (($vars_registration{custom1_field_use} eq 'REQ') && ($vars_registration{customfield1} ne '')) { push(@VA, "customfield1"); }
if (($vars_registration{custom2_field_use} eq 'REQ') && ($vars_registration{customfield2} ne '')) { push(@VA, "customfield2"); }
if (($vars_registration{custom3_field_use} eq 'REQ') && ($vars_registration{customfield3} ne '')) { push(@VA, "customfield3"); }
if (($vars_registration{custom4_field_use} eq 'REQ') && ($vars_registration{customfield4} ne '')) { push(@VA, "customfield4"); }


replace this ^^  with this   


if (($vars_registration{custom1_field_use} eq 'REQ') && ($vars_registration{customfield1} ne '')) { push(@VA, "customfield1"); }
if (($vars_registration{custom2_field_use} eq 'REQ') && ($vars_registration{customfield2} ne '')) { push(@VA, "customfield2"); }
if (($vars_registration{custom3_field_use} eq 'REQ') && ($vars_registration{customfield3} ne '')) { push(@VA, "customfield3"); }
if (($vars_registration{custom4_field_use} eq 'REQ') && ($vars_registration{customfield4} ne '')) { push(@VA, "customfield4"); }
if (($vars_registration{custom5_field_use} eq 'REQ') && ($vars_registration{customfield5} ne '')) { push(@VA, "customfield5"); }
if (($vars_registration{custom6_field_use} eq 'REQ') && ($vars_registration{customfield6} ne '')) { push(@VA, "customfield6"); }
if (($vars_registration{custom7_field_use} eq 'REQ') && ($vars_registration{customfield7} ne '')) { push(@VA, "customfield7"); }
if (($vars_registration{custom8_field_use} eq 'REQ') && ($vars_registration{customfield8} ne '')) { push(@VA, "customfield8"); }





find this code

# update registration file

open (FILE, ">$vars_config{MembersPath}/$in{u}.cgi") or die("Unable to open Members directory.");
&lock;


LOOK CAREFULLY   look for this code

	print FILE ("$in{customfield1}\n");
	print FILE ("$in{customfield2}\n");
	print FILE ("$in{customfield3}\n");
	print FILE ("$in{customfield4}\n");



ADD THIS RIGHT AFTER  ^^^^^^^   



        print FILE ("$in{customfield5}\n");
	print FILE ("$in{customfield6}\n");
	print FILE ("$in{customfield7}\n");
	print FILE ("$in{customfield8}\n");






#########ubb_profile.cgi


find this code 

if (($vars_registration{custom1_field_use} eq 'REQ') && ($vars_registration{customfield1} ne '')) { push(@VA, "customfield1"); }
if (($vars_registration{custom2_field_use} eq 'REQ') && ($vars_registration{customfield2} ne '')) { push(@VA, "customfield2"); }
if (($vars_registration{custom3_field_use} eq 'REQ') && ($vars_registration{customfield3} ne '')) { push(@VA, "customfield3"); }
if (($vars_registration{custom4_field_use} eq 'REQ') && ($vars_registration{customfield4} ne '')) { push(@VA, "customfield4"); }


replace this with  


if (($vars_registration{custom1_field_use} eq 'REQ') && ($vars_registration{customfield1} ne '')) { push(@VA, "customfield1"); }
if (($vars_registration{custom2_field_use} eq 'REQ') && ($vars_registration{customfield2} ne '')) { push(@VA, "customfield2"); }
if (($vars_registration{custom3_field_use} eq 'REQ') && ($vars_registration{customfield3} ne '')) { push(@VA, "customfield3"); }
if (($vars_registration{custom4_field_use} eq 'REQ') && ($vars_registration{customfield4} ne '')) { push(@VA, "customfield4"); }
if (($vars_registration{custom5_field_use} eq 'REQ') && ($vars_registration{customfield5} ne '')) { push(@VA, "customfield5"); }
if (($vars_registration{custom6_field_use} eq 'REQ') && ($vars_registration{customfield6} ne '')) { push(@VA, "customfield6"); }
if (($vars_registration{custom7_field_use} eq 'REQ') && ($vars_registration{customfield7} ne '')) { push(@VA, "customfield7"); }
if (($vars_registration{custom8_field_use} eq 'REQ') && ($vars_registration{customfield8} ne '')) { push(@VA, "customfield8"); }



#######


find this code

open (FILE, ">$vars_config{MembersPath}/$in{u}.cgi") or die("Unable to open Members directory.");
&lock;

look carefully !!! 

find this code   

	print FILE ("$user_profile[26]\n");
	print FILE ("$in{private_message}\n");
	print FILE ("$in{private_message_notify}\n");
	print FILE ("$user_profile[29]\n");



just add this right after  ^^^^^   



        print FILE ("$in{customfield5}\n");
	print FILE ("$in{customfield6}\n");
	print FILE ("$in{customfield7}\n");
	print FILE ("$in{customfield8}\n");


MAKE SURE you add ***  BEFORE ****   

&unlock;
close (FILE);
chmod (0777, "$vars_config{MembersPath}/$in{u}.cgi");


##########ubb_registration.cgi  



find this code

if (($vars_registration{custom1_field_use} eq 'REQ') && ($vars_registration{customfield1} ne '')) { push(@VA, "customfield1"); }
if (($vars_registration{custom2_field_use} eq "REQ") && ($vars_registration{customfield2} ne '')) { push(@VA, "customfield2"); }
if (($vars_registration{custom3_field_use} eq "REQ") && ($vars_registration{customfield3} ne '')) { push(@VA, "customfield3"); }
if (($vars_registration{custom4_field_use} eq "REQ") && ($vars_registration{customfield4} ne '')) { push(@VA, "customfield4"); }


ADD this right UNDER after  ^^^  


if (($vars_registration{custom5_field_use} eq 'REQ') && ($vars_registration{customfield5} ne '')) { push(@VA, "customfield5"); }
if (($vars_registration{custom6_field_use} eq 'REQ') && ($vars_registration{customfield6} ne '')) { push(@VA, "customfield6"); }
if (($vars_registration{custom7_field_use} eq 'REQ') && ($vars_registration{customfield7} ne '')) { push(@VA, "customfield7"); }
if (($vars_registration{custom8_field_use} eq 'REQ') && ($vars_registration{customfield8} ne '')) { push(@VA, "customfield8"); }


MAKE SURE you add ***  BEFORE ****   


} # if/else a child

&Validate(@VA);


#######

find this code

# create registration file
open (MEMBERSHIP, ">$vars_config{MembersPath}/$next_number.cgi") or die("Unable to open Members directory.");
&lock;

look carefuly 

find this code 


	print MEMBERSHIP ("$in{user_ratings}\n");
	print MEMBERSHIP ("$mod_q\n");
	print MEMBERSHIP ("$in{private_message}\n");
	print MEMBERSHIP ("$in{private_message_notify}\n");
	print MEMBERSHIP ("yes\n");


## just add this new code right after this ^^^^ 



	print MEMBERSHIP ("$in{customfield5}\n");
	print MEMBERSHIP ("$in{customfield6}\n");
	print MEMBERSHIP ("$in{customfield7}\n");
	print MEMBERSHIP ("$in{customfield8}\n");




##########################################

#######TEmpletes###############


public_register_page.pl



find this code


print <<THISFIELD;

<tr bgcolor="$vars_style{AltColumnColor1}">
<td>
<FONT size="$vars_style{TextSize}" FACE="$vars_style{FontFace}">
$B1$vars_registration{customfield4}$B2:
</font>
</td>
<td>
<INPUT TYPE="TEXT" NAME="customfield4" SIZE="35" MAXLENGTH="80">
</td>
</tr>

THISFIELD

} # end field



COPY AND PASTE THOSE below CODES    

**  high light till you see the  ################ then stop then  COPY 


** look out for  #################################  

add this right after the above code   



##   



if (($vars_registration{custom5_field_use} ne 'DEL')  && ($vars_registration{customfield5} ne '')) {

if ($vars_registration{custom5_field_use} eq 'REQ') {
$B1 = '<B>'; $B2 = '</B>';
} else {
$B1 = ''; $B2 = '';
}

print <<THISFIELD;

<tr bgcolor="$vars_style{BGColor}"> 
<td>
<FONT size="$vars_style{TextSize}" FACE="$vars_style{FontFace}">
$B1$vars_registration{customfield5}$B2: 
</font>
</td>
<td>
<INPUT TYPE="TEXT" NAME="customfield5" SIZE="35" MAXLENGTH="80">
</td>
</tr>

THISFIELD

} # end field   5555



if (($vars_registration{custom6_field_use} ne 'DEL')  && ($vars_registration{customfield6} ne '')) {

if ($vars_registration{custom6_field_use} eq 'REQ') {
$B1 = '<B>'; $B2 = '</B>';
} else {
$B1 = ''; $B2 = '';
}

print <<THISFIELD;

<tr bgcolor="$vars_style{BGColor}"> 
<td>
<FONT size="$vars_style{TextSize}" FACE="$vars_style{FontFace}">
$B1$vars_registration{customfield6}$B2: 
</font>
</td>
<td>
<INPUT TYPE="TEXT" NAME="customfield6" SIZE="35" MAXLENGTH="80">
</td>
</tr>

THISFIELD

} # end field   6666

if (($vars_registration{custom7_field_use} ne 'DEL')  && ($vars_registration{customfield7} ne '')) {

if ($vars_registration{custom7_field_use} eq 'REQ') {
$B1 = '<B>'; $B2 = '</B>';
} else {
$B1 = ''; $B2 = '';
}

print <<THISFIELD;

<tr bgcolor="$vars_style{BGColor}"> 
<td>
<FONT size="$vars_style{TextSize}" FACE="$vars_style{FontFace}">
$B1$vars_registration{customfield7}$B2: 
</font>
</td>
<td>
<INPUT TYPE="TEXT" NAME="customfield7" SIZE="35" MAXLENGTH="80">
</td>
</tr>

THISFIELD

} # end field   7777



if (($vars_registration{custom8_field_use} ne 'DEL')  && ($vars_registration{customfield8} ne '')) {

if ($vars_registration{custom8_field_use} eq 'REQ') {
$B1 = '<B>'; $B2 = '</B>';
} else {
$B1 = ''; $B2 = '';
}

print <<THISFIELD;

<tr bgcolor="$vars_style{BGColor}"> 
<td>
<FONT size="$vars_style{TextSize}" FACE="$vars_style{FontFace}">
$B1$vars_registration{customfield8}$B2: 
</font>
</td>
<td>
<INPUT TYPE="TEXT" NAME="customfield8" SIZE="35" MAXLENGTH="80">
</td>
</tr>

THISFIELD

} # end field 



####################################################################################
########### #!@#!@#@!#!@#!@#!@#!@#!@#!@#!@#@!#!@#!@#@#################


****  do same thing again on  public_register_page_kid.pl ********

OR kids will cry because he cant answer "favorite food" question  hehe  ****     


#############################################



######public_reg_confirm.pl



find this code  



if (($vars_registration{custom4_field_use} ne 'DEL')  && ($vars_registration{customfield4} ne '')) {

print <<THISFIELD;

<tr bgcolor="$vars_style{AltColumnColor1}">
<td>
<FONT size="$vars_style{TextSize}" FACE="$vars_style{FontFace}">
<B>$vars_registration{customfield4}</B>:
</font>
</td>
<td>
<FONT size="$vars_style{TextSize}" FACE="$vars_style{FontFace}">
$in{customfield4}
</font>&nbsp;
</td>
</tr>

THISFIELD

} # end field



HIGH LIGHT AND COPY AND PASTE 

watch out for ################################   


****  paste this right after the above code ****  



if (($vars_registration{custom5_field_use} ne 'DEL')  && ($vars_registration{customfield5} ne '')) {

print <<THISFIELD;

<tr bgcolor="$vars_style{BGColor}"> 
<td>
<FONT size="$vars_style{TextSize}" FACE="$vars_style{FontFace}">
<B>$vars_registration{customfield5}</B>: 
</font>
</td>
<td>
<FONT size="$vars_style{TextSize}" FACE="$vars_style{FontFace}">
$in{customfield5} 
</font>&nbsp;
</td>
</tr>

THISFIELD

} # end field  555


if (($vars_registration{custom6_field_use} ne 'DEL')  && ($vars_registration{customfield6} ne '')) {

print <<THISFIELD;

<tr bgcolor="$vars_style{BGColor}"> 
<td>
<FONT size="$vars_style{TextSize}" FACE="$vars_style{FontFace}">
<B>$vars_registration{customfield6}</B>: 
</font>
</td>
<td>
<FONT size="$vars_style{TextSize}" FACE="$vars_style{FontFace}">
$in{customfield6} 
</font>&nbsp;
</td>
</tr>

THISFIELD

} # end field


if (($vars_registration{custom7_field_use} ne 'DEL')  && ($vars_registration{customfield7} ne '')) {

print <<THISFIELD;

<tr bgcolor="$vars_style{BGColor}"> 
<td>
<FONT size="$vars_style{TextSize}" FACE="$vars_style{FontFace}">
<B>$vars_registration{customfield7}</B>: 
</font>
</td>
<td>
<FONT size="$vars_style{TextSize}" FACE="$vars_style{FontFace}">
$in{customfield7} 
</font>&nbsp;
</td>
</tr>

THISFIELD

} # end field


if (($vars_registration{custom8_field_use} ne 'DEL')  && ($vars_registration{customfield8} ne '')) {

print <<THISFIELD;

<tr bgcolor="$vars_style{BGColor}"> 
<td>
<FONT size="$vars_style{TextSize}" FACE="$vars_style{FontFace}">
<B>$vars_registration{customfield8}</B>: 
</font>
</td>
<td>
<FONT size="$vars_style{TextSize}" FACE="$vars_style{FontFace}">
$in{customfield8} 
</font>&nbsp;
</td>
</tr>

THISFIELD

} # end field

####################################################################################
####


****  do same again on public_reg_confirm_kid.pl  **********



#####public_edit_profile.pl

find this code



print <<THISFIELD;

<tr bgcolor="$vars_style{AltColumnColor1}">
<td>
<FONT size="$vars_style{TextSize}" FACE="$vars_style{FontFace}">
$B1$vars_registration{customfield4}$B2:
</font>
</td>
<td>
<INPUT TYPE="TEXT" NAME="customfield4" value="$user_profile[19]" SIZE="35" MAXLENGTH="80">
</td>
</tr>

THISFIELD

} # end field



high light those code and copy and paster

** look out for  #################################  


###  right after the above code...  




if (($vars_registration{custom5_field_use} ne 'DEL')  && ($vars_registration{customfield5} ne '')) {

if ($vars_registration{custom5_field_use} eq 'REQ') {
$B1 = '<B>'; $B2 = '</B>';
} else {
$B1 = ''; $B2 = '';
}

print <<THISFIELD;

<tr bgcolor="$vars_style{BGColor}"> 
<td>
<FONT size="$vars_style{TextSize}" FACE="$vars_style{FontFace}">
$B1$vars_registration{customfield5}$B2: 
</font>
</td>
<td>
<INPUT TYPE="TEXT" NAME="customfield5" value="$user_profile[30]" SIZE="35" MAXLENGTH="80">
</td>
</tr>

THISFIELD

} # end field



if (($vars_registration{custom6_field_use} ne 'DEL')  && ($vars_registration{customfield6} ne '')) {

if ($vars_registration{custom6_field_use} eq 'REQ') {
$B1 = '<B>'; $B2 = '</B>';
} else {
$B1 = ''; $B2 = '';
}

print <<THISFIELD;

<tr bgcolor="$vars_style{BGColor}"> 
<td>
<FONT size="$vars_style{TextSize}" FACE="$vars_style{FontFace}">
$B1$vars_registration{customfield6}$B2: 
</font>
</td>
<td>
<INPUT TYPE="TEXT" NAME="customfield6" value="$user_profile[31]" SIZE="35" MAXLENGTH="80">
</td>
</tr>

THISFIELD

} # end field


if (($vars_registration{custom7_field_use} ne 'DEL')  && ($vars_registration{customfield7} ne '')) {

if ($vars_registration{custom7_field_use} eq 'REQ') {
$B1 = '<B>'; $B2 = '</B>';
} else {
$B1 = ''; $B2 = '';
}

print <<THISFIELD;

<tr bgcolor="$vars_style{BGColor}"> 
<td>
<FONT size="$vars_style{TextSize}" FACE="$vars_style{FontFace}">
$B1$vars_registration{customfield7}$B2: 
</font>
</td>
<td>
<INPUT TYPE="TEXT" NAME="customfield7" value="$user_profile[32]" SIZE="35" MAXLENGTH="80">
</td>
</tr>

THISFIELD

} # end field


if (($vars_registration{custom8_field_use} ne 'DEL')  && ($vars_registration{customfield8} ne '')) {

if ($vars_registration{custom8_field_use} eq 'REQ') {
$B1 = '<B>'; $B2 = '</B>';
} else {
$B1 = ''; $B2 = '';
}

print <<THISFIELD;

<tr bgcolor="$vars_style{BGColor}"> 
<td>
<FONT size="$vars_style{TextSize}" FACE="$vars_style{FontFace}">
$B1$vars_registration{customfield8}$B2: 
</font>
</td>
<td>
<INPUT TYPE="TEXT" NAME="customfield8" value="$user_profile[33]" SIZE="35" MAXLENGTH="80">
</td>
</tr>

THISFIELD

} # end field



####################################################################################



######  public_display_profile.pl


##  find this code  


if (($vars_registration{custom4_field_use} ne 'DEL')  && ($vars_registration{customfield4} ne '') && ($user_profile[19] ne '')) {

print <<THISFIELD;

<tr bgcolor="$vars_style{AltColumnColor1}">
<td>
<FONT size="$vars_style{TextSize}" FACE="$vars_style{FontFace}">
<B>$vars_registration{customfield4}</B>:
</font>
</td>
<td>
<FONT size="$vars_style{TextSize}" FACE="$vars_style{FontFace}">
$user_profile[19]
</FONT>
</td>
</tr>

THISFIELD

} # end field



high light and copy and paste those code below 


** look out for  #################################  


## right after the code above.  







if (($vars_registration{custom5_field_use} ne "DEL")  && ($vars_registration{customfield5} ne "") && ($user_profile[30] ne "")) {

print <<THISFIELD;

<tr bgcolor="$vars_style{BGColor}"> 
<td>
<FONT size="$vars_style{TextSize}" FACE="$vars_style{FontFace}">
<B>$vars_registration{customfield5}</B>: 
</font>
</td>
<td>
<FONT size="$vars_style{TextSize}" FACE="$vars_style{FontFace}">
$user_profile[30]
</FONT>
</td>
</tr>

THISFIELD

} # end field


if (($vars_registration{custom6_field_use} ne "DEL")  && ($vars_registration{customfield6} ne "") && ($user_profile[31] ne "")) {

print <<THISFIELD;

<tr bgcolor="$vars_style{BGColor}"> 
<td>
<FONT size="$vars_style{TextSize}" FACE="$vars_style{FontFace}">
<B>$vars_registration{customfield6}</B>: 
</font>
</td>
<td>
<FONT size="$vars_style{TextSize}" FACE="$vars_style{FontFace}">
$user_profile[31]
</FONT>
</td>
</tr>

THISFIELD

} # end field


if (($vars_registration{custom7_field_use} ne "DEL")  && ($vars_registration{customfield7} ne "") && ($user_profile[32] ne "")) {

print <<THISFIELD;

<tr bgcolor="$vars_style{BGColor}"> 
<td>
<FONT size="$vars_style{TextSize}" FACE="$vars_style{FontFace}">
<B>$vars_registration{customfield7}</B>: 
</font>
</td>
<td>
<FONT size="$vars_style{TextSize}" FACE="$vars_style{FontFace}">
$user_profile[32]
</FONT>
</td>
</tr>

THISFIELD

} # end field


if (($vars_registration{custom8_field_use} ne "DEL")  && ($vars_registration{customfield8} ne "") && ($user_profile[33] ne "")) {

print <<THISFIELD;

<tr bgcolor="$vars_style{BGColor}"> 
<td>
<FONT size="$vars_style{TextSize}" FACE="$vars_style{FontFace}">
<B>$vars_registration{customfield8}</B>: 
</font>
</td>
<td>
<FONT size="$vars_style{TextSize}" FACE="$vars_style{FontFace}">
$user_profile[33]
</FONT>
</td>
</tr>

THISFIELD

} # end field


#############################################################################################

##### cp_vars_registration.pl 

find this code  

my ($custom_field_use, $customfield);

for ($x = 1; $x <= 4; $x++) {
$REQ = ""; $OPT = ""; $DEL = "";
$custom_field_use = ("custom$x" . "_field_use");
$customfield = "customfield$x";
if ($vars_registration{$custom_field_use} eq "REQ") {
	$REQ = "CHECKED";
}
elsif ($vars_registration{$custom_field_use} eq "OPT") {
	$OPT = "CHECKED";
} else {
	$DEL = "CHECKED";
}


***  REPLACE ^^^  WITH THIS 




my ($custom_field_use, $customfield);

for ($x = 1; $x <= 8; $x++) {
$REQ = ""; $OPT = ""; $DEL = "";
$custom_field_use = ("custom$x" . "_field_use");
$customfield = "customfield$x";
if ($vars_registration{$custom_field_use} eq "REQ") {
	$REQ = "CHECKED"; 
}
elsif ($vars_registration{$custom_field_use} eq "OPT") {
	$OPT = "CHECKED";
} else {
	$DEL = "CHECKED";
}





#######cp_edit_profile.pl

find this code

print <<THISFIELD;

<tr bgcolor="#FFFFFF"> 
<td>
<FONT size="2" FACE="Verdana, Arial">
$B1$vars_registration{customfield4}$B2: 
</font>
</td>
<td>
<INPUT TYPE="TEXT" NAME="customfield4" value="$user_profile[19]" SIZE="35" MAXLENGTH="80">
</td>
</tr>

THISFIELD

} # end field



HIGH LIGHT and copy and paste thiscode below  RIGHT AFTER THE CODE above.    

** look out for  ################################# 





 

if (($vars_registration{custom5_field_use} ne "DEL")  && ($vars_registration{customfield5} ne "")) {

if ($vars_registration{custom5_field_use} eq "REQ") {
$B1 = "<B>"; $B2 = "</B>";
} else {
$B1 = ""; $B2 = "";
}

print <<THISFIELD;

<tr bgcolor="#FFFFFF"> 
<td>
<FONT size="2" FACE="Verdana, Arial">
$B1$vars_registration{customfield5}$B2: 
</font>
</td>
<td>
<INPUT TYPE="TEXT" NAME="customfield5" value="$user_profile[30]" SIZE="35" MAXLENGTH="80">
</td>
</tr>

THISFIELD

} # end field



if (($vars_registration{custom6_field_use} ne "DEL")  && ($vars_registration{customfield6} ne "")) {

if ($vars_registration{custom6_field_use} eq "REQ") {
$B1 = "<B>"; $B2 = "</B>";
} else {
$B1 = ""; $B2 = "";
}

print <<THISFIELD;

<tr bgcolor="#FFFFFF"> 
<td>
<FONT size="2" FACE="Verdana, Arial">
$B1$vars_registration{customfield6}$B2: 
</font>
</td>
<td>
<INPUT TYPE="TEXT" NAME="customfield6" value="$user_profile[31]" SIZE="35" MAXLENGTH="80">
</td>
</tr>

THISFIELD

} # end field



if (($vars_registration{custom7_field_use} ne "DEL")  && ($vars_registration{customfield7} ne "")) {

if ($vars_registration{custom7_field_use} eq "REQ") {
$B1 = "<B>"; $B2 = "</B>";
} else {
$B1 = ""; $B2 = "";
}

print <<THISFIELD;

<tr bgcolor="#FFFFFF"> 
<td>
<FONT size="2" FACE="Verdana, Arial">
$B1$vars_registration{customfield7}$B2: 
</font>
</td>
<td>
<INPUT TYPE="TEXT" NAME="customfield7" value="$user_profile[32]" SIZE="35" MAXLENGTH="80">
</td>
</tr>

THISFIELD

} # end field



if (($vars_registration{custom8_field_use} ne "DEL")  && ($vars_registration{customfield8} ne "")) {

if ($vars_registration{custom8_field_use} eq "REQ") {
$B1 = "<B>"; $B2 = "</B>";
} else {
$B1 = ""; $B2 = "";
}

print <<THISFIELD;

<tr bgcolor="#FFFFFF"> 
<td>
<FONT size="2" FACE="Verdana, Arial">
$B1$vars_registration{customfield8}$B2: 
</font>
</td>
<td>
<INPUT TYPE="TEXT" NAME="customfield8" value="$user_profile[33]" SIZE="35" MAXLENGTH="80">
</td>
</tr>

THISFIELD

} # end field




#### done !!!  :)  
#############################################################################
#go in your control panel and go in registration settings
#
# add some new questions or custom stuff   :)   
#
#
#
#
#
#
#
#
#