--- loncom/lonnet/perl/lonnet.pm	2006/10/13 04:23:15	1.791
+++ loncom/lonnet/perl/lonnet.pm	2006/10/16 19:18:15	1.792
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.791 2006/10/13 04:23:15 raeburn Exp $
+# $Id: lonnet.pm,v 1.792 2006/10/16 19:18:15 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4257,6 +4257,40 @@ sub auto_instcode_format {
     }
 }
 
+sub auto_instcode_defaults {
+    my ($domain,$returnhash,$code_order) = @_;
+    my @homeservers;
+    foreach my $tryserver (keys %libserv) {
+        if ($hostdom{$tryserver} eq $domain) {
+            if (!grep/^\Q$tryserver\E$/,@homeservers) {
+                push(@homeservers,$tryserver);
+            }
+        }
+    }
+    my $ok_response = 0;
+    my $response;
+    while (@homeservers > 0 && $ok_response == 0) {
+        my $server = shift(@homeservers);
+        $response=&reply('autoinstcodedefaults:'.$domain,$server);
+        if ($response !~ /(con_lost|error|no_such_host|refused)/) {
+            foreach (split(/\&/,$response)) {
+                my ($name,$value)=split(/\=/,$_);
+                if ($name eq 'code_order') {
+                    @{$code_order} = split(/\&/,&unescape($value));
+                } else {
+                    $$returnhash{&unescape($name)}=&unescape($value);
+                }
+            }
+        }
+        $ok_response = 1;
+    }
+    if ($ok_response) {
+        return 'ok';
+    } else {
+        return $response;
+    }
+} 
+
 sub auto_validate_class_sec {
     my ($cdom,$cnum,$owner,$inst_class) = @_;
     my $homeserver = &homeserver($cnum,$cdom);