--- loncom/interface/loncommon.pm	2002/04/22 15:26:46	1.32
+++ loncom/interface/loncommon.pm	2002/04/22 18:04:19	1.33
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.32 2002/04/22 15:26:46 matthew Exp $
+# $Id: loncommon.pm,v 1.33 2002/04/22 18:04:19 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -146,6 +146,33 @@ BEGIN {
     
 }
 # ============================================================= END BEGIN BLOCK
+###############################################################
+##        Home server <option> list generating code          ##
+###############################################################
+sub get_home_servers {
+    my $domain = shift;
+    my %home_servers;
+    foreach (keys(%Apache::lonnet::libserv)) {
+        if ($Apache::lonnet::hostdom{$_} eq $domain) {
+            $home_servers{$_} = $Apache::lonnet::hostname{$_};
+        }
+    }
+    return %home_servers;
+}
+
+sub home_server_option_list {
+    my $domain = shift;
+    my %servers = &get_home_servers($domain);
+    my $result = '';
+    foreach (sort keys(%servers)) {
+        $result.=
+            '<option value="'.$_.'">'.$_.' '.$servers{$_}."</option>\n";
+    }
+    return $result;
+}
+###############################################################
+##    End of home server <option> list generating code       ##
+###############################################################
 
 ###############################################################
 ##    Authentication changing form generation subroutines    ##