[6.x] Additinal Custom Fields in UBB 6 - 04/18/2001 12:36 PM
##############################################
#additonal custom fields hack by ELY M.
#for UBB 6 only
# Thread: https://www.ubbdev.com/ubbcgi/ultimatebb.cgi?ubb=get_topic&f=20&t=000233
# this hack adds 4 more custom fields in the
#
#
#
#########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
";
}
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
";
}
#########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_qn");
print MEMBERSHIP ("$in{private_message}n");
print MEMBERSHIP ("$in{private_message_notify}n");
print MEMBERSHIP ("yesn");
## 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>
</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>
</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>
</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>
</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>
</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
#
#
#
#
#
#
#
#
#
###############################################################################################################
#additonal custom fields hack by ELY M.
#for UBB 6 only
# Thread: https:/
# this hack adds 4 more custom fields in the
#
#
#
#########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
";
}
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
";
}
#########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_qn");
print MEMBERSHIP ("$in{private_message}n");
print MEMBERSHIP ("$in{private_message_notify}n");
print MEMBERSHIP ("yesn");
## 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>
</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>
</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>
</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>
</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>
</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
#
#
#
#
#
#
#
#
#
###############################################################################################################