Great!
westwegoman wrote on Aug 9
th, 2012 at 1:53am:
One question.
Can it be made to not be case sensitive? (referrers name)
I've attached a new mod file to
post #3. If you don't want to install it again, then in
Register.pl find:
if ($member{'referrer'}) {
&ManageMemberinfo("load");
while (($membername, $value) = each(%memberinf)) {
($displayed_name, undef, undef, undef, undef) = split(/\|/, $value);
if ($member{'referrer'} eq $displayed_name) { $member{'referrer'} = $membername; }
if ($member{'referrer'} eq $membername) { $refname = $membername; }
}
undef %memberinf;
if ($member{'referrer'} ne $refname) { &fatal_error("", "$register_txt{'referrer_not_found'}"); }
}
And replace with:
if ($member{'referrer'}) {
&ManageMemberinfo("load");
while (($membername, $value) = each(%memberinf)) {
($displayed_name, undef, undef, undef, undef) = split(/\|/, $value);
if (lc $member{'referrer'} eq lc $displayed_name) { $member{'referrer'} = $membername; }
if (lc $member{'referrer'} eq lc $membername) { $refname = $membername; }
}
undef %memberinf;
if (lc $member{'referrer'} ne lc $refname) { &fatal_error("", "$register_txt{'referrer_not_found'}"); }
else { $member{'referrer'} = $refname; }
}
I've only tested quickly...
Bill Myers wrote on Aug 8
th, 2012 at 7:25pm:
Oh my gosh! When am I ever going to stop making mistakes?! Sorry about that. I guess the speed at which you came up with that mod blinded me, and I goofed up again 'cause I wasn't being careful with my message.
He he! No worries - I've been called far worse things than that in my time.