Stowage/cpython
2
0
Fork 0
mirror of https://github.com/python/cpython.git synced 2025-10-31 13:41:24 +00:00
Code Issues Projects Releases Packages Wiki Activity

add link types for the remaining links in the navigation panels

Browse source
This commit is contained in:
Fred Drake 2003-05-02 20:30:18 +00:00
parent 4f45011af2
commit 05404c3d7c
1 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

16
Doc/perl/l2hinit.perl
View file

@ -141,23 +141,25 @@ sub get_my_icon($) {
. " height='32' alt='$text' width='32'>";
}
sub use_my_icon($) {
my $s = $_[0];
sub use_my_icon($$) {
my($s,$rel) = @_;
if ($s =~ /\<tex2html_([a-z_]+)_visible_mark\>/) {
my $r = get_my_icon($1);
$s =~ s/\<tex2html_[a-z_]+_visible_mark\>/$r/;
}
$s =~ s/<[aA] /<a rel="$rel" /;
return $s;
}
sub make_nav_panel() {
my $s;
my $BLANK_ICON = get_my_icon('blank');
$NEXT = $NEXT_TITLE ? use_my_icon("$NEXT") : $BLANK_ICON;
$UP = $UP_TITLE ? use_my_icon("$UP") : $BLANK_ICON;
$PREVIOUS = $PREVIOUS_TITLE ? use_my_icon("$PREVIOUS") : $BLANK_ICON;
$CONTENTS = use_my_icon("$CONTENTS");
$INDEX = $INDEX ? use_my_icon("$INDEX") : $BLANK_ICON;
$NEXT = $NEXT_TITLE ? use_my_icon("$NEXT", 'next') : $BLANK_ICON;
$UP = $UP_TITLE ? use_my_icon("$UP", 'parent') : $BLANK_ICON;
$PREVIOUS = ($PREVIOUS_TITLE
? use_my_icon("$PREVIOUS", 'prev') : $BLANK_ICON);
$CONTENTS = use_my_icon("$CONTENTS", 'contents');
$INDEX = $INDEX ? use_my_icon("$INDEX", 'index') : $BLANK_ICON;
if (!$CUSTOM_BUTTONS) {
$CUSTOM_BUTTONS = $BLANK_ICON;
}