loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.175, 2003/04/11 20:13:25	version 1.176, 2003/04/18 13:51:46
Line 2690 sub to { my $self=shift; return $self->n	Line 2690 sub to { my $self=shift; return $self->n
sub compTitle {	sub compTitle {
my $self = shift;	my $self = shift;
my $title = $self->title();	my $title = $self->title();
	$title=~s/\&colon\;/\:/gs;
if (!$title) {	if (!$title) {
$title = $self->src();	$title = $self->src();
$title = substr($title, rindex($title, '/') + 1);	$title = substr($title, rindex($title, '/') + 1);