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

Merge commit '4635b91554' into WebGUI8. Syntax clean up to 7.10.2

Browse source
This commit is contained in:
Colin Kuskie 2010-10-27 15:59:33 -07:00
commit 87326192a3
46 changed files with 956 additions and 969 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/WebGUI/User.pm
View file

@ -18,6 +18,7 @@ use strict;
use WebGUI::Group;
use WebGUI::Workflow::Instance;
use JSON ();
use WebGUI::Exception;
use WebGUI::ProfileField;
use Scalar::Util qw( weaken );
use Net::CIDR::Lite;
@ -418,6 +419,10 @@ sub delete {
$book->delete;
}
require WebGUI::Shop::Credit;
my $credit = WebGUI::Shop::Credit->new($session, $userId);
$credit->purge;
# remove user itself
$db->write("DELETE FROM userProfileData WHERE userId=?",[$userId]);
$db->write("DELETE FROM users WHERE userId=?",[$userId]);