[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})) {