View | Details | Raw Unified | Return to bug 6218
Collapse All | Expand All

(-)a/C4/Members.pm (-2 / +1 lines)
Lines 842-848 sub Generate_Userid { Link Here
842
  do {
842
  do {
843
    $firstname =~ s/[[:digit:][:space:][:blank:][:punct:][:cntrl:]]//g;
843
    $firstname =~ s/[[:digit:][:space:][:blank:][:punct:][:cntrl:]]//g;
844
    $surname =~ s/[[:digit:][:space:][:blank:][:punct:][:cntrl:]]//g;
844
    $surname =~ s/[[:digit:][:space:][:blank:][:punct:][:cntrl:]]//g;
845
    $newuid = lc("$firstname.$surname");
845
    $newuid = lc(($firstname)? "$firstname.$surname" : $surname);
846
    $newuid .= $offset unless $offset == 0;
846
    $newuid .= $offset unless $offset == 0;
847
    $offset++;
847
    $offset++;
848
848
849
- 

Return to bug 6218