[Catalyst-commits] r7520 - / trunk/Catalyst-Controller-reCAPTCHA trunk/Catalyst-Controller-reCAPTCHA/lib/Catalyst/Controller

zarquon at dev.catalyst.perl.org zarquon at dev.catalyst.perl.org
Sat Mar 22 21:29:20 GMT 2008


Author: zarquon
Date: 2008-03-22 21:29:20 +0000 (Sat, 22 Mar 2008)
New Revision: 7520

Modified:
   /
   trunk/Catalyst-Controller-reCAPTCHA/Changes
   trunk/Catalyst-Controller-reCAPTCHA/lib/Catalyst/Controller/reCAPTCHA.pm
Log:
 r12812 at zaphod:  kd | 2008-03-23 08:28:09 +1100
 fixed absence of $c->stash->{recaptcha_ok}



Property changes on: 
___________________________________________________________________
Name: svk:merge
   - 1b129c88-ebf4-0310-add9-f09427935aba:/local/catalyst:4278
1c72fc7c-9ce4-42af-bf25-3bfe470ff1e8:/local/Catalyst:12810
3b9770f9-e80c-0410-a7de-cd203d167417:/local/catalyst:3514
dd8ad9ea-0304-0410-a433-df5f223e7bc0:/local/Catalyst:6909
   + 1b129c88-ebf4-0310-add9-f09427935aba:/local/catalyst:4278
1c72fc7c-9ce4-42af-bf25-3bfe470ff1e8:/local/Catalyst:12812
3b9770f9-e80c-0410-a7de-cd203d167417:/local/catalyst:3514
dd8ad9ea-0304-0410-a433-df5f223e7bc0:/local/Catalyst:6909

Modified: trunk/Catalyst-Controller-reCAPTCHA/Changes
===================================================================
--- trunk/Catalyst-Controller-reCAPTCHA/Changes	2008-03-22 07:13:04 UTC (rev 7519)
+++ trunk/Catalyst-Controller-reCAPTCHA/Changes	2008-03-22 21:29:20 UTC (rev 7520)
@@ -1,5 +1,7 @@
 # This file documents the revision history for the perl extension Catalyst::Controller::reCAPTCHA
 
+0.31
+        - Hardcoded $c->stash->{recaptcha_ok} back into application.
 0.30001 
         - Don't release modules late at night.
 0.3

Modified: trunk/Catalyst-Controller-reCAPTCHA/lib/Catalyst/Controller/reCAPTCHA.pm
===================================================================
--- trunk/Catalyst-Controller-reCAPTCHA/lib/Catalyst/Controller/reCAPTCHA.pm	2008-03-22 07:13:04 UTC (rev 7519)
+++ trunk/Catalyst-Controller-reCAPTCHA/lib/Catalyst/Controller/reCAPTCHA.pm	2008-03-22 21:29:20 UTC (rev 7520)
@@ -4,7 +4,7 @@
 use base 'Catalyst::Controller';
 use Captcha::reCAPTCHA;
 use Carp 'croak';
-our $VERSION = '0.30001';
+our $VERSION = '0.31';
 
 
 sub captcha_get : Private {
@@ -41,7 +41,8 @@
     $c->stash->{recaptcha_error} = $result->{error} || 'Unknown error'
         unless $result->{is_valid};
 
-    return ($result->{is_valid} = $result->{is_valid});
+    $c->stash->{recaptcha_ok} = 1 if $result->{is_valid};
+    return ($result->{is_valid} == $result->{is_valid});
 }
 
 




More information about the Catalyst-commits mailing list