[l2h] &replace_infopage_hook never called

Stephen J. Sherman Stephen J. Sherman" <sjs@irvine.com
Thu, 25 May 2000 17:36:21 -0700


My &replace_infopage_hook, defined in l2hconf.pm, is never called.
Changing the first line of subroutine "replace_general_markers", as I
do below, fixes the problem.


sub replace_general_markers {
    # if (defined &replace_infopage_hook) {&replace_infopage_hook if (/$info_page_mark/);}
    if (defined &replace_infopage_hook) {&replace_infopage_hook;}


This is a regression that I first noticed in 99.2alpha9, but didn't
report.  Today I downloaded 99.2beta5, and discovered that the
regression still exists, so I am pointing it out.

The relevant section of my l2hconf.pm file is:

### Info Page  ##########################################################
#
# -- 5/26/98 Dan Y: Custom hack for inserting my own info page.  The call to
# replace_infopage_hook is necessary in order to have the $t_title variable
# instantiated by the time the page is created.

   $INFO = "THISISTHEPLACEHOLDERFORMYCUSTOMINFOPAGEHACK";
   
   sub replace_infopage_hook {
      local($icc_infopage) = join(''

         ,"Copyright &copy;2000 "
         ,"<A HREF=\"http://www.irvine.com\">Irvine Compiler Corporation</A>. "
         ,"All Rights Reserved.<P>"
         ,"<BLOCKQUOTE><STRONG>$t_title</STRONG></BLOCKQUOTE>"
         ,"<P>Permission is hereby granted to licensed users of the "
         ,"ICC Ada compiler software to make copies of this document for use "
         ,"in conjunction with the licensed software."
         ,"<P>All trademarks mentioned herein are the property of their "
         ,"respective owners. "
         ,"<P>The statements in this document provide no warranty, either "
         ,"express or implied, and specifications herein are subject "
         ,"to change without notice."
         ,"<P>This material may be reproduced by or for the U.S. Government "
         ,"pursuant to the copyright license under the clause at DFARS "
         ,"252.227-7013 (1991)."

         ,"<P>This document was generated using the\n"
         ,"<A HREF=\"$TEX2HTMLADDRESS\"><STRONG>LaTeX</STRONG>2<tt>HTML</tt></A> "
         ,"translator Version $TEX2HTMLVERSION.\n"
         ,"Copyright &#169; 1993-1998,\n"
         ,"<A HREF=\"$AUTHORADDRESS\">Nikos Drakos</A>, \n"
         ,"Computer Based Learning Unit, University of Leeds.\n"
         ,"<P>The translation was initiated by <A href=\"http://www.irvine.com\">"
         ,"<I>Irvine Compiler Corporation</I></A> on $address_data[1]."
      );
   
      s/THISISTHEPLACEHOLDERFORMYCUSTOMINFOPAGEHACK/$icc_infopage/;
   
   }  


-- Steve Sherman
-- Irvine Compiler Corp.