Revision 423

Date:
2014/03/05 11:42:09
Author:
ahitrov
Revision Log:
get_number bug
Files:

Legend:

 
Added
 
Removed
 
Modified

  • utf8/plugins/users/lib/users/Phone.pm

     
    32 32 my $self = shift;
    33 33 my $number = $self->name_format;
    34 34 for ( $number ) {
    35 s/\+\d+//;
    35 s/^[\+\d+]\(/\(/;
    36 36 s/\(\d+\)//;
    37 37 s/\D//g;
    38 38 }