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

Shipping and billing address forms are now in the cart if you're logged in.

Browse source
This commit is contained in:
Colin Kuskie 2010-04-23 10:26:17 -07:00
parent fbefeaf621
commit 1b1e079214
3 changed files with 57 additions and 54 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -56,6 +56,61 @@ sub addAddress {
#-------------------------------------------------------------------
=head2 appendAddressFormVars ( $var, $properties, $prefix )
Add template variables for building a form to edit an address to an existing set of template variables.
=head3 $var
A hash ref of template variables.
=head3 $properties
A hash ref of properties to assign to as default to the form variables.
=head3 $prefix
An optional prefix to add to each variable name, and form name.
=cut
sub appendAddressFormVars {
my ($self, $var, $prefix, $properties ) = @_;
my $session = $self->session;
$properties ||= {};
$prefix ||= '';
$var ||= {};
for ( qw{ address1 address2 address3 label firstName lastName city state organization } ) {
$var->{ $prefix . $_ . 'Field' } = WebGUI::Form::text( $session, {
name => $prefix . $_,
maxlength => 35,
defaultValue => $properties->{ $_ }
} );
}
$var->{ $prefix . 'countryField' } =
WebGUI::Form::country( $session,{
name => $prefix . 'country',
defaultValue => $properties->{ country }
} );
$var->{ $prefix . 'codeField' } =
WebGUI::Form::zipcode( $session, {
name => $prefix . 'code',
defaultValue => $properties->{ code }
} );
$var->{ $prefix . 'phoneNumberField' } =
WebGUI::Form::phone( $session, {
name => $prefix . 'phoneNumber',
defaultValue => $properties->{ phoneNumber }
} );
$var->{ $prefix . 'emailField' } =
WebGUI::Form::email( $session, {
name => $prefix . 'email',
defaultValue => $properties->{ email }
} );
}
#-------------------------------------------------------------------
=head2 create ( session, userId )
Constructor. Creates a new address book for this user.
@ -185,58 +240,6 @@ sub getAddresses {
#-------------------------------------------------------------------
=head2 getAddressFormVars ( $properties, $prefix )
Return a hashref of template variables for building a form to edit an address.
=head3 $properties
A hash ref of properties to assign to as default to the form variables.
=head3 $prefix
An optional prefix to add to each variable name, and form name.
=cut
sub getAddressFormVars {
my ($self, $prefix, $properties ) = @_;
my $session = $self->session;
$properties ||= {};
$prefix ||= '';
my $var = {};
for ( qw{ address1 address2 address3 label firstName lastName city state organization } ) {
$var->{ $prefix . $_ . 'Field' } = WebGUI::Form::text( $session, {
name => $prefix . $_,
maxlength => 35,
defaultValue => $properties->{ $_ }
} );
}
$var->{ $prefix . 'countryField' } =
WebGUI::Form::country( $session,{
name => $prefix . 'country',
defaultValue => $properties->{ country }
} );
$var->{ $prefix . 'codeField' } =
WebGUI::Form::zipcode( $session, {
name => $prefix . 'code',
defaultValue => $properties->{ code }
} );
$var->{ $prefix . 'phoneNumberField' } =
WebGUI::Form::phone( $session, {
name => $prefix . 'phoneNumber',
defaultValue => $properties->{ phoneNumber }
} );
$var->{ $prefix . 'emailField' } =
WebGUI::Form::email( $session, {
name => $prefix . 'email',
defaultValue => $properties->{ email }
} );
return $var;
}
#-------------------------------------------------------------------
=head2 getDefaultAddress ()
Returns the default address for this address book if there is one. Otherwise throws a WebGUI::Error::ObjectNotFound exception.

4
lib/WebGUI/Shop/Cart.pm
View file

@ -901,8 +901,8 @@ sub www_view {
else {
##Address form variables
my $addressBook = $self->getAddressBook;
%var = (%var, $addressBook->getAddressFormVars('shipping', {}));
%var = (%var, $addressBook->getAddressFormVars('billing', {}));
$addressBook->appendAddressFormVars(\%var, 'shipping_', {});
$addressBook->appendAddressFormVars(\%var, 'billing_', {});
}
# POS variables