version 1.174, 2003/04/04 21:36:01
|
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 1000 sub render {
|
Line 995 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 1346 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 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); |