loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

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;