oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Prevent default groups from being deleted.

Browse source
This commit is contained in:
Colin Kuskie 2009-05-07 16:04:47 +00:00
parent 1c1f1c295a
commit 19b333067e
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
t/lib/WebGUI/Test.pm
View file

@ -142,6 +142,8 @@ BEGIN {
END { END {
my $Test = Test::Builder->new; my $Test = Test::Builder->new;
GROUP: foreach my $group (@groupsToDelete) { GROUP: foreach my $group (@groupsToDelete) {
my $groupId = $group->getId;
next GROUP if any { $groupId eq $_ } qw/1 2 3 4 6 7 8 11 12 13 14 pbgroup000000000000015 pbgroup000000000000016 pbgroup000000000000017 /;
$group->delete; $group->delete;
} }
USER: foreach my $user (@usersToDelete) { USER: foreach my $user (@usersToDelete) {