18 lines
510 B
Perl
18 lines
510 B
Perl
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;
|