[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

[raeburn]

raeburn		Sun Aug 23 03:57:20 2009 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - &auto_instcode_format() uses the primary library server to convert an instcode 
    associated with a pending course request into its constitutent parts (in case of modification).  
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1021 loncom/lonnet/perl/lonnet.pm:1.1022
--- loncom/lonnet/perl/lonnet.pm:1.1021	Sat Aug 22 21:11:19 2009
+++ loncom/lonnet/perl/lonnet.pm	Sun Aug 23 03:57:20 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1021 2009/08/22 21:11:19 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 @@
 		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));
     }