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

Recurring payment stuff fixes, forgot ITransact.pm in last commit.

Browse source
This commit is contained in:
Martin Kamerbeek 2008-05-26 21:31:48 +00:00
parent 74b3d3def6
commit dc30ecccbe
3 changed files with 109 additions and 43 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lib/WebGUI/Shop/PayDriver.pm
View file

@ -519,12 +519,19 @@ A reference to a WebGUI::Shop::Address object that should be attached as payment
sub processTransaction {
my ($self, $paymentAddress) = @_;
my $cart = $self->getCart;
my $transaction = WebGUI::Shop::Transaction->create($self->session,{
paymentMethod => $self,
paymentAddress => $paymentAddress,
cart => $cart,
});
# Setup tranasction properties
my $transactionProperties;
$transactionProperties->{ paymentMethod } = $self;
$transactionProperties->{ cart } = $cart;
$transactionProperties->{ paymentAddress } = $paymentAddress if defined $paymentAddress;
# Create a transaction...
my $transaction = WebGUI::Shop::Transaction->create( $self->session, $transactionProperties );
# And handle the payment for it
my ($success, $transactionCode, $statusCode, $statusMessage) = $self->processPayment( $transaction );
if ($success) {
$transaction->completePurchase($transactionCode, $statusCode, $statusMessage);