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

Update Account::Profile tests and code.

Browse source
This commit is contained in:
Colin Kuskie 2011-11-01 13:16:48 -07:00
parent 431cd280a4
commit 38d35e23b6
3 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Account.pm
View file

@ -21,7 +21,7 @@ has method => (
has uid => (
is => 'rw',
default => 'view',
default => '',
);
has bare => (

5
lib/WebGUI/Account/Profile.pm
View file

@ -7,6 +7,7 @@ use WebGUI::International;
use WebGUI::Pluggable;
use WebGUI::ProfileCategory;
use WebGUI::ProfileField;
use WebGUI::Shop::AddressBook;
use base qw/WebGUI::Account/;
=head1 NAME
@ -462,9 +463,7 @@ sub www_editSave {
if($e = WebGUI::Error->caught('WebGUI::Error::ObjectNotFound')) {
#Get home address only mappings to avoid creating addresses with just firstName, lastName, email
my %home_address_map = %{$address_mappings};
foreach my $exclude ( qw{ firstName lastName email } ) {
delete $home_address_map{$exclude};
}
delete $home_address_map{qw/firstName lastName email/};
#Add the profile address for the user if there are homeAddress fields
if( grep { $address->{$_} } values %home_address_map ) {
$address->{label} = "Profile Address";

2
t/Account/Profile.t
View file

@ -173,7 +173,7 @@ $andy = $session->user;
#Test that the address was saved to the profile
cmp_bag (
[ map { $andy->profileField($_) } keys %profile_info ],
[ map { $andy->get($_) } keys %profile_info ],
[ values %profile_info ],
'Profile fields were updated'
);