loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.174, 2003/04/04 21:36:01	version 1.176, 2003/04/18 13:51:46
Line 1000 sub render {	Line 1000 sub render {
# Step two: Locate what kind of here marker is necessary	# Step two: Locate what kind of here marker is necessary
# Determine where the "here" marker is and where the screen jumps to.	# Determine where the "here" marker is and where the screen jumps to.

if ($ENV{'form.symb'}) {	if ($ENV{'form.postsymb'}) {
$here = $jump = $ENV{'form.symb'};	$here = $jump = $ENV{'form.postsymb'};
} elsif ($ENV{'form.postdata'}) {	} elsif ($ENV{'form.postdata'}) {
# couldn't find a symb, is there a URL?	# couldn't find a symb, is there a URL?
my $currenturl = $ENV{'form.postdata'};	my $currenturl = $ENV{'form.postdata'};
Line 1351 sub render {	Line 1351 sub render {
$r->rflush();	$r->rflush();
}	}

#if ($mustCloseNavMap) { $navmap->untieHashes(); }	if ($mustCloseNavMap) { $navmap->untieHashes(); }

return $result;	return $result;
}	}
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);