Refill the form with the last address on lookup failure.

cpan-testers · Feb 21, 2010 · 32ba7dc · 32ba7dc
1 parent 4eb35fd
commit 32ba7dc
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/lib/Metabase/ClaimID/Web/Templates/HTML.pm b/lib/Metabase/ClaimID/Web/Templates/HTML.pm
@@ -1,5 +1,6 @@
 package Metabase::ClaimID::Web::Templates::HTML;
 
+use 5.010;
 use Template::Declare::Tags;
 use namespace::autoclean;
 
@@ -64,7 +65,7 @@ private template form => sub {
                 type  => 'text',
                 name  => 'email',
                 id    => 'email',
-                value => 'Your Email Address',
+                value => $vars->{address} // 'Your Email Address',
             };
         };
 

diff --git a/t/web.t b/t/web.t
@@ -25,6 +25,7 @@ use Catalyst::Test 'Metabase::ClaimID::Web';
     my $res = request(POST('/', [email => 'someone@nonexistanthost']));
     ok(!$res->is_success, 'POST for nonexistant entry');
     like($res->content, qr/no entry found/i, 'reports error');
+    like($res->content, qr/value="someone\@nonexistanthost"/, 'form has previous value again');
 }
 
 {