From 8c2c073a26dc01da82d1da1ac0bbb68673278348 Mon Sep 17 00:00:00 2001
From: Doug Bell <doug@plainblack.com>
Date: Fri, 8 Aug 2008 17:29:56 +0000
Subject: [PATCH] fixed: ITransact error message now shows link to go back

---
 docs/changelog/7.x.x.txt             | 2 ++
 lib/WebGUI/Shop/PayDriver.pm         | 8 ++++++--
 lib/WebGUI/i18n/English/PayDriver.pm | 5 +++++
 3 files changed, 13 insertions(+), 2 deletions(-)

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{<h1>}.$i18n->get('error processing payment').q{</h1><p>}.$i18n->get('error processing payment message').q{</p><p>}.$transaction->get('statusMessage').{</p>};
+    my $i18n    = WebGUI::International->new($self->session, "PayDriver");
+    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);
 }
 
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;