mason/tools/bulk/display/buttons.mas

   1
   2 <%args>
   3 $line_count => 0
   4 $page_size => 50
   5 $page_number => 1
   6 $dumpfile
   7 $idType
   8 </%args>
   9
  10 <%perl>
  11
  12 =head2 buttons
  13
  14   Desc: draws buttons
  15   Args: default
  16   Ret : n/a
  17
  18   Calls components for buttons that will display on the html display pages.
  19
  20 =cut
  21
  22 if ($page_size == 0) { $page_size = 50; }
  23 my $pages = ( int( $line_count / $page_size ) ) + 1;
  24
  25 </%perl>
  26
  27 <br />Page <% $page_number %> of <% $pages %> |
  28 <& /tools/bulk/display/buttons/previous.mas, page_number => $page_number, dumpfile => $dumpfile &>
  29  |
  30 <& /tools/bulk/display/buttons/summary.mas, dumpfile=>$dumpfile, idType=>$idType &>
  31  |
  32 <a href="/tools/bulk">New query</a>
  33  |
  34 <& /tools/bulk/display/buttons/next.mas, page_number => $page_number, page_size=>$page_size, line_count => $line_count, dumpfile=>$dumpfile &>
  35 <br /><br />
  36