loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.52, 2002/08/08 19:27:35	version 1.53.2.1, 2002/08/22 21:20:23
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=();