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.177, 2003/04/19 20:47:41
Line 343 sub lastTry {	Line 343 sub lastTry {
}	}

# This puts a human-readable name on the ENV variable.	# This puts a human-readable name on the ENV variable.
# FIXME: This needs better logic: Who gets the advanced view of navmaps?
# As of 3-13-03, it's an open question. Guy doesn't want to check
# roles directly because it should be a check of capabilities for future
# role compatibity. There is no capability that matches this one for
# now, so this is done. (A hack for 1.0 might be to simply check roles
# anyhow.)
sub advancedUser {	sub advancedUser {
return $ENV{'user.adv'};	return $ENV{'request.role.adv'};
}	}


Line 2690 sub to { my $self=shift; return $self->n	Line 2685 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);