[Python-checkins] python/dist/src/Doc/perl l2hinit.perl,1.80,1.81

[fdrake at users.sourceforge.net]

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

Modified Files:
	l2hinit.perl 
Log Message:
- add comment about $CUSTOM_BUTTONS
- use_icon(): fix the check for whether a supplemental link is being
  used


Index: l2hinit.perl
===================================================================
RCS file: /cvsroot/python/python/dist/src/Doc/perl/l2hinit.perl,v
retrieving revision 1.80
retrieving revision 1.81
diff -C2 -d -r1.80 -r1.81
*** l2hinit.perl	27 Sep 2003 16:04:23 -0000	1.80
--- l2hinit.perl	13 Jan 2004 23:43:58 -0000	1.81
***************
*** 110,113 ****
--- 110,114 ----
  
  
+ # $CUSTOM_BUTTONS is only used for the module index link.
  $CUSTOM_BUTTONS = '';
  
***************
*** 164,168 ****
  sub use_icon($$$) {
      my($rel,$str,$title) = @_;
!     if ($title) {
          my $s = "$str";
          if ($s =~ /\<tex2html_([a-z_]+)_visible_mark\>/) {
--- 165,169 ----
  sub use_icon($$$) {
      my($rel,$str,$title) = @_;
!     if ($str) {
          my $s = "$str";
          if ($s =~ /\<tex2html_([a-z_]+)_visible_mark\>/) {