From 49ec9f65f4f999b03344fcf04096d4e6d48ca8e2 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 18 Nov 2009 14:54:16 -0800
Subject: [PATCH] Use https method in SSL mode.  Fixes bug #11249

---
 docs/changelog/7.x.x.txt   | 1 +
 lib/WebGUI/Form/Captcha.pm | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index a977fb933..2884baf73 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -1,6 +1,7 @@
 7.8.6
  - fixed #11250: i18n Asset_EMSSubmissionForm::delete created items label help
  - fixed #11251: perload.perl tries to load t/lib/WebGUI/Test.pm
+ - fixed #11249: Recaptcha https bug
 
 7.8.5
  - added the EMS submission subsystem
diff --git a/lib/WebGUI/Form/Captcha.pm b/lib/WebGUI/Form/Captcha.pm
index defd3ec50..21fab775a 100644
--- a/lib/WebGUI/Form/Captcha.pm
+++ b/lib/WebGUI/Form/Captcha.pm
@@ -162,7 +162,7 @@ sub toHtml {
         my $pubKey = $self->session->setting->get('recaptchaPublicKey');
         my $server = "http://api.recaptcha.net";
         if ($env->sslRequest) {
-            $server = "http://api-secure.recaptcha.net";
+            $server = "https://api-secure.recaptcha.net";
         }
         return
             '<script type="text/javascript" src="' . $server . '/challenge?k=' . $pubKey . '"></script>'