Due a bug in INDEX parsing only the run depencies

where printed.

Print depencies only once.

PR:	ports/8974
This commit is contained in:
Wolfram Schneider 1998-12-08 18:34:13 +00:00
parent 8674abd96c
commit a1a7030c9a
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/www/; revision=3895

View file

@ -123,7 +123,7 @@ sub main {
# Read a record
($name, $loc, $prefix, $desc, $ldesc, $owner, $cats,
$keys, $bdep, $rdep) = split('\|');
$bdep, $rdep) = split('\|');
# Check for double hyphens in the name (--).
$name =~ s/--/-/g;
@ -165,7 +165,10 @@ sub main {
if ($bdep ne "" || $rdep ne "") {
$data{$i} .= "<BR><I>Requires:</I> ";
@dep = split(/ /, "$bdep $rdep");
foreach $j (@dep) {
local($last) = '';
foreach $j (sort @dep) {
next if $j eq $last;
$last = $j;
$data{$i} .= " <A HREF=\"##$j##.html#$j\">$j</A>,";
}
# remove the trailing comma