--- loncom/cgi/enrollqueued.pl 2014/04/05 22:42:33 1.2 +++ loncom/cgi/enrollqueued.pl 2014/04/14 01:45:49 1.3 @@ -3,7 +3,7 @@ $|=1; # Script to complete processing of self-enrollment requests # queued pending validation, when validated. # -# $Id: enrollqueued.pl,v 1.2 2014/04/05 22:42:33 raeburn Exp $ +# $Id: enrollqueued.pl,v 1.3 2014/04/14 01:45:49 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -96,10 +96,11 @@ Inputs: None Returns: Nothing Description: Main program. Determines if requesting IP is the IP - of the server enrollqueued.pl. Side effects - prints content (with text/plain HTTP header). - Content is URL self-enrolling user should user - to access the course. + of the of the validation server (as specified in + the domain configuration for self-enrollment). + Side effects are to print content (with text/plain + HTTP header). Content is the URL self-enrolling user + should use to access the course. =cut @@ -198,7 +199,7 @@ sub main { } } if ($field eq 'domain') { - if ($query->param($field) =~ /^LONCAPA::match_username$/) { + if ($query->param($field) =~ /^LONCAPA::match_domain$/) { $params{$field} = $query->param($field); } } @@ -275,7 +276,7 @@ sub process_enrollment { my $udom = $params->{'domain'}; my $token = $params->{'token'}; my $uhome = &Apache::lonnet::homeserver($uname,$udom); - return if ($uhome eq 'nohost'); + return if ($uhome eq 'no_host'); my %courseinfo; if ($cid eq '') { if ($params->{'uniquecode'}) {