--- loncom/lonnet/perl/lonnet.pm	2009/08/22 18:53:41	1.1020
+++ loncom/lonnet/perl/lonnet.pm	2009/08/23 03:57:20	1.1022
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1020 2009/08/22 18:53:41 raeburn Exp $
+# $Id: lonnet.pm,v 1.1022 2009/08/23 03:57:20 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5774,6 +5774,13 @@ sub auto_instcode_format {
 		push(@homeservers,$tryserver);
 	    }
         }
+    } elsif ($caller eq 'requests') {
+        if ($codedom =~ /^$match_domain$/) {
+            my $chome = &domain($codedom,'primary');
+            unless ($chome eq 'no_host') {
+                push(@homeservers,$chome);
+            }
+        }
     } else {
         push(@homeservers,&homeserver($caller,$codedom));
     }
@@ -5898,8 +5905,9 @@ sub auto_courserequest_validation {
         $homeserver = &domain($dom,'primary');
     }
     unless ($homeserver eq 'no_host') {  
+          
         $response=&unescape(&reply('autocrsreqvalidation:'.$dom.':'.&escape($owner).
-                                    ':'.&escape($crstype).':'/&escape($inststatuslist).
+                                    ':'.&escape($crstype).':'.&escape($inststatuslist).
                                     ':'.&escape($instcode).':'.&escape($instseclist),
                                     $homeserver));
     }