[Python-checkins] python/dist/src/Doc/perl l2hinit.perl,1.71,1.72

[fdrake@users.sourceforge.net]

Update of /cvsroot/python/python/dist/src/Doc/perl
In directory sc8-pr-cvs1:/tmp/cvs-serv20854

Modified Files:
	l2hinit.perl 
Log Message:
add link types for the remaining links in the navigation panels


Index: l2hinit.perl
===================================================================
RCS file: /cvsroot/python/python/dist/src/Doc/perl/l2hinit.perl,v
retrieving revision 1.71
retrieving revision 1.72
diff -C2 -d -r1.71 -r1.72
*** l2hinit.perl	2 May 2003 20:18:01 -0000	1.71
--- l2hinit.perl	2 May 2003 20:30:18 -0000	1.72
***************
*** 142,151 ****
  }
  
! sub use_my_icon($) {
!     my $s = $_[0];
      if ($s =~ /\<tex2html_([a-z_]+)_visible_mark\>/) {
          my $r = get_my_icon($1);
          $s =~ s/\<tex2html_[a-z_]+_visible_mark\>/$r/;
      }
      return $s;
  }
--- 142,152 ----
  }
  
! 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;
  }
***************
*** 154,162 ****
      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;
      if (!$CUSTOM_BUTTONS) {
          $CUSTOM_BUTTONS = $BLANK_ICON;
--- 155,164 ----
      my $s;
      my $BLANK_ICON = get_my_icon('blank');
!     $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;