[BACK]Return to loncommon.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.51 and 1.53.2.1

version 1.51, 2002/08/08 13:43:04 version 1.53.2.1, 2002/08/22 21:20:23
Line 558  sub select_dom_form { Line 558  sub select_dom_form {
   
 =pod  =pod
   
 =item get_home_servers($domain)  =item get_library_servers($domain)
   
 Returns a hash which contains keys like '103l3' and values like   Returns a hash which contains keys like '103l3' and values like 
 'kirk.lite.msu.edu'.  All of the keys will be for machines in the  'kirk.lite.msu.edu'.  All of the keys will be for machines in the
Line 567  given $domain. Line 567  given $domain.
 =cut  =cut
   
 #-------------------------------------------  #-------------------------------------------
 sub get_home_servers {  sub get_library_servers {
     my $domain = shift;      my $domain = shift;
     my %home_servers;      my %library_servers;
     foreach (keys(%Apache::lonnet::libserv)) {      foreach (keys(%Apache::lonnet::libserv)) {
         if ($Apache::lonnet::hostdom{$_} eq $domain) {          if ($Apache::lonnet::hostdom{$_} eq $domain) {
             $home_servers{$_} = $Apache::lonnet::hostname{$_};              $library_servers{$_} = $Apache::lonnet::hostname{$_};
         }          }
     }      }
     return %home_servers;      return %library_servers;
 }  }
   
 #-------------------------------------------  #-------------------------------------------
Line 592  returns a string which contains an <opti Line 592  returns a string which contains an <opti
 #-------------------------------------------  #-------------------------------------------
 sub home_server_option_list {  sub home_server_option_list {
     my $domain = shift;      my $domain = shift;
     my %servers = &get_home_servers($domain);      my %servers = &get_library_servers($domain);
     my $result = '';      my $result = '';
     foreach (sort keys(%servers)) {      foreach (sort keys(%servers)) {
         $result.=          $result.=
Line 755  sub authform_kerberos{ Line 755  sub authform_kerberos{
 Kerberos authenticated with domain  Kerberos authenticated with domain
 <input type="text" size="10" name="krbarg" value=""  <input type="text" size="10" name="krbarg" value=""
        onchange="javascript:changed_text('krb',$in{'formname'});">         onchange="javascript:changed_text('krb',$in{'formname'});">
    <input type="radio" name="krbver" value="4" checked="on" />Version 4
    <input type="radio" name="krbver" value="5" />Version 5
 END  END
     return $result;      return $result;
 }  }
Line 844  sub initialize_keywords { Line 846  sub initialize_keywords {
     #   Set up the hash as a database      #   Set up the hash as a database
     my %thesaurus_db;      my %thesaurus_db;
     if (! tie(%thesaurus_db,'GDBM_File',      if (! tie(%thesaurus_db,'GDBM_File',
               $thesaurus_db_file,&GDBM_READER,0640)){                $thesaurus_db_file,&GDBM_READER(),0640)){
         &Apache::lonnet::logthis("Could not tie \%thesaurus_db to ".          &Apache::lonnet::logthis("Could not tie \%thesaurus_db to ".
                                  $thesaurus_db_file);                                   $thesaurus_db_file);
         return 0;          return 0;
Line 957  sub get_related_words { Line 959  sub get_related_words {
         return ();          return ();
     }      }
     if (! tie(%thesaurus_db,'GDBM_File',      if (! tie(%thesaurus_db,'GDBM_File',
               $thesaurus_db_file,&GDBM_READER,0640)){                $thesaurus_db_file,&GDBM_READER(),0640)){
         return ();          return ();
     }       } 
     my @Words=();      my @Words=();
Removed from v.1.51  
changed lines
  Added in v.1.53.2.1

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>