version 1.127, 2003/01/14 01:42:52
|
version 1.129, 2003/01/14 17:19:27
|
Line 688 sub real_handler {
|
Line 688 sub real_handler {
|
|
|
$navmap->untieHashes(); |
$navmap->untieHashes(); |
|
|
$r->print("<h1>Untied Hashes</h1></body></html>"); |
$r->print("</body></html>"); |
|
|
return OK; |
return OK; |
} |
} |
Line 999 sub new {
|
Line 999 sub new {
|
return undef; |
return undef; |
} |
} |
|
|
|
$self->{HASH_TIED} = 1; |
$self->{NAV_HASH} = \%navmaphash; |
$self->{NAV_HASH} = \%navmaphash; |
$self->{PARM_HASH} = \%parmhash; |
$self->{PARM_HASH} = \%parmhash; |
|
|
bless($self); |
bless($self); |
$self->untieHashes(); |
|
|
|
return $self; |
return $self; |
} |
} |