I'm getting a registration error, and I think this mod might be related, could someone possibly see an error in my ubb_registration? Here is the code about where I think the problem is...
my @thismemarray = (
$user_name, $password, $email, $homepage, $permission, #0
&CensorCheck($in{occupation}), &CensorCheck($in{location}), '0', $this_status, &CensorCheck($in{interests}), #5
$GotTime{HyphenDate}, $in{EmailView}, $sig_html, $in{icq}, $in{AllowMassMail}, #10
$public_name, &CensorCheck($in{customfield1}), &CensorCheck($in{customfield2}), &CensorCheck($in{customfield3}), #15
&CensorCheck($in{customfield4}), $picture, $in{DaysPrune}, $in{aim}, '', '', $in{user_ratings}, #19
$mod_q, $in{private_message}, $in{private_message_notify}, 'yes', '', $new_title, #26
$birthdate, $ipaddy, $in{parent_email}, $pntf_hide, $poll_ban, $avatar_url, # 32
$avline, $tzline #38
$thismemarray[61] = $quickreply;
);
&WriteMemberProfile($next_number, @thismemarray);
# Update the memberslist indexes
# &UpdateOLIdexLine($next_number, join("|#|", map { $_ =~ s/|[#*]|//g; $_; } @thismemarray[5,6,9,16,17,18,19]));
# &UpdatePCdexLine($next_number, 0);
# &UpdatePermsdexLine($next_number, (($mod_q eq "Q" ? 1 : 0) . "|&|" . ($permission =~ m/COPPA/ ? 1 : 0)
# . "|&|" . ($mod_q eq "Q" ? 0 : 1) . "|&|Junior Member|&||&|$GotTime{HyphenDate}"));
# update associated files
my $total_members = scalar(@members) + 1; #the total number of registered users