diff options
| author | Michael Scherer <misc@mageia.org> | 2011-07-21 11:22:09 +0000 |
|---|---|---|
| committer | Michael Scherer <misc@mageia.org> | 2011-07-21 11:22:09 +0000 |
| commit | 2444b8126eb04341af00b65233762bdd944fb7ef (patch) | |
| tree | 3759d63affaecc2f4ee49d1758fdd2f5e230d86d /lib | |
| parent | 8990b94be73e8ef225742f9676cc2ec9574e771f (diff) | |
| download | identity-2444b8126eb04341af00b65233762bdd944fb7ef.tar identity-2444b8126eb04341af00b65233762bdd944fb7ef.tar.gz identity-2444b8126eb04341af00b65233762bdd944fb7ef.tar.bz2 identity-2444b8126eb04341af00b65233762bdd944fb7ef.tar.xz identity-2444b8126eb04341af00b65233762bdd944fb7ef.zip | |
fix the regexp, so we can manage mga-* group
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/CatDap/Controller/admin.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/CatDap/Controller/admin.pm b/lib/CatDap/Controller/admin.pm index fd74650..de0c76a 100644 --- a/lib/CatDap/Controller/admin.pm +++ b/lib/CatDap/Controller/admin.pm @@ -620,7 +620,7 @@ sub group_modify : Local { my @entries; my $mesg; $c->detach('/admin/group') if $group eq ''; - if ( $group !~ /^[\w\d ]*$/ ) { + if ( $group !~ /^[\w\d- ]*$/ ) { push @errors, $c->loc('Group contains illegal characters'); $c->detach('/admin/group'); } |