If a user does not have privacy data for a field, check back with the field for the privacy default. Fixes bug #11951. Added ProfileField cleanup code.

This commit is contained in:
Colin Kuskie 2010-11-09 11:06:57 -08:00
parent 9e714fa09a
commit 897c2e0248
4 changed files with 22 additions and 5 deletions

View file

@ -137,6 +137,7 @@ sub _initSession {
'Payment Drivers' => 'paymentGateway',
'Database Links' => 'databaseLink',
'LDAP Links' => 'ldapLink',
'Profile Fields' => 'userProfileField',
);
my %initCounts;
for ( my $i = 0; $i < @checkCount; $i += 2) {
@ -750,6 +751,7 @@ were passed in. Currently able to destroy:
WebGUI::DatabaseLink
WebGUI::LDAPLink
WebGUI::Inbox::Message
WebGUI::ProfileField
Example call:
@ -853,6 +855,7 @@ Example call:
'WebGUI::Inbox::Message' => 'purge',
'WebGUI::AdSpace' => 'delete',
'WebGUI::FilePump::Bundle' => 'delete',
'WebGUI::ProfileField' => 'delete',
'WebGUI::Shop::Cart' => sub {
my $cart = shift;
my $addressBook = eval { $cart->getAddressBook(); };