diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt index 25b07a61c..36d8620ff 100644 --- a/docs/changelog/7.x.x.txt +++ b/docs/changelog/7.x.x.txt @@ -4,6 +4,8 @@ - fixed: Thingy: Setting the size of a field has no effect - fixed: Form/* now all use getOriginalValue (split off from getDefaultValue) which resolves the Layout bug not being able to uncheck all hidden assets. Tests were updated, but need are still lacking and need a major overhaul. + - fixed: ITransact error message now shows a link to go back to checkout + 7.5.19 - fixed: paginator doesn't show correct number of page links with a limit applied - fixed: user profile defaults can contain arbitrary perl code diff --git a/lib/WebGUI/Shop/PayDriver.pm b/lib/WebGUI/Shop/PayDriver.pm index 73d5492f3..c186dc83c 100644 --- a/lib/WebGUI/Shop/PayDriver.pm +++ b/lib/WebGUI/Shop/PayDriver.pm @@ -277,8 +277,12 @@ The default error message that gets displayed when a payment is rejected. sub displayPaymentError { my ($self, $transaction) = @_; - my $i18n = WebGUI::International->new($self->session, "PayDriver"); - my $output = q{
}.$i18n->get('error processing payment message').q{
}.$transaction->get('statusMessage').{
}; + my $i18n = WebGUI::International->new($self->session, "PayDriver"); + my $output = q{} . $i18n->get('error processing payment message') . q{
} + . q{} . $transaction->get('statusMessage') . q{
} + . q{} + ; return $self->session->style->userStyle($output); } diff --git a/lib/WebGUI/i18n/English/PayDriver.pm b/lib/WebGUI/i18n/English/PayDriver.pm index 527f4feef..bda767ae0 100644 --- a/lib/WebGUI/i18n/English/PayDriver.pm +++ b/lib/WebGUI/i18n/English/PayDriver.pm @@ -112,6 +112,11 @@ our $I18N = { context => q|Generic label for credit cards to be used through the pay drivers|, }, + 'try again' => { + message => q{Go back to try again}, + lastUpdated => 0, + context => q{Link to begin checkout again after failure}, + }, }; 1;