fixed: ITransact error message now shows link to go back

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

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 $i18n    = WebGUI::International->new($self->session, "PayDriver");
-    my $output = q{<h1>}.$i18n->get('error processing payment').q{</h1><p>}.$i18n->get('error processing payment message').q{</p><p>}.$transaction->get('statusMessage').{</p>};
+    my $output  = q{<h1>} . $i18n->get('error processing payment') . q{</h1>}
+                . q{<p>} . $i18n->get('error processing payment message') . q{</p>}
+                . q{<p>} . $transaction->get('statusMessage') . q{</p>}
+                . q{<p><a href="?shop=cart;method=checkout">} . $i18n->get( 'try again' ) . q{</a></p>}
+                ;
     return $self->session->style->userStyle($output);
 }
 

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;