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.171, 2003/04/04 18:13:44
Line 848 sub render {	Line 848 sub render {
if (!$ENV{'form.folderManip'} && !defined($args->{'iterator'})) {	if (!$ENV{'form.folderManip'} && !defined($args->{'iterator'})) {
# Step 1: Check to see if we have a navmap	# Step 1: Check to see if we have a navmap
if (!defined($navmap)) {	if (!defined($navmap)) {
$navmap = Apache::lonnavmaps::navmap->new($r,	$navmap = Apache::lonnavmaps::navmap->new(
$ENV{"request.course.fn"}.".db",	$ENV{"request.course.fn"}.".db",
$ENV{"request.course.fn"}."_parms.db", 1, 1);	$ENV{"request.course.fn"}."_parms.db", 1, 1);
$mustCloseNavMap = 1;	$mustCloseNavMap = 1;
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