|
version 1.20, 2008/07/14 08:26:57
|
version 1.21, 2008/07/14 10:17:42
|
|
Line 431 sub login_box {
|
Line 431 sub login_box {
|
| sub process_email_request { |
sub process_email_request { |
| my ($useremail,$domain,$domdesc,$contact_name,$contact_email,$cancreate, |
my ($useremail,$domain,$domdesc,$contact_name,$contact_email,$cancreate, |
| $server,$settings,$courseid) = @_; |
$server,$settings,$courseid) = @_; |
| my $useremail = $env{'form.useremail'}; |
$useremail = $env{'form.useremail'}; |
| my $output; |
my $output; |
| if (ref($cancreate) eq 'ARRAY') { |
if (ref($cancreate) eq 'ARRAY') { |
| if (!grep(/^email$/,@{$cancreate})) { |
if (!grep(/^email$/,@{$cancreate})) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to createaccount.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface