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

Added choice of multiple payment gateways to commerce system.

Browse source
This commit is contained in:
Martin Kamerbeek 2004-11-30 19:55:14 +00:00
parent 00074fd16d
commit 1ab8746c3a
7 changed files with 175 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

39
lib/WebGUI/Commerce/Payment.pm
View file

@ -4,12 +4,49 @@ use strict;
use WebGUI::SQL;
use WebGUI::International;
use Tie::IxHash;
use WebGUI::HTMLForm;
#-------------------------------------------------------------------
sub configurationForm {
my ($self, $form, $f);
$self = shift;
$form = shift;
$f = WebGUI::HTMLForm->new;
$f->yesNo(
-name => $self->prepend('enabled'),
-value => $self->enabled,
#### intl ####
-label => 'Enable',
);
$f->raw($form);
return $f->printRowsOnly;
}
#-------------------------------------------------------------------
sub enabled {
return $_[0]->{_enabled};
}
#-------------------------------------------------------------------
sub get {
return $_[0]->{_properties}{$_[1]};
}
#-------------------------------------------------------------------
sub getEnabledPlugins {
my (@enabledPlugins, $plugin, @plugins);
@enabledPlugins = WebGUI::SQL->buildArray("select namespace from commerceSettings where type='Payment' and fieldName='enabled' and fieldValue='1'");
foreach (@enabledPlugins) {
$plugin = WebGUI::Commerce::Payment->load($_);
push(@plugins, $plugin) if ($plugin);
}
return \@plugins;
}
#-------------------------------------------------------------------
sub init {
my ($class, $namespace, $properties);
@ -18,7 +55,7 @@ sub init {
$properties = WebGUI::SQL->buildHashRef("select fieldName, fieldValue from commerceSettings where namespace=".quote($namespace)." and type='Payment'");
bless {_properties => $properties, _namespace=>$namespace}, $class;
bless {_properties=>$properties, _namespace=>$namespace, _enabled=>$properties->{enabled}}, $class;
}
#-------------------------------------------------------------------

3
lib/WebGUI/Commerce/Payment/PayFlowPro.pm
View file

@ -10,7 +10,6 @@ use WebGUI::International;
our @ISA = qw(WebGUI::Commerce::Payment);
#-------------------------------------------------------------------
sub cancelRecurringPayment {
my ($self, $recurring);
@ -138,7 +137,7 @@ sub configurationForm {
-subText=> $i18n->get('testModeEnabled')
);
return $f->printRowsOnly;
return $self->SUPER::configurationForm($f->printRowsOnly);
}
#-------------------------------------------------------------------