loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.169, 2003/03/28 18:29:49	version 1.170, 2003/04/01 19:28:05
Line 1283 sub new {	Line 1283 sub new {
if (!(tie(%parmhash, 'GDBM_File', $self->{PARM_HASH_FILE},	if (!(tie(%parmhash, 'GDBM_File', $self->{PARM_HASH_FILE},
&GDBM_READER(), 0640)))	&GDBM_READER(), 0640)))
{	{
untie $self->{PARM_HASH};	untie %{$self->{PARM_HASH}};
return undef;	return undef;
}	}

Line 1434 sub getIterator {	Line 1434 sub getIterator {
# unties the hash when done	# unties the hash when done
sub untieHashes {	sub untieHashes {
my $self = shift;	my $self = shift;
untie $self->{NAV_HASH};	untie %{$self->{NAV_HASH}};
untie $self->{PARM_HASH};	untie %{$self->{PARM_HASH}};
}	}

# Private method: Does the given resource (as a symb string) have	# Private method: Does the given resource (as a symb string) have