|
|
|
@ -151,7 +151,7 @@ sub FileNotFound {
|
|
|
|
|
next if $looking && !/\* Menu/; |
|
|
|
|
$looking = 0; |
|
|
|
|
my @item = &ParseMenuItem($_,'dir'); |
|
|
|
|
if (!defined(@item)) { next } |
|
|
|
|
if (!@item) { next } |
|
|
|
|
my ($MenuLinkTag, $MenuLinkFile, $MenuLinkRef, $MenuLinkText) = @item; |
|
|
|
|
if ($MenuLinkRef eq $FileName) { |
|
|
|
|
&Redirect($MenuLinkFile, $MenuLinkTag); |
|
|
|
@ -406,7 +406,7 @@ sub ParseMenuItem {
|
|
|
|
|
sub MenuItem2HTML { |
|
|
|
|
my ($Line, $BaseInfoFile) = @_; |
|
|
|
|
my @parse_results = &ParseMenuItem($Line, $BaseInfoFile); |
|
|
|
|
if (!defined (@parse_results)) { return $Line; } |
|
|
|
|
if (!@parse_results) { return $Line; } |
|
|
|
|
my ($MenuLinkTag, $MenuLinkFile, $MenuLinkRef, $MenuLinkText) = @parse_results; |
|
|
|
|
#-- produce a HTML line |
|
|
|
|
return "<tr class=\"infomenutr\"><td class=\"infomenutd\" width=\"30%\"><ul><li><a href=\"info:/$MenuLinkFile/$MenuLinkTag\">$MenuLinkRef</a></ul></td><td class=\"infomenutd\">$MenuLinkText"; |
|
|
|
@ -959,7 +959,7 @@ sub GetFileAndOffset {
|
|
|
|
|
# lpc (16 March 2003) |
|
|
|
|
&ReadTagTable($BaseInfoFile, \%TagList, \$Exists, \$IsIndirect); |
|
|
|
|
return "", 0 unless $Exists; #-- no tag table available |
|
|
|
|
return "", 0 unless defined $TagList{$NodeName}; #-- tag is not in the tag table |
|
|
|
|
return "", 0 unless $TagList{$NodeName}; #-- tag is not in the tag table |
|
|
|
|
($File, $Offset) = split(/#/, $TagList{$NodeName}); |
|
|
|
|
return $File, &max($Offset - 100, 0) if $File; #-- there is an explicite |
|
|
|
|
#-- not in the tag table |
|
|
|
|