diff options
| author | ivan <ivan> | 2002-08-26 20:40:55 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-08-26 20:40:55 +0000 |
| commit | b9e48e4f10f9ae0657d22385a48c628abd16ce5c (patch) | |
| tree | 5d723585204cba1b827bb646695254b70f1c1e06 | |
| parent | f94fc16ea404c31c0d2ff063fc35ff06a1d2c97a (diff) | |
allow . and - in otaker usernames
| -rw-r--r-- | FS/FS/cust_pkg.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm index 8b65ac4bd..12508e1aa 100644 --- a/FS/FS/cust_pkg.pm +++ b/FS/FS/cust_pkg.pm @@ -229,7 +229,7 @@ sub check { unless qsearchs( 'part_pkg', { 'pkgpart' => $self->pkgpart } ); $self->otaker(getotaker) unless $self->otaker; - $self->otaker =~ /^(\w{0,16})$/ or return "Illegal otaker"; + $self->otaker =~ /^([\w\.\-]{0,16})$/ or return "Illegal otaker"; $self->otaker($1); if ( $self->dbdef_table->column('manual_flag') ) { @@ -679,7 +679,7 @@ sub order { =head1 VERSION -$Id: cust_pkg.pm,v 1.22 2002-05-22 12:17:06 ivan Exp $ +$Id: cust_pkg.pm,v 1.23 2002-08-26 20:40:55 ivan Exp $ =head1 BUGS |