merging commerce branch back into head

lib/WebGUI/Content/Shop.pm

@@ -0,0 +1,206 @@
+package WebGUI::Content::Shop;
+
+=head1 LEGAL
+
+ -------------------------------------------------------------------
+  WebGUI is Copyright 2001-2008 Plain Black Corporation.
+ -------------------------------------------------------------------
+  Please read the legal notices (docs/legal.txt) and the license
+  (docs/license.txt) that came with this distribution before using
+  this software.
+ -------------------------------------------------------------------
+  http://www.plainblack.com                     info@plainblack.com
+ -------------------------------------------------------------------
+
+=cut
+
+use strict;
+use WebGUI::AdminConsole;
+use WebGUI::Shop::AddressBook;
+use WebGUI::Shop::Cart;
+use WebGUI::Shop::Pay;
+use WebGUI::Shop::Ship;
+use WebGUI::Shop::Tax;
+use WebGUI::Shop::Transaction;
+
+=head1 NAME
+
+Package WebGUI::Content::Shop
+
+=head1 DESCRIPTION
+
+A content handler that opens up all the commerce functionality. The shop modules are accessed via the url like this:
+
+ /pagename?shop=modulehandler;method=www_method
+ 
+For example:
+
+ /home?shop=transaction;method=manage
+
+In the above we're accessing the WebGUI::Shop::Transaction module, which is configured with the www_transaction() sub in this package. And we're calling www_manage() on that object.
+
+=head1 SYNOPSIS
+
+ use WebGUI::Content::Shop;
+ my $output = WebGUI::Content::Shop::handler($session);
+
+=head1 SUBROUTINES
+
+These subroutines are available from this package:
+
+=cut
+
+#-------------------------------------------------------------------
+
+=head2 handler ( session ) 
+
+The content handler for this package.
+
+=cut
+
+sub handler {
+    my ($session) = @_;
+    my $output = undef;
+    my $function = "www_".$session->form->get("shop");
+    if ($function ne "www_" && (my $sub = __PACKAGE__->can($function))) {
+        $output = $sub->($session);
+    }
+    return $output;
+}
+
+#-------------------------------------------------------------------
+
+=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->newBySession($session);
+    if ($cart->can($method)) {
+        $output = $cart->$method();
+    }
+    return $output;
+}
+
+#-------------------------------------------------------------------
+
+=head2 www_admin ()
+
+Hand off to admin processor.
+
+=cut
+
+sub www_admin {
+    my $session = shift;
+    my $output = undef;
+    my $method = "www_". ( $session->form->get("method") || "editSettings");
+    my $admin = WebGUI::Shop::Admin->new($session);
+    if ($admin->can($method)) {
+        $output = $admin->$method();
+    }
+    return $output;
+}
+
+#-------------------------------------------------------------------
+
+=head2 www_cart ()
+
+Hand off to the cart.
+
+=cut
+
+sub www_cart {
+    my $session = shift;
+    my $output = undef;
+    my $method = "www_". ( $session->form->get("method") || "view");
+    my $cart = WebGUI::Shop::Cart->getCartBySession($session);
+    if ($cart->can($method)) {
+        $output = $cart->$method();
+    }
+    return $output;
+}
+
+#-------------------------------------------------------------------
+
+=head2 www_pay ()
+
+Hand off to the payment gateway.
+
+=cut
+
+sub www_pay {
+    my $session = shift;
+    my $output = undef;
+    my $method = "www_".$session->form->get("method");
+    my $pay = WebGUI::Shop::Pay->new($session);
+    if ($method ne "www_" && $pay->can($method)) {
+        $output = $pay->$method();
+    }
+    return $output;
+}
+
+#-------------------------------------------------------------------
+
+=head2 www_ship ()
+
+Hand off to the shipper.
+
+=cut
+
+sub www_ship {
+    my $session = shift;
+    my $output = undef;
+    my $method = "www_".$session->form->get("method");
+    my $ship = WebGUI::Shop::Ship->new($session);
+    if ($method ne "www_" && $ship->can($method)) {
+        $output = $ship->$method($session);
+    }
+    return $output;
+}
+
+#-------------------------------------------------------------------
+
+=head2 www_tax ()
+
+Hand off to the tax system.
+
+=cut
+
+sub www_tax {
+    my $session = shift;
+    my $output = undef;
+    my $method = "www_".$session->form->get("method");
+    my $tax = WebGUI::Shop::Tax->new($session);
+    if ($method ne "www_" && $tax->can($method)) {
+        $output = $tax->$method();
+    }
+    return $output;
+}
+
+#-------------------------------------------------------------------
+
+=head2 www_transaction ()
+
+Hand off to the transaction system.
+
+=cut
+
+sub www_transaction {
+    my $session = shift;
+    my $output = undef;
+    my $method = "www_".$session->form->get("method");
+    if ($method ne "www_" && WebGUI::Shop::Transaction->can($method)) {
+        $output = WebGUI::Shop::Transaction->$method($session);
+    }
+    return $output;
+}
+
+
+
+1;
+