added address book management system, no ui

This commit is contained in:
JT Smith 2008-02-29 22:17:02 +00:00
parent 7e6cfad2be
commit cebb684536
6 changed files with 563 additions and 9 deletions

View file

@ -16,6 +16,7 @@ package WebGUI::Content::Shop;
use strict;
use WebGUI::AdminConsole;
use WebGUI::Shop::AddressBook;
use WebGUI::Shop::Cart;
#use WebGUI::Shop::Pay;
use WebGUI::Shop::Ship;
@ -79,6 +80,25 @@ sub www_cart {
#-------------------------------------------------------------------
=head2 www_address ()
Hand off to the address book.
=cut
sub www_address {
my $session = shift;
my $output = undef;
my $method = "www_". ( $session->form->get("method") || "view");
my $cart = WebGUI::Shop::AddressBook->create($session);
if ($cart->can($method)) {
$output = $cart->$method();
}
return $output;
}
#-------------------------------------------------------------------
=head2 www_manageSettings ()
Display the commerce settings page.