--- loncom/interface/lonnavmaps.pm 2003/04/11 20:13:25 1.175 +++ loncom/interface/lonnavmaps.pm 2003/04/19 20:47:41 1.177 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Navigate Maps Handler # -# $Id: lonnavmaps.pm,v 1.175 2003/04/11 20:13:25 bowersj2 Exp $ +# $Id: lonnavmaps.pm,v 1.177 2003/04/19 20:47:41 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -343,14 +343,9 @@ sub lastTry { } # 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 { - return $ENV{'user.adv'}; + return $ENV{'request.role.adv'}; } @@ -2690,6 +2685,7 @@ sub to { my $self=shift; return $self->n sub compTitle { my $self = shift; my $title = $self->title(); + $title=~s/\&colon\;/\:/gs; if (!$title) { $title = $self->src(); $title = substr($title, rindex($title, '/') + 1);