loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

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;