version 1.194, 2003/05/29 17:39:41
|
version 1.196, 2003/06/10 18:42:18
|
Line 1021 sub render_long_status {
|
Line 1021 sub render_long_status {
|
$result .= '(randomly select ' . $resource->randompick() .')'; |
$result .= '(randomly select ' . $resource->randompick() .')'; |
} |
} |
|
|
$result .= " </td>\n"; |
|
|
|
return $result; |
return $result; |
} |
} |
|
|
Line 1588 sub new {
|
Line 1586 sub new {
|
return undef; |
return undef; |
} |
} |
|
|
$self->{NAV_HASH} = \%navmaphash; |
# try copying into memory |
|
my %tmpnavhash; |
|
while (my ($k, $v) = each(%navmaphash)) { |
|
$tmpnavhash{$k} = $v; |
|
} |
|
untie %navmaphash; |
|
|
|
$self->{NAV_HASH} = \%tmpnavhash; |
$self->{PARM_HASH} = \%parmhash; |
$self->{PARM_HASH} = \%parmhash; |
$self->{INITED} = 0; |
$self->{INITED} = 0; |
|
|