[LON-CAPA-cvs] cvs: loncom /cgi enrollqueued.pl

[raeburn]

raeburn		Mon Apr 14 01:45:49 2014 EDT

  Modified files:              
    /loncom/cgi	enrollqueued.pl 
  Log:
  - Fix incomplete sentence in documentation
  - Fix some typos.
  
  
Index: loncom/cgi/enrollqueued.pl
diff -u loncom/cgi/enrollqueued.pl:1.2 loncom/cgi/enrollqueued.pl:1.3
--- loncom/cgi/enrollqueued.pl:1.2	Sat Apr  5 22:42:33 2014
+++ loncom/cgi/enrollqueued.pl	Mon Apr 14 01:45:49 2014
@@ -3,7 +3,7 @@
 # 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 @@
 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 @@
                             }
                         }
                         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 @@
     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'}) {