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, 2002/08/12 18:21:42
Line 844 sub initialize_keywords {	Line 844 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 957 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=();