perl-docs-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-docs/tmpl/custom/html ad
Date Wed, 04 Jun 2003 05:08:02 GMT
stas        2003/06/03 22:08:02

  Modified:    tmpl/custom/html ad
  Log:
  - use a more fair cover rotation algorithm, based on seconds rather days
  of the week (the latter picked the same books, since the complete rebuild is
  always running only Sundays)
  - add a link to more books (so people know that there are books that
  aren't shown
  
  Revision  Changes    Path
  1.18      +16 -2     modperl-docs/tmpl/custom/html/ad
  
  Index: ad
  ===================================================================
  RCS file: /home/cvs/modperl-docs/tmpl/custom/html/ad,v
  retrieving revision 1.17
  retrieving revision 1.18
  diff -u -r1.17 -r1.18
  --- ad	24 Oct 2002 22:46:39 -0000	1.17
  +++ ad	4 Jun 2003 05:08:02 -0000	1.18
  @@ -36,8 +36,8 @@
     
     max_items = 3;
     num_items = books.size;
  -  day_week = date.format(date.now, '%w'); # 0 == Sunday
  -  first_book = day_week % num_items;
  +  seconds = date.format(date.now, '%S'); 
  +  first_book = seconds % num_items;
   -%]
   
   [%- WRAPPER wrap_box
  @@ -68,5 +68,19 @@
           </tr>
   
   [% END %]
  +
  +        <tr>
  +            <td class="menu-border" width="1"><br></td>
  +            <td class="ad-bg">
  +                <div class="adtext">
  +                    <em><a href="[% doc.dir.abs_doc_root %]/docs/offsite/books.html">More
mod_perl books...</a></em>
  +                </div>
  +            </td>
  +            <td class="menu-border" width="1"><br></td>
  +        </tr>
  +
  +        <tr>
  +            <td class="menu-border" colspan="3" height="1"><small class="nbr"><small
class="nbr"><br class="smallbr"></small></small></td>
  +        </tr>
   
   [% END %]
  
  
  

---------------------------------------------------------------------
To unsubscribe, e-mail: docs-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: docs-cvs-help@perl.apache.org


Mime
View raw message