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

Make sure that we don't delete things that have already been deleted.

Browse source
This commit is contained in:
Colin Kuskie 2009-05-20 03:05:45 +00:00
parent 0fb2b7775d
commit abb6ff29d5
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -146,13 +146,13 @@ END {
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 /;
my $newGroup = WebGUI::Group->new($SESSION, $groupId);
$newGroup->delete;
$newGroup->delete if $newGroup;
}
USER: foreach my $user (@usersToDelete) {
my $userId = $user->userId;
next USER if any { $userId eq $_ } (1,3);
my $newUser = WebGUI::User->new($SESSION, $userId);
$newUser->delete;
$newUser->delete if $newUser;
}
foreach my $stor (@storagesToDelete) {
if ($SESSION->id->valid($stor)) {