- print "(".&rec_to_name(%{$DB{$owner}}).")";
- foreach $child (@{$OWNS{$owner}})
- { print " (".&rec_to_name(%{$DB{$child}}).")"; }
- print "\n";
+ &print_rec("<a name=\"".&htmlquote($owner)."\">","</a>",%{$DB{$owner}});
+ if (@{$OWNS{$owner}}) {
+ print OUT "<blockquote>\n";
+ foreach $child (reverse @{$OWNS{$owner}})
+ { &print_rec("","",%{$DB{$child}}); }
+ print OUT "</blockquote>\n";
+ }
+ print OUT "\n";
+ $DB{$owner}{"_filename"}=$filename;
+ }
+&OUT_flush();
+open(OUT,">kew-index.html") or die "Cannot open \"kew-index.html\": $!";
+&print_header("Index");
+
+sub print_href
+{
+my($owner)=@_;
+my(%rec)=%{$DB{$owner}};
+
+ print OUT &htmlquote(&rec_to_name(%rec));
+}
+
+foreach $owner (sort keys %OWNS) {
+my( $child );
+
+ print OUT "<p><a href=\"".$DB{$owner}{"_filename"}."#$owner\">";
+ &print_href($owner);
+ print OUT "</a></p>";
+ if (@{$OWNS{$owner}}) {
+ print OUT "<ul>\n";
+ foreach $child (reverse @{$OWNS{$owner}}) {
+ print OUT "<li>";
+ &print_href($child);
+ print OUT "</li>\n";
+ }
+ print OUT "</ul>";
+ }
+ print OUT "\n";