From 670e1a1218990bb313aace277c53f03bdebdf3fe Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 8 May 2008 23:34:00 +0000
Subject: [PATCH] begin work on the buy method, to add variants to the cart

---
 lib/WebGUI/Asset/Sku/Product.pm | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/lib/WebGUI/Asset/Sku/Product.pm b/lib/WebGUI/Asset/Sku/Product.pm
index 0d1543e6b..f9332f3e7 100644
--- a/lib/WebGUI/Asset/Sku/Product.pm
+++ b/lib/WebGUI/Asset/Sku/Product.pm
@@ -756,6 +756,25 @@ sub www_addRelatedSave {
 
 #-------------------------------------------------------------------
 
+=head2 www_buy
+
+Method to add a variant from this Product to the cart.  The variant is in the form
+variable vid.
+
+=cut
+
+sub www_buy {
+    my $self = shift;
+    return $self->session->privilege->insufficient() unless $self->canView;
+    ##Need to validate the index
+    my $vid = $self->session->form->process('vid');
+    my $variant = {};
+    $self->addToCart($variant);
+    return '';
+}
+
+#-------------------------------------------------------------------
+
 =head2 www_deleteAccessoryConfirm 
 
 Delete an asset from the accessory list, by index.