version 1.124, 2003/01/10 18:45:30
|
version 1.127, 2003/01/14 01:42:52
|
Line 686 sub real_handler {
|
Line 686 sub real_handler {
|
$r->print('<script>location += "#curloc";</script>'); |
$r->print('<script>location += "#curloc";</script>'); |
} |
} |
|
|
$r->print("</body></html>"); |
|
|
|
$navmap->untieHashes(); |
$navmap->untieHashes(); |
|
|
|
$r->print("<h1>Untied Hashes</h1></body></html>"); |
|
|
return OK; |
return OK; |
} |
} |
|
|
Line 1155 sub DESTROY {
|
Line 1155 sub DESTROY {
|
$self->untieHashes(); |
$self->untieHashes(); |
} |
} |
|
|
# Does the given resource (as a symb string) have |
# Private method: Does the given resource (as a symb string) have |
# current discussion? Returns 0 if chat/mail data not extracted. |
# current discussion? Returns 0 if chat/mail data not extracted. |
sub hasDiscussion { |
sub hasDiscussion { |
my $self = shift; |
my $self = shift; |
Line 1167 sub hasDiscussion {
|
Line 1167 sub hasDiscussion {
|
$self->{LAST_CHECK}; |
$self->{LAST_CHECK}; |
} |
} |
|
|
# Does the given resource (as a symb string) have |
# Private method: Does the given resource (as a symb string) have |
# current feedback? Returns the string in the feedback hash, which |
# current feedback? Returns the string in the feedback hash, which |
# will be false if it does not exist. |
# will be false if it does not exist. |
sub getFeedback { |
sub getFeedback { |
Line 1179 sub getFeedback {
|
Line 1179 sub getFeedback {
|
return $self->{FEEDBACK}->{$symb}; |
return $self->{FEEDBACK}->{$symb}; |
} |
} |
|
|
|
# Private method: Get the errors for that resource (by source). |
sub getErrors { |
sub getErrors { |
my $self = shift; |
my $self = shift; |
my $src = shift; |
my $src = shift; |
Line 2253 sub hasDiscussion {
|
Line 2254 sub hasDiscussion {
|
sub getFeedback { |
sub getFeedback { |
my $self = shift; |
my $self = shift; |
my $source = $self->src(); |
my $source = $self->src(); |
if ($source !~ /^\/res\//) { $source = substr $source, 5; } |
if ($source =~ /^\/res\//) { $source = substr $source, 5; } |
return $self->{NAV_MAP}->getFeedback($source); |
return $self->{NAV_MAP}->getFeedback($source); |
} |
} |
|
|