[LON-CAPA-cvs] cvs: loncom(loncapaMITrelate_1) /interface createaccount.pm

[raeburn]

raeburn		Mon Feb 13 17:50:36 2012 EDT

  Modified files:              (Branch: loncapaMITrelate_1)
    /loncom/interface	createaccount.pm 
  Log:
  - Customization for MITrelate
    - $r->dir_config() to get reCAPTCHA perlvars.
    - Missing ;
  
  
Index: loncom/interface/createaccount.pm
diff -u loncom/interface/createaccount.pm:1.40.2.5.2.6 loncom/interface/createaccount.pm:1.40.2.5.2.7
--- loncom/interface/createaccount.pm:1.40.2.5.2.6	Mon Feb 13 17:22:56 2012
+++ loncom/interface/createaccount.pm	Mon Feb 13 17:50:35 2012
@@ -3,7 +3,7 @@
 # institutional log-in ID (institutional authentication required - localauth
 #  or kerberos) or an e-mail address.
 #
-# $Id: createaccount.pm,v 1.40.2.5.2.6 2012/02/13 17:22:56 raeburn Exp $
+# $Id: createaccount.pm,v 1.40.2.5.2.7 2012/02/13 17:50:35 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -57,8 +57,8 @@
 
     my $sso_username = $r->subprocess_env->get('REDIRECT_SSOUserUnknown');
     my $sso_domain = $r->subprocess_env->get('REDIRECT_SSOUserDomain');
-    my $privkey = $r->subprocess_env->get('reCAPTCHA_PRIVATE');
-    my $pubkey  = $r->subprocess_env->get('reCAPTCHA_PUBLIC')
+    my $privkey = $r->dir_config('reCAPTCHA_PRIVATE');
+    my $pubkey  = $r->dir_config('reCAPTCHA_PUBLIC');
 
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['token','courseid']);
     &Apache::lonacc::get_posted_cgi($r);