capcha control now has reCAPTCHA mode

This commit is contained in:
Graham Knop 2009-02-10 21:41:19 +00:00
parent 5d8ede926c
commit b088299eb0
6 changed files with 127 additions and 9 deletions

View file

@ -35,6 +35,7 @@ removeBrokenWorkflowInstances($session);
undotBinaryExtensions($session);
removeProcessRecurringPaymentsFromConfig($session);
noSessionSwitch($session);
addReCaptchaSettings($session);
fixDottedAssetIds($session); ##This one should run last
finish($session); # this line required
@ -59,6 +60,27 @@ sub removeProcessRecurringPaymentsFromConfig {
print "Done.\n" unless $quiet;
}
#----------------------------------------------------------------------------
sub addReCaptchaSettings {
my $session = shift;
print "\tAdding settings for reCAPTCHA..." unless $quiet;
my $currentSetting;
$currentSetting = $session->setting->get('useRecaptcha');
$session->setting->remove('useRecaptcha');
$session->setting->add('useRecaptcha', $currentSetting);
$currentSetting = $session->setting->get('recaptchaPublicKey');
$session->setting->remove('recaptchaPublicKey');
$session->setting->add('recaptchaPublicKey', $currentSetting);
$currentSetting = $session->setting->get('recaptchaPrivateKey');
$session->setting->remove('recaptchaPrivateKey');
$session->setting->add('recaptchaPrivateKey', $currentSetting);
print "Done.\n" unless $quiet;
}
#----------------------------------------------------------------------------
sub hideGalleryAlbums {
my $session = shift;