version 1.321, 2005/04/11 12:20:22
|
version 1.322, 2005/04/11 15:28:55
|
Line 2298 sub hasDiscussion {
|
Line 2298 sub hasDiscussion {
|
} |
} |
} |
} |
|
|
# Private method: Does the given resource (as a symb string) have |
|
# current feedback? Returns the string in the feedback hash, which |
|
# will be false if it does not exist. |
|
|
|
sub wrap_symb { |
sub wrap_symb { |
my $self=shift; |
my $self = shift; |
my $symb = shift; |
my $symb = shift; |
my $ressymb = $symb; |
if ($symb =~ m-___(adm/\w+/\w+/)(\d+)(/bulletinboard)$-) { |
if ($ressymb =~ m-___(adm/\w+/\w+/)(\d+)(/bulletinboard)$-) { |
unless ($symb =~ m|adm/wrapper/adm|) { |
unless ($ressymb =~ m|adm/wrapper/adm|) { |
$symb = 'bulletin___'.$2.'___adm/wrapper/'.$1.$2.$3; |
$ressymb = 'bulletin___'.$2.'___adm/wrapper/'.$1.$2.$3; |
|
} |
} |
} |
} |
return $ressymb; |
return $symb; |
} |
} |
|
|
|
# Private method: Does the given resource (as a symb string) have |
|
# current feedback? Returns the string in the feedback hash, which |
|
# will be false if it does not exist. |
|
|
sub getFeedback { |
sub getFeedback { |
my $self = shift; |
my $self = shift; |
my $symb = shift; |
my $symb = shift; |