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

Converted the Subscription related macro's to use the new commerce system.

Browse source
This commit is contained in:
Martin Kamerbeek 2008-05-26 22:24:31 +00:00
parent 60670a8a08
commit 88160e1cfa
2 changed files with 38 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

33
lib/WebGUI/Macro/SubscriptionItem.pm
View file

@ -28,12 +28,33 @@ be used from the Macro/SubscriptionItem namespace.
=cut
sub process {
my $session = shift;
my ($subscriptionId, $templateId, %var);
($subscriptionId, $templateId) = @_;
%var = $session->db->quickHash('select * from subscription where subscriptionId='.$session->db->quote($subscriptionId));
$var{url} = $session->url->page('op=purchaseSubscription;sid='.$subscriptionId);
return WebGUI::Asset::Template->new($session,$templateId || "PBtmpl0000000000000046")->process(\%var);
my $session = shift;
my $subscriptionId = shift;
my $templateId = shift || 'PBtmpl0000000000000046';
# Fetch subscription asset
my $subscription = WebGUI::Asset->newByDynamicClass( $session, $subscriptionId );
return "Could not find subscription with id: [$subscriptionId]" unless $subscription;
return "Only Subscription assets can be used with this macro."
unless $subscription->get('className') =~ m{^WebGUI::Asset::Sku::Subscription};
# Setup template vars
my $var;
$var->{ subscriptionId } = $subscription->getId;
$var->{ name } = $subscription->get('title');
$var->{ price } = $subscription->getPrice;
$var->{ description } = $subscription->get('description');
$var->{ subscriptionGroup } = $subscription->get('subscriptionGroup');
$var->{ duration } = $subscription->get('duration');
$var->{ karma } = $subscription->get('karma');
$var->{ useSalesTax } = $subscription->get('useSalesTax');
$var->{ url } = $subscription->getUrl('func=purchaseSubscription');
# Fetch template
my $template = WebGUI::Asset::Template->new( $session, $templateId );
return "Could not instantiate template with id:[$templateId]" unless $template;
return $template->process( $var );
}
1;

13
lib/WebGUI/Macro/SubscriptionItemPurchaseUrl.pm
View file

@ -22,8 +22,17 @@ The ID of the subscription item to purchase.
=cut
sub process {
my $session = shift;
return $session->url->page('op=purchaseSubscription;sid='.shift);
my $session = shift;
my $subscriptionId = shift;
# Fetch subscription asset
my $subscription = WebGUI::Asset->newByDynamicClass( $session, $subscriptionId );
return "Could not find subscription with id: [$subscriptionId]" unless $subscription;
return "Only Subscription assets can be used with this macro."
unless $subscription->get('className') =~ m{^WebGUI::Asset::Sku::Subscription};
# Construct and output the purchase url for this subscription
return $subscription->getUrl('func=purchaseSubscription');
}
1;