Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

- Simplify added links.

  • Loading branch information...
commit ecd9d25efb200db6a272d0beecdfed28207de3fc 1 parent 4114589
jdsmith authored
Showing with 6 additions and 5 deletions.
  1. +6 −5 addlinks.pl
View
11 addlinks.pl
@@ -4,9 +4,9 @@
# links (in two location, top and bottom), plus some other useful
# links.
#
-# (c)2003 J.D. Smith <jdsmith@as.arizona.edu>
+# (c)2004 J.D. Smith <jdsmith@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 @@
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 @@
"<a href=\"$next\">[ &gt; ]</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};
Please sign in to comment.
Something went wrong with that request. Please try again.