From 807a5ad09e300001ef34393aba98d023f8194235 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 24 Nov 2008 00:23:17 +0000
Subject: [PATCH] forward port captcha width changes for the new, fat font

---
 docs/changelog/7.x.x.txt    | 1 +
 lib/WebGUI/Storage/Image.pm | 4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index 4e9d642ce..e5004da29 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -51,6 +51,7 @@
  - fixed #8827: Slider JS bug for non-numeric values (Patrick Donelan, SDH Consulting)
  - fixed #8925: Collaboration System: Label missing
  - fixed #8908: No Post Captcha in Default Submission Form
+ - fixed #9138: Fat fonts break WebGUI captchas
 
 7.6.3
  - improved performance of file uploads
diff --git a/lib/WebGUI/Storage/Image.pm b/lib/WebGUI/Storage/Image.pm
index ca1c18b9e..c0ee7e4f9 100644
--- a/lib/WebGUI/Storage/Image.pm
+++ b/lib/WebGUI/Storage/Image.pm
@@ -65,7 +65,7 @@ These methods are available from this class:
 
 =head2 addFileFromCaptcha ( )
 
-Generates a captcha image (105px x 26px) and returns the filename and challenge string (6 random characters). For more information about captcha, consult the Wikipedia here: http://en.wikipedia.org/wiki/Captcha
+Generates a captcha image (125px x 26px) and returns the filename and challenge string (6 random characters). For more information about captcha, consult the Wikipedia here: http://en.wikipedia.org/wiki/Captcha
 
 =cut 
 
@@ -76,7 +76,7 @@ sub addFileFromCaptcha {
 	$challenge.= ('A'..'Z')[rand(26)] foreach (1..6);
 	my $filename = "captcha.".$self->session->id->generate().".gif";
 	my $image = $graphicsPackage->new();
-	$error = $image->Set(size=>'105x26');
+	$error = $image->Set(size=>'125x26');
 	if($error) {
         $self->session->errorHandler->warn("Error setting captcha image size: $error");
     }