loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.168, 2003/03/28 18:14:59	version 1.170, 2003/04/01 19:28:05
Line 199 sub real_handler {	Line 199 sub real_handler {
# renderer call	# renderer call
my $render = render({ 'cols' => [0,1,2,3],	my $render = render({ 'cols' => [0,1,2,3],
'url' => '/adm/navmaps',	'url' => '/adm/navmaps',
	'navmap' => $navmap,
'suppressNavmap' => 1,	'suppressNavmap' => 1,
'r' => $r});	'r' => $r});

Line 1282 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 1433 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