version 1.193, 2003/05/27 21:00:23
|
version 1.198, 2003/06/10 20:07:58
|
Line 966 sub render_communication_status {
|
Line 966 sub render_communication_status {
|
} |
} |
} |
} |
|
|
|
if ($params->{'multipart'} && $part != '0') { |
|
$discussionHTML = $feedbackHTML = $errorHTML = ''; |
|
} |
|
|
return "<td width=\"75\" align=\"left\" valign=\"center\">$discussionHTML$feedbackHTML$errorHTML </td>"; |
return "<td width=\"75\" align=\"left\" valign=\"center\">$discussionHTML$feedbackHTML$errorHTML </td>"; |
|
|
} |
} |
Line 1021 sub render_long_status {
|
Line 1025 sub render_long_status {
|
$result .= '(randomly select ' . $resource->randompick() .')'; |
$result .= '(randomly select ' . $resource->randompick() .')'; |
} |
} |
|
|
$result .= " </td>\n"; |
|
|
|
return $result; |
return $result; |
} |
} |
|
|
Line 1413 sub render {
|
Line 1415 sub render {
|
@parts = ($parts[0]); |
@parts = ($parts[0]); |
$args->{'condensed'} = 1; |
$args->{'condensed'} = 1; |
} |
} |
|
|
} |
} |
|
# Multipart problem with one part: always "condense" (happens |
|
# to match the desirable behavior) |
|
if ($curRes->countParts() == 1) { |
|
@parts = ($parts[0]); |
|
$args->{'condensed'} = 1; |
|
} |
} |
} |
} |
} |
|
|
Line 1588 sub new {
|
Line 1595 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; |
|
|
Line 1779 object for that resource. This method, o
|
Line 1793 object for that resource. This method, o
|
(as in the resource object) is the only proper way to obtain a |
(as in the resource object) is the only proper way to obtain a |
resource object. |
resource object. |
|
|
|
=item * B<getBySymb>(symb): |
|
|
|
Based on the symb of the resource, get a resource object for that |
|
resource. This is one of the proper ways to get a resource object. |
|
|
|
=item * B<getMapByMapPc>(map_pc): |
|
|
|
Based on the map_pc of the resource, get a resource object for |
|
the given map. This is one of the proper ways to get a resource object. |
|
|
=cut |
=cut |
|
|
# The strategy here is to cache the resource objects, and only construct them |
# The strategy here is to cache the resource objects, and only construct them |
Line 1809 sub getBySymb {
|
Line 1833 sub getBySymb {
|
return $self->getById($map->map_pc() . '.' . $id); |
return $self->getById($map->map_pc() . '.' . $id); |
} |
} |
|
|
|
sub getByMapPc { |
|
my $self = shift; |
|
my $map_pc = shift; |
|
my $map_id = $self->{NAV_HASH}->{'map_id_' . $map_pc}; |
|
$map_id = $self->{NAV_HASH}->{'ids_' . $map_id}; |
|
return $self->getById($map_id); |
|
} |
|
|
=pod |
=pod |
|
|
=item * B<firstResource>(): |
=item * B<firstResource>(): |