[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm
raeburn
raeburn@source.lon-capa.org
Sun, 23 Aug 2009 03:57:20 -0000
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));
}