version 1.372, 2006/03/17 21:33:17
|
version 1.373, 2006/03/19 19:50:40
|
Line 2402 sub unread_discussion {
|
Line 2402 sub unread_discussion {
|
sub wrap_symb { |
sub wrap_symb { |
my $self = shift; |
my $self = shift; |
my $symb = shift; |
my $symb = shift; |
if ($symb =~ m-___(adm/\w+/\w+/)(\d+)(/bulletinboard)$-) { |
if ($symb =~ m-___(adm/[^/]+/[^/]+/)(\d+)(/bulletinboard)$-) { |
unless ($symb =~ m|adm/wrapper/adm|) { |
unless ($symb =~ m|adm/wrapper/adm|) { |
$symb = 'bulletin___'.$2.'___adm/wrapper/'.$1.$2.$3; |
$symb = 'bulletin___'.$2.'___adm/wrapper/'.$1.$2.$3; |
} |
} |
Line 2414 sub unwrap_symb {
|
Line 2414 sub unwrap_symb {
|
my $self = shift; |
my $self = shift; |
my $ressymb = shift; |
my $ressymb = shift; |
my $discsymb = $ressymb; |
my $discsymb = $ressymb; |
if ($ressymb =~ m-^(bulletin___\d+___)adm/wrapper/(adm/\w+/\w+/\d+/bulletinboard)$-) { |
if ($ressymb =~ m-^(bulletin___\d+___)adm/wrapper/(adm/[^/]+/[^/]+/\d+/bulletinboard)$-) { |
$discsymb = $1.$2; |
$discsymb = $1.$2; |
} |
} |
return $discsymb; |
return $discsymb; |