branch: externals/idlwave commit ecd9d25efb200db6a272d0beecdfed28207de3fc Author: jdsmith <jdsmith> Commit: jdsmith <jdsmith>
- Simplify added links. --- addlinks.pl | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/addlinks.pl b/addlinks.pl index 22b6208907..addc9d8536 100755 --- a/addlinks.pl +++ b/addlinks.pl @@ -4,9 +4,9 @@ # links (in two location, top and bottom), plus some other useful # links. # -# (c)2003 J.D. Smith <jdsm...@as.arizona.edu> +# (c)2004 J.D. Smith <jdsm...@as.arizona.edu> # -# Version Supporting: IDLv5.6 +# Version Supporting: IDLv6.1 # # Verify that the listing files funclisting.html, nav_procedures.html, # nav_functions.html, nav_objects.html all exist, or modify below as @@ -22,9 +22,10 @@ die "No HTML files found.\n" unless @files; undef $/; my $contents= + '<a href="home.html">Home</a> | '. '<a href="funclisting.html">Categories</a> | '. - '<a href="idl_alph_class.html#ALPHABETICAL">Alphabetical</a> | '. - '<a href="idl_alph_class.html#OBJECTCLASS">Classes</a> | '. + '<a href="idl_alph.html">Alphabetical</a> | '. + '<a href="idl_obj_class.html">Classes</a> | '. '<a href="idl_con.html">All Contents</a> | '; @@ -42,7 +43,7 @@ foreach $file (@files) { "<a href=\"$next\">[ > ]</a>" . "</div>"; - s|^\s*<body>|$&\n$links<hr>|m; + s|^\s*</head>|$&\n$links<hr>|m; s|^\s*</body>|<hr>$links\n$&|m; open FILE, ">$file" or do {warn "Can't write to $file... skipping"; next};