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

When a user is deleted, delete any address books as well. Uses the API to get the

Browse source 
Addresses, too.  With tests and upgrade script to take care of old address books.
This commit is contained in:
Colin Kuskie 2009-06-03 02:12:23 +00:00
parent 9702ffcaac
commit 61832b62b9
4 changed files with 60 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lib/WebGUI/User.pm
View file

@ -22,7 +22,9 @@ use WebGUI::Exception;
use WebGUI::Utility;
use WebGUI::Operation::Shared;
use WebGUI::Workflow::Instance;
use WebGUI::Shop::AddressBook;
use JSON;
use WebGUI::Exception;
=head1 NAME
@ -352,15 +354,16 @@ sub dateCreated {
Deletes this user, removes their user profile data, cleans up their
inbox, removes userSessionScratch data and authentication information,
removes them from any groups they belong to and deletes their
Friend's group.
Friend's group. Also deletes any address books and addresses that
belong to this user.
=cut
sub delete {
my $self = shift;
my $userId = $self->userId;
my $self = shift;
my $userId = $self->userId;
my $session = $self->session;
my $db = $session->db;
my $db = $session->db;
$self->uncache;
foreach my $groupId ( @{ $self->getGroups } ) {
@ -394,6 +397,16 @@ sub delete {
# remove inbox entries
$db->write("DELETE FROM inbox WHERE userId=? AND (groupId IS NULL OR groupId='')",[$userId]);
# Shop cleanups
my $sth = $session->db->prepare('select addressBookId from addressBook where userId=?');
$sth->execute([$userId]);
BOOK: while (my $bookId = $sth->hashRef) {
my $book;
eval { $book = WebGUI::Shop::AddressBook->new($session, $bookId->{addressBookId}); };
next BOOK if (my $e = Exception::Class->caught);
$book->delete;
}
# remove user itself
$db->write("DELETE FROM userProfileData WHERE userId=?",[$userId]);
$db->write("DELETE FROM users WHERE userId=?",[$userId]);