From 16238478088dac7eb20ffc311f0f5f5cef648012 Mon Sep 17 00:00:00 2001
From: Frank Dillon <frank@plainblack.com>
Date: Fri, 20 Jul 2007 20:16:07 +0000
Subject: [PATCH] Adding captcha to collaboration system

---
 .../templates-7.4.0/PBtmpl0000000000000029.tmpl      |  6 ++++++
 docs/upgrades/upgrade_7.3.21-7.4.0.pl                | 12 ++++++++++++
 2 files changed, 18 insertions(+)

diff --git a/docs/upgrades/templates-7.4.0/PBtmpl0000000000000029.tmpl b/docs/upgrades/templates-7.4.0/PBtmpl0000000000000029.tmpl
index 43b07672e..97ff12d13 100644
--- a/docs/upgrades/templates-7.4.0/PBtmpl0000000000000029.tmpl
+++ b/docs/upgrades/templates-7.4.0/PBtmpl0000000000000029.tmpl
@@ -62,6 +62,12 @@
 				</tr>
 			</tmpl_if>
 		</tmpl_if>
+        <tmpl_if useCaptcha>
+            <tr>
+                <td><tmpl_var captcha_label></td>
+                <td><tmpl_var captcha_form></td>
+            </tr>
+        </tmpl_if>
 	</tmpl_if>
 	<tr>
 		<td></td>
diff --git a/docs/upgrades/upgrade_7.3.21-7.4.0.pl b/docs/upgrades/upgrade_7.3.21-7.4.0.pl
index acd3881d7..d1fe76533 100644
--- a/docs/upgrades/upgrade_7.3.21-7.4.0.pl
+++ b/docs/upgrades/upgrade_7.3.21-7.4.0.pl
@@ -32,11 +32,23 @@ addPrivateMessaging($session);
 addNewsletter($session);
 addHttpProxyUrlPatternFilter($session);
 addCanStartThreadToCS($session);
+addPostCaptchaToCS($session);
 
 finish($session); # this line required
 
 #-------------------------------------------------
 
+sub addPostCaptchaToCS {
+    my $session = shift;
+    print "\tAdding useCaptcha setting to Collaboration Systems..." unless ($quiet);
+    
+    $session->db->write("ALTER TABLE Collaboration add column useCaptcha integer NOT NULL default 0");   
+    
+    print "OK\n";
+    return;
+}
+#-------------------------------------------------
+
 sub addCanStartThreadToCS {
     my $session = shift;