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

Update Cash for Moose.

Browse source
This commit is contained in:
Colin Kuskie 2010-09-30 16:27:28 -07:00
parent 2269c4cd51
commit a2103e8036
1 changed files with 12 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

47
lib/WebGUI/Shop/PayDriver/Cash.pm
View file

@ -20,7 +20,18 @@ use WebGUI::Shop::PayDriver;
use WebGUI::Exception;
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 ( )
Return a form with button to finalize checkout from the Shop.