loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.32, 2002/04/22 15:26:46
+version 1.33, 2002/04/22 18:04:19
  Line 146  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    ##