mason/search/results/list.mas

   1
   2 <%doc>
   3
   4 =head1 NAME
   5
   6 /search/result_list.mas - a Mason module to display search results
   7
   8 =head1 DESCRIPTION
   9
  10 Displays search results, based on an arrayref containing one "page" of results (see arguments), and displays links for moving to previous and next pages etc.
  11
  12 Arguments:
  13
  14 =over 10
  15
  16 =item search_name
  17
  18 The name of the search
  19
  20 =item search_parameter_hashref
  21
  22 a hashref mapping parameter names to their values
  23
  24 =item search_link
  25
  26 a url, semi-absolute if possible, for the search. Needs to take a page argument.
  27
  28 =item total_result_count
  29
  30 The total number of results in the resultset.
  31
  32 =item page_size
  33
  34 How many results are presented on one page.
  35
  36 =item current_page
  37
  38 The current page number.
  39
  40 =item results_arrayref
  41
  42 An arrayref of arrayrefs containing the contents of the search result page. Each arrayref is a line in a table.
  43
  44 =item headers_arrayref
  45
  46 The headers of the columns for the search results; has to map to the results_arrayref.
  47
  48 =back
  49
  50 =head1 AUTHOR
  51
  52 Lukas Mueller <lam87@cornell.edu>
  53
  54 =cut
  55
  56 </%doc>
  57
  58
  59 <%args>
  60 $search_name
  61 $search_parameter_hashref
  62 $search_link
  63 $total_result_count
  64 $entries_per_page
  65 $current_page
  66 $results_arrayref
  67 $headers_arrayref
  68 </%args>
  69
  70 <%perl>
  71
  72 use Data::Page;
  73
  74 my $dp = Data::Page->new();
  75 if (!$current_page) { $current_page=1; }
  76 $dp->total_entries($total_result_count);
  77 $dp->entries_per_page($entries_per_page);
  78 $dp->current_page($current_page);
  79 my $first = $dp->first();
  80 my $last = $dp->last();
  81 </%perl>
  82
  83
  84 <& /page/page_title.mas, title => $search_name &>
  85 <&| /page/info_section.mas, title => $search_name, subtitle=> "Total found: $total_result_count" &>
  86   <& /page/columnar_table.mas, headings => $headers_arrayref, data => $results_arrayref &>
  87 </&>
  88
  89
  90 % foreach my $page ($first..$last) {
  91   <a href="<% $search_link %> "><% $page %></a>
  92 % }
  93
  94
  95