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

raeburn lon-capa-cvs-allow@mail.lon-capa.org
Mon, 14 Jul 2008 10:17:43 -0000


raeburn		Mon Jul 14 06:17:43 2008 EDT

  Modified files:              
    /loncom/interface	createaccount.pm 
  Log:
  - already declared.
  
  
Index: loncom/interface/createaccount.pm
diff -u loncom/interface/createaccount.pm:1.20 loncom/interface/createaccount.pm:1.21
--- loncom/interface/createaccount.pm:1.20	Mon Jul 14 04:26:57 2008
+++ loncom/interface/createaccount.pm	Mon Jul 14 06:17:42 2008
@@ -3,7 +3,7 @@
 # institutional log-in ID (institutional authentication required - localauth
 #  or kerberos) or an e-mail address.
 #
-# $Id: createaccount.pm,v 1.20 2008/07/14 08:26:57 raeburn Exp $
+# $Id: createaccount.pm,v 1.21 2008/07/14 10:17:42 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -431,7 +431,7 @@
 sub process_email_request {
     my ($useremail,$domain,$domdesc,$contact_name,$contact_email,$cancreate,
         $server,$settings,$courseid) = @_;
-    my $useremail = $env{'form.useremail'};
+    $useremail = $env{'form.useremail'};
     my $output;
     if (ref($cancreate) eq 'ARRAY') {
         if (!grep(/^email$/,@{$cancreate})) {