Adding captcha to collaboration system

This commit is contained in:
Frank Dillon 2007-07-20 20:16:07 +00:00
parent dbc59d2e44
commit 1623847808
2 changed files with 18 additions and 0 deletions

View file

@ -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>

View file

@ -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;