Update Cash for Moose.
This commit is contained in:
parent
2269c4cd51
commit
a2103e8036
1 changed files with 12 additions and 35 deletions
|
|
@ -20,7 +20,18 @@ use WebGUI::Shop::PayDriver;
|
||||||
use WebGUI::Exception;
|
use WebGUI::Exception;
|
||||||
use Tie::IxHash;
|
use Tie::IxHash;
|
||||||
|
|
||||||
use base qw/WebGUI::Shop::PayDriver/;
|
use Moose;
|
||||||
|
use WebGUI::Definition::Shop;
|
||||||
|
extends 'WebGUI::Shop::PayDriver';
|
||||||
|
|
||||||
|
define pluginName => [qw/label PayDriver_Cash/];
|
||||||
|
property summaryTemplateId => (
|
||||||
|
fieldType => 'template',
|
||||||
|
label => ['summary template', 'PayDriver_Cash'],
|
||||||
|
hoverHelp => ['summary template help', 'PayDriver_Cash'],
|
||||||
|
namespace => 'Shop/Credentials',
|
||||||
|
default => '30h5rHxzE_Q0CyI3Gg7EJw',
|
||||||
|
);
|
||||||
|
|
||||||
#-------------------------------------------------------------------
|
#-------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
@ -42,40 +53,6 @@ sub canCheckoutCart {
|
||||||
|
|
||||||
#-------------------------------------------------------------------
|
#-------------------------------------------------------------------
|
||||||
|
|
||||||
=head2 definition ( session, definition )
|
|
||||||
|
|
||||||
See WebGUI::Shop::PayDriver->definition.
|
|
||||||
|
|
||||||
=cut
|
|
||||||
|
|
||||||
sub definition {
|
|
||||||
my $class = shift;
|
|
||||||
my $session = shift;
|
|
||||||
my $definition = shift;
|
|
||||||
|
|
||||||
my $i18n = WebGUI::International->new($session, 'PayDriver_Cash');
|
|
||||||
|
|
||||||
tie my %fields, 'Tie::IxHash';
|
|
||||||
%fields = (
|
|
||||||
summaryTemplateId => {
|
|
||||||
fieldType => 'template',
|
|
||||||
label => $i18n->get('summary template'),
|
|
||||||
hoverHelp => $i18n->get('summary template help'),
|
|
||||||
namespace => 'Shop/Credentials',
|
|
||||||
defaultValue => '30h5rHxzE_Q0CyI3Gg7EJw',
|
|
||||||
},
|
|
||||||
);
|
|
||||||
|
|
||||||
push @{ $definition }, {
|
|
||||||
name => $i18n->get('label'),
|
|
||||||
properties => \%fields,
|
|
||||||
};
|
|
||||||
|
|
||||||
return $class->SUPER::definition($session, $definition);
|
|
||||||
}
|
|
||||||
|
|
||||||
#-------------------------------------------------------------------
|
|
||||||
|
|
||||||
=head2 getButton ( )
|
=head2 getButton ( )
|
||||||
|
|
||||||
Return a form with button to finalize checkout from the Shop.
|
Return a form with button to finalize checkout from the Shop.
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue