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

Committing the new Ecommerce system

Browse source
This commit is contained in:
Martin Kamerbeek 2004-11-29 15:31:22 +00:00
parent 1847a18ec7
commit 5676bf9585
16 changed files with 2576 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lib/WebGUI/Macro/SubscriptionItem.pm Normal file
View file

@ -0,0 +1,18 @@
package WebGUI::Macro::SubscriptionItem;
use strict;
use WebGUI::Macro;
use WebGUI::SQL;
use WebGUI::URL;
sub process {
my ($subscriptionId, $templateId, %var);
($subscriptionId, $templateId) = WebGUI::Macro::getParams(@_);
%var = WebGUI::SQL->quickHash('select * from subscription where subscriptionId='.quote($subscriptionId));
$var{url} = WebGUI::URL::page('op=purchaseSubscription&sid='.$subscriptionId);
return WebGUI::Template::process($templateId || 1, 'Macro/SubscriptionItem', \%var);
}
1;

12
lib/WebGUI/Macro/SubscriptionItemPurchaseUrl.pm Normal file
View file

@ -0,0 +1,12 @@
package WebGUI::Macro::SubscriptionItemPurchaseUrl;
use strict;
use WebGUI::Macro;
use WebGUI::URL;
sub process {
my ($subscriptionId) = WebGUI::Macro::getParams(@_);
return WebGUI::URL::page('op=purchaseSubscriptionItem&sid='.$subscriptionId);
}
1;