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:29:26 +00:00
parent cdd19d2246
commit 1847a18ec7
4 changed files with 395 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

72
lib/WebGUI/Commerce/Payment.pm Normal file
View file

@ -0,0 +1,72 @@
package WebGUI::Commerce::Payment;
use strict;
use WebGUI::SQL;
use WebGUI::International;
use Tie::IxHash;
#-------------------------------------------------------------------
sub get {
return $_[0]->{_properties}{$_[1]};
}
#-------------------------------------------------------------------
sub init {
my ($class, $namespace, $properties);
$class = shift;
$namespace = shift;
$properties = WebGUI::SQL->buildHashRef("select fieldName, fieldValue from commerceSettings where namespace=".quote($namespace)." and type='Payment'");
bless {_properties => $properties, _namespace=>$namespace}, $class;
}
#-------------------------------------------------------------------
sub load {
my ($class, $namespace, $load, $cmd, $plugin);
$class = shift;
$namespace = shift;
$cmd = "WebGUI::Commerce::Payment::$namespace";
$load = "use $cmd";
eval($load);
WebGUI::ErrorHandler::warn("Payment plugin failed to compile: $cmd.".$@) if($@);
$plugin = eval($cmd."->init");
WebGUI::ErrorHandler::warn("Couldn't instantiate payment plugin: $cmd.".$@) if($@);
return $plugin;
}
#-------------------------------------------------------------------
sub namespace {
return $_[0]->{_namespace};
}
#-------------------------------------------------------------------
sub prepend {
my ($self, $name);
$self = shift;
$name = shift;
return "~Payment~".$self->namespace."~".$name;
}
#-------------------------------------------------------------------
sub recurringPeriodValues {
my ($i18n, %periods);
$i18n = WebGUI::International->new('Commerce');
tie %periods, "Tie::IxHash";
%periods = (
Weekly => $i18n->get('weekly'),
BiWeekly => $i18n->get('biweekly'),
FourWeekly => $i18n->get('fourweekly'),
Monthly => $i18n->get('monthly'),
Quarterly => $i18n->get('quarterly'),
HalfYearly => $i18n->get('halfyearly'),
Yearly => $i18n->get('yearly'),
);
return \%periods;
}
1;