added CAPTCHA to DataForm

This commit is contained in:
Doug Bell 2008-04-27 21:28:18 +00:00
parent db5a948c6b
commit 614da0d2ab
7 changed files with 247 additions and 90 deletions

View file

@ -41,6 +41,8 @@
- Fixed all Test::WWW::Mechanize tests and updated the skeleton. Should be
usable now.
- fixed: Registration form now saves all progress if there is an error
- added: DataForm now can use CAPTCHA for Visitors
- Spent some time cleaning up DataForm, but it could use more.
7.5.10

View file

@ -43,9 +43,23 @@ convertTransactionLog($session);
upgradeEMS($session);
migrateOldProduct($session);
mergeProductsWithCommerce($session);
addCaptchaToDataForm( $session );
finish($session); # this line required
#----------------------------------------------------------------------------
# Add the useCaptcha field to DataForm assets
sub addCaptchaToDataForm {
my $session = shift;
print "\tAdding CAPTCHA to DataForm... " unless $quiet;
$session->db->write(
q{ ALTER TABLE DataForm ADD COLUMN useCaptcha INT(1) DEFAULT 0 }
);
print "DONE!\n" unless $quiet;
}
#----------------------------------------------------------------------------
sub addReferralHandler {
my $session = shift;