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

added utility method

Browse source
This commit is contained in:
JT Smith 2008-03-04 22:31:16 +00:00
parent 12b72c9b59
commit 52d2c63271
1 changed files with 18 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lib/WebGUI/Shop/AddressBook.pm
View file

@ -180,6 +180,23 @@ sub getId {
#-------------------------------------------------------------------
=head2 getAddress ( id )
Returns an address object.
=head3 id
An address object's unique id.
=cut
sub getAddress {
my ($self, $addressId) = @_;
return WebGUI::Shop::Address->new($self, $addressId);
}
#-------------------------------------------------------------------
=head2 getAddresses ( )
Returns an array reference of address objects that are in this book.
@ -191,7 +208,7 @@ sub getAddresses {
my @addressObjects = ();
my $addresses = $self->session->db->read("select addressId from address where addressBookId=?",[$self->getId]);
while (my ($addressId) = $addresses->array) {
push(@addressObjects, WebGUI::Shop::Address->new($self, $addressId));
push(@addressObjects, $self->getAddress($addressId));
}
return \@addressObjects;
}