466 lines
17 KiB
Perl
466 lines
17 KiB
Perl
package WebGUI::Shop::AddressBook;
|
||
|
||
use strict;
|
||
|
||
use Class::InsideOut qw{ :std };
|
||
use WebGUI::Asset::Template;
|
||
use WebGUI::Exception::Shop;
|
||
use WebGUI::Form;
|
||
use WebGUI::International;
|
||
use WebGUI::Shop::Address;
|
||
|
||
=head1 NAME
|
||
|
||
Package WebGUI::Shop::AddressBook;
|
||
|
||
=head1 DESCRIPTION
|
||
|
||
Managing addresses for commerce.
|
||
|
||
=head1 SYNOPSIS
|
||
|
||
use WebGUI::Shop::AddressBook;
|
||
|
||
my $book = WebGUI::Shop::AddressBook->new($session);
|
||
|
||
=head1 METHODS
|
||
|
||
These subroutines are available from this package:
|
||
|
||
=cut
|
||
|
||
readonly session => my %session;
|
||
private properties => my %properties;
|
||
|
||
#-------------------------------------------------------------------
|
||
|
||
=head2 addAddress ( address )
|
||
|
||
Adds an address to the address book. Returns a reference to the WebGUI::Shop::Address
|
||
object that was created. It does not trap exceptions, so any problems with creating
|
||
the object will be passed to the caller.
|
||
|
||
=head2 address
|
||
|
||
A hash reference containing address information.
|
||
|
||
=cut
|
||
|
||
sub addAddress {
|
||
my ($self, $address) = @_;
|
||
my $addressObj = WebGUI::Shop::Address->create( $self, $address);
|
||
return $addressObj;
|
||
}
|
||
|
||
#-------------------------------------------------------------------
|
||
|
||
=head2 convertToUser ( userId )
|
||
|
||
Converts a session based address book to be owned by a user. If the user already has an address book then the address book will be merged with this one.
|
||
|
||
=head3 userId
|
||
|
||
The userId to own this address book.
|
||
|
||
=cut
|
||
|
||
sub convertToUser {
|
||
my ($self, $userId) = @_;
|
||
$self->update({userId=>$userId});
|
||
my $other = $self->session->db->read("select addressBookId from addressBook where addressBookId<>? and userId=?", [$self->getId, $userId]);
|
||
while (my ($id) = $other->array) {
|
||
my $book = __PACKAGE__->new($self->session, $id);
|
||
foreach my $address (@{$book->getAddresses}) {
|
||
$address->update({addressBookId=>$self->getId});
|
||
}
|
||
$book->delete;
|
||
}
|
||
}
|
||
|
||
|
||
#-------------------------------------------------------------------
|
||
|
||
=head2 create ( session )
|
||
|
||
Constructor. Creates a new address book for this user if they don't have one. If the user is not logged in creates an address book attached to the session if there isn't one for the session. In any case returns a reference to the address book.
|
||
|
||
=head3 session
|
||
|
||
A reference to the current session.
|
||
|
||
=cut
|
||
|
||
sub create {
|
||
my ($class, $session) = @_;
|
||
unless (defined $session && $session->isa("WebGUI::Session")) {
|
||
WebGUI::Error::InvalidObject->throw(expected=>"WebGUI::Session", got=>(ref $session), error=>"Need a session.");
|
||
}
|
||
# check to see if we're dealing with a registered user or just a visitor
|
||
if ($session->user->userId ne "1") {
|
||
# check to see if this user or his session already has an address book
|
||
my @ids = $session->db->buildArray("select addressBookId from addressBook where userId=? or sessionId=?",[$session->user->userId, $session->getId]);
|
||
if (scalar(@ids) > 0) {
|
||
# how are we looking
|
||
my $book = $class->new($session, $ids[0]);
|
||
if ($book->get("userId") eq "" || scalar(@ids) > 1) {
|
||
# it's attached to the session or we have too many
|
||
$book->convertToUser($session->user->userId);
|
||
}
|
||
# it's ours
|
||
return $book;
|
||
}
|
||
else {
|
||
# nope create one for the user
|
||
my $id = $session->db->setRow("addressBook", "addressBookId", {addressBookId=>"new", userId=>$session->user->userId});
|
||
return $class->new($session, $id);
|
||
}
|
||
}
|
||
else {
|
||
# check to see if this session already has an address book
|
||
my $addressBookId = $session->db->quickScalar("select addressBookId from addressBook where sessionId=?",[$session->getId]);
|
||
if ($addressBookId eq "") {
|
||
# nope, create one for the session
|
||
$addressBookId = $session->db->setRow("addressBook", "addressBookId", {addressBookId=>"new", sessionId=>$session->getId});
|
||
}
|
||
return $class->new($session, $addressBookId);
|
||
}
|
||
}
|
||
|
||
#-------------------------------------------------------------------
|
||
|
||
=head2 delete ()
|
||
|
||
Deletes this address book and all addresses contained in it.
|
||
|
||
=cut
|
||
|
||
sub delete {
|
||
my ($self) = @_;
|
||
foreach my $address (@{$self->getAddresses}) {
|
||
$address->delete;
|
||
}
|
||
$self->session->db->write("delete from addressBook where addressBookId=?",[$self->getId]);
|
||
undef $self;
|
||
return undef;
|
||
}
|
||
|
||
#-------------------------------------------------------------------
|
||
|
||
=head2 get ( [ property ] )
|
||
|
||
Returns a duplicated hash reference of this object’s data.
|
||
|
||
=head3 property
|
||
|
||
Any field − returns the value of a field rather than the hash reference. See the
|
||
C<update> method.
|
||
|
||
=cut
|
||
|
||
sub get {
|
||
my ($self, $name) = @_;
|
||
if (defined $name) {
|
||
return $properties{id $self}{$name};
|
||
}
|
||
my %copyOfHashRef = %{$properties{id $self}};
|
||
return \%copyOfHashRef;
|
||
}
|
||
|
||
#-------------------------------------------------------------------
|
||
|
||
=head2 getId ()
|
||
|
||
Returns the unique id for this cart.
|
||
|
||
=cut
|
||
|
||
sub getId {
|
||
my ($self) = @_;
|
||
return $self->get("addressBookId");
|
||
}
|
||
|
||
#-------------------------------------------------------------------
|
||
|
||
=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.
|
||
|
||
=cut
|
||
|
||
sub getAddresses {
|
||
my ($self) = @_;
|
||
my @addressObjects = ();
|
||
my $addresses = $self->session->db->read("select addressId from address where addressBookId=?",[$self->getId]);
|
||
while (my ($addressId) = $addresses->array) {
|
||
push(@addressObjects, $self->getAddress($addressId));
|
||
}
|
||
return \@addressObjects;
|
||
}
|
||
|
||
#-------------------------------------------------------------------
|
||
|
||
=head2 new ( session, addressBookId )
|
||
|
||
Constructor. Instanciates a cart based upon a addressBookId.
|
||
|
||
=head3 session
|
||
|
||
A reference to the current session.
|
||
|
||
=head3 addressBookId
|
||
|
||
The unique id of an address book to instanciate.
|
||
|
||
=cut
|
||
|
||
sub new {
|
||
my ($class, $session, $addressBookId) = @_;
|
||
unless (defined $session && $session->isa("WebGUI::Session")) {
|
||
WebGUI::Error::InvalidObject->throw(expected=>"WebGUI::Session", got=>(ref $session), error=>"Need a session.");
|
||
}
|
||
unless (defined $addressBookId) {
|
||
WebGUI::Error::InvalidParam->throw(error=>"Need an addressBookId.");
|
||
}
|
||
my $addressBook = $session->db->quickHashRef('select * from addressBook where addressBookId=?', [$addressBookId]);
|
||
if ($addressBook->{addressBookId} eq "") {
|
||
WebGUI::Error::ObjectNotFound->throw(error=>"No such address book.", id=>$addressBookId);
|
||
}
|
||
my $self = register $class;
|
||
my $id = id $self;
|
||
$session{ $id } = $session;
|
||
$properties{ $id } = $addressBook;
|
||
return $self;
|
||
}
|
||
|
||
#-------------------------------------------------------------------
|
||
|
||
=head2 update ( properties )
|
||
|
||
Sets properties in the addressBook
|
||
|
||
=head3 properties
|
||
|
||
A hash reference that contains one of the following:
|
||
|
||
=head4 lastShipId
|
||
|
||
The last addressId used for shipping.
|
||
|
||
=head4 lastPayId
|
||
|
||
The last addressId used for payment.
|
||
|
||
=head4 userId
|
||
|
||
Assign the user that owns this address book.
|
||
|
||
=head4
|
||
|
||
Assign the session that owns this adress book. Will automatically be set to "" if a user owns it.
|
||
|
||
=cut
|
||
|
||
sub update {
|
||
my ($self, $newProperties) = @_;
|
||
my $id = id $self;
|
||
foreach my $field (qw(lastPayId lastShipId userId sessionId)) {
|
||
$properties{$id}{$field} = (exists $newProperties->{$field}) ? $newProperties->{$field} : $properties{$id}{$field};
|
||
}
|
||
##Having both a userId and sessionId will confuse create.
|
||
if ($properties{$id}{userId} ne "") {
|
||
$properties{$id}{sessionId} = "";
|
||
}
|
||
$self->session->db->setRow("addressBook","addressBookId",$properties{$id});
|
||
}
|
||
|
||
#-------------------------------------------------------------------
|
||
|
||
=head2 www_deleteAddress ( )
|
||
|
||
Deletes an address from the book.
|
||
|
||
=cut
|
||
|
||
sub www_deleteAddress {
|
||
my $self = shift;
|
||
$self->getAddress($self->session->form->get("addressId"))->delete;
|
||
return $self->www_view;
|
||
}
|
||
|
||
#-------------------------------------------------------------------
|
||
|
||
=head2 www_editAddress ()
|
||
|
||
Allows a user to edit an address in their address book.
|
||
|
||
=cut
|
||
|
||
sub www_editAddress {
|
||
my ($self, $error) = @_;
|
||
my $session = $self->session;
|
||
my $form = $session->form;
|
||
my $address = eval{$self->getAddress($form->get("addressId"))};
|
||
if (WebGUI::Error->caught) {
|
||
$address = undef;
|
||
}
|
||
my %base = ();
|
||
if (defined $address) {
|
||
%base = %{$address->get};
|
||
}
|
||
my %var = (
|
||
%base,
|
||
error => $error,
|
||
formHeader => WebGUI::Form::formHeader($session)
|
||
.WebGUI::Form::hidden($session, {name=>"shop", value=>"address"})
|
||
.WebGUI::Form::hidden($session, {name=>"method", value=>"editAddressSave"})
|
||
.WebGUI::Form::hidden($session, {name=>"addressId", value=>$form->get("addressId")})
|
||
.WebGUI::Form::hidden($session, {name=>"itemId", value=>$form->get("itemId")}),
|
||
saveButton => WebGUI::Form::submit($session),
|
||
formFooter => WebGUI::Form::formFooter($session),
|
||
address1Field => WebGUI::Form::text($session, {name=>"address1", maxlength=>35, defaultValue=>($form->get("address1") || ((defined $address) ? $address->get('address1') : undef))}),
|
||
address2Field => WebGUI::Form::text($session, {name=>"address2", maxlength=>35, defaultValue=>($form->get("address2") || ((defined $address) ? $address->get('address2') : undef))}),
|
||
address3Field => WebGUI::Form::text($session, {name=>"address3", maxlength=>35, defaultValue=>($form->get("address3") || ((defined $address) ? $address->get('address3') : undef))}),
|
||
labelField => WebGUI::Form::text($session, {name=>"label", maxlength=>35, defaultValue=>($form->get("label") || ((defined $address) ? $address->get('label') : undef))}),
|
||
nameField => WebGUI::Form::text($session, {name=>"name", maxlength=>35, defaultValue=>($form->get("name") || ((defined $address) ? $address->get('name') : undef))}),
|
||
cityField => WebGUI::Form::text($session, {name=>"city", maxlength=>35, defaultValue=>($form->get("city") || ((defined $address) ? $address->get('city') : undef))}),
|
||
stateField => WebGUI::Form::text($session, {name=>"state", maxlength=>35, defaultValue=>($form->get("state") || ((defined $address) ? $address->get('state') : undef))}),
|
||
countryField => WebGUI::Form::country($session, {name=>"country", defaultValue=>($form->get("country") || ((defined $address) ? $address->get('country') : undef))}),
|
||
codeField => WebGUI::Form::zipcode($session, {name=>"code", defaultValue=>($form->get("code") || ((defined $address) ? $address->get('code') : undef))}),
|
||
phoneNumberField => WebGUI::Form::phone($session, {name=>"phoneNumber", defaultValue=>($form->get("phoneNumber") || ((defined $address) ? $address->get('phoneNumber') : undef))}),
|
||
);
|
||
my $template = WebGUI::Asset::Template->new($session, $session->setting->get("shopAddressTemplateId"));
|
||
$template->prepare;
|
||
return $session->style->userStyle($template->process(\%var));
|
||
}
|
||
|
||
|
||
|
||
#-------------------------------------------------------------------
|
||
|
||
=head2 www_editAddressSave ()
|
||
|
||
Saves the address. If there is a problem generates www_editAddress() with an error message. Otherwise returns www_view().
|
||
|
||
=cut
|
||
|
||
sub www_editAddressSave {
|
||
my $self = shift;
|
||
my $form = $self->session->form;
|
||
my $i18n = WebGUI::International->new($self->session,"Shop");
|
||
if ($form->get("label") eq "") {
|
||
return $self->www_editAddress(sprintf($i18n->get('is a required field'), $i18n->get('label')));
|
||
}
|
||
if ($form->get("name") eq "") {
|
||
return $self->www_editAddress(sprintf($i18n->get('is a required field'), $i18n->get('name')));
|
||
}
|
||
if ($form->get("address1") eq "") {
|
||
return $self->www_editAddress(sprintf($i18n->get('is a required field'), $i18n->get('address')));
|
||
}
|
||
if ($form->get("city") eq "") {
|
||
return $self->www_editAddress(sprintf($i18n->get('is a required field'), $i18n->get('city')));
|
||
}
|
||
if ($form->get("code") eq "") {
|
||
return $self->www_editAddress(sprintf($i18n->get('is a required field'), $i18n->get('code')));
|
||
}
|
||
if ($form->get("country") eq "") {
|
||
return $self->www_editAddress(sprintf($i18n->get('is a required field'), $i18n->get('country')));
|
||
}
|
||
if ($form->get("phoneNumber") eq "") {
|
||
return $self->www_editAddress(sprintf($i18n->get('is a required field'), $i18n->get('phone number')));
|
||
}
|
||
my %addressData = (
|
||
label => $form->get("label"),
|
||
name => $form->get("name"),
|
||
address1 => $form->get("address1"),
|
||
address2 => $form->get("address2"),
|
||
address3 => $form->get("address3"),
|
||
city => $form->get("city"),
|
||
state => $form->get("state"),
|
||
code => $form->get("code","zipcode"),
|
||
country => $form->get("country","country"),
|
||
phoneNumber => $form->get("phoneNumber","phone"),
|
||
);
|
||
if ($form->get('addressId') eq '') {
|
||
$self->addAddress(\%addressData);
|
||
}
|
||
else {
|
||
$self->getAddress($form->get('addressId'))->update(\%addressData);
|
||
}
|
||
return $self->www_view;
|
||
}
|
||
|
||
|
||
#-------------------------------------------------------------------
|
||
|
||
=head2 www_view
|
||
|
||
Displays the current user's address book.
|
||
|
||
=cut
|
||
|
||
sub www_view {
|
||
my $self = shift;
|
||
my $session = $self->session;
|
||
my $form = $session->form;
|
||
my $i18n = WebGUI::International->new($session, "Shop");
|
||
my @addresses = ();
|
||
foreach my $address (@{$self->getAddresses}) {
|
||
push(@addresses, {
|
||
%{$address->get},
|
||
address => $address->getHtmlFormatted,
|
||
deleteButton => WebGUI::Form::formHeader($session)
|
||
.WebGUI::Form::hidden($session, {name=>"shop", value=>"address"})
|
||
.WebGUI::Form::hidden($session, {name=>"method", value=>"deleteAddress"})
|
||
.WebGUI::Form::hidden($session, {name=>"addressId", value=>$address->getId})
|
||
.WebGUI::Form::hidden($session, {name=>"itemId", value=>$form->get("itemId")})
|
||
.WebGUI::Form::submit($session, {value=>$i18n->get("delete")})
|
||
.WebGUI::Form::formFooter($session),
|
||
editButton => WebGUI::Form::formHeader($session)
|
||
.WebGUI::Form::hidden($session, {name=>"shop", value=>"address"})
|
||
.WebGUI::Form::hidden($session, {name=>"method", value=>"editAddress"})
|
||
.WebGUI::Form::hidden($session, {name=>"addressId", value=>$address->getId})
|
||
.WebGUI::Form::hidden($session, {name=>"itemId", value=>$form->get("itemId")})
|
||
.WebGUI::Form::submit($session, {value=>$i18n->get("edit")})
|
||
.WebGUI::Form::formFooter($session),
|
||
useButton => WebGUI::Form::formHeader($session)
|
||
.WebGUI::Form::hidden($session, {name=>"shop", value=>"cart"})
|
||
.WebGUI::Form::hidden($session, {name=>"method", value=>"setShippingAddress"})
|
||
.WebGUI::Form::hidden($session, {name=>"shippingAddressId", value=>$address->getId})
|
||
.WebGUI::Form::hidden($session, {name=>"itemId", value=>$form->get("itemId")})
|
||
.WebGUI::Form::submit($session, {value=>$i18n->get("use this address")})
|
||
.WebGUI::Form::formFooter($session),
|
||
});
|
||
}
|
||
my %var = (
|
||
addresses => \@addresses,
|
||
addButton => WebGUI::Form::formHeader($session)
|
||
.WebGUI::Form::hidden($session, {name=>"shop", value=>"address"})
|
||
.WebGUI::Form::hidden($session, {name=>"method", value=>"editAddress"})
|
||
.WebGUI::Form::hidden($session, {name=>"itemId", value=>$form->get("itemId")})
|
||
.WebGUI::Form::submit($session, {value=>$i18n->get("add a new address")})
|
||
.WebGUI::Form::formFooter($session),
|
||
);
|
||
my $template = WebGUI::Asset::Template->new($session, $session->setting->get("shopAddressBookTemplateId"));
|
||
$template->prepare;
|
||
return $session->style->userStyle($template->process(\%var));
|
||
}
|
||
|
||
1;
|
||
|