--- loncom/interface/loncommon.pm	2002/08/08 19:27:35	1.52
+++ loncom/interface/loncommon.pm	2002/08/22 21:20:23	1.53.2.1
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.52 2002/08/08 19:27:35 matthew Exp $
+# $Id: loncommon.pm,v 1.53.2.1 2002/08/22 21:20:23 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -755,6 +755,8 @@ sub authform_kerberos{
 Kerberos authenticated with domain
 <input type="text" size="10" name="krbarg" value=""
        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
     return $result;
 }
@@ -844,7 +846,7 @@ sub initialize_keywords {
     #   Set up the hash as a database
     my %thesaurus_db;
     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 ".
                                  $thesaurus_db_file);
         return 0;
@@ -957,7 +959,7 @@ sub get_related_words {
         return ();
     }
     if (! tie(%thesaurus_db,'GDBM_File',
-              $thesaurus_db_file,&GDBM_READER,0640)){
+              $thesaurus_db_file,&GDBM_READER(),0640)){
         return ();
     } 
     my @Words=();