Committing the new Ecommerce system

lib/WebGUI/Commerce/Item/Subscription.pm

@@ -0,0 +1,61 @@
+package WebGUI::Commerce::Item::Subscription;
+
+use strict;
+#use WebGUI::SQL;
+use WebGUI::Subscription;
+
+#our @ISA = qw(WebGUI::Commerce::Item);
+
+#-------------------------------------------------------------------
+sub description {
+	return $_[0]->{_subscription}->get('description');
+}
+
+#-------------------------------------------------------------------
+sub duration {
+	$_[0]->{_subscription}->get('duration');
+}
+
+#-------------------------------------------------------------------
+sub handler {
+	$_[0]->{_subscription}->apply;
+}
+
+#-------------------------------------------------------------------
+sub id {
+	return $_[0]->{_subscription}->get('subscriptionId');
+}
+
+#-------------------------------------------------------------------
+sub isRecurring {
+	return 1;
+}
+
+#-------------------------------------------------------------------
+sub name {
+	return $_[0]->{_subscription}->get('name');
+}
+
+#-------------------------------------------------------------------
+sub new {
+	my ($class, $subscriptionId, $type, $subscription);
+	$class = shift;
+	$subscriptionId = shift;
+	$type = shift;
+	
+	$subscription = WebGUI::Subscription->new($subscriptionId);
+	bless {_subscription => $subscription, _subscriptionId => $subscriptionId}, $class;
+}
+
+#-------------------------------------------------------------------
+sub price {
+	return $_[0]->{_subscription}->get('price');
+}
+
+#-------------------------------------------------------------------
+sub type {
+	return 'Subscription';
+}
+
+1;
+