mason/tools/bulk/display/buttons/previous.mas

   1
   2 <%args>
   3 $page_number => 1
   4 $dumpfile
   5 </%args>
   6
   7 <%perl>
   8
   9 =head2 previousButtons
  10
  11   Desc: sub previousButtons
  12   Args: default
  13   Ret : n/a
  14
  15   Determines the previous button that will display on the html display pages.
  16
  17 =cut
  18
  19 </%perl>
  20
  21 % if ( ( $page_number - 1 ) > 0 ) {
  22 <a href="display.pl?dumpfile=<% $dumpfile %>&amp;page_number=<% $page_number - 1 %>">Previous Page</a>
  23 % }
  24 % else {
  25   Previous Page
  26 % }
  27