mason/page/comments.mas

   1
   2 <%doc>
   3
   4 =head1 NAME
   5 /page/comments.mas - a mason component to provide page comments
   6
   7 =head1 DESCRIPTION
   8
   9 Adds the user page comment feature to a web page. Users can peruse the comments, logged-in users can provide comments.
  10
  11 Only show for entities that have completely numeric identifiers.
  12
  13 Note: this code depends on the sgn.js script, which should be included in every SGN page.
  14
  15 =head2 Arguments
  16
  17 =over 10
  18
  19 =item object_type
  20
  21 The type of object being commented on.
  22
  23 =item object_id
  24
  25 The identifier of the object being commented on.
  26
  27 =item referer
  28
  29 The page uri which displays these page comments.
  30
  31 =back
  32
  33 =head1 AUTHOR
  34
  35 Lukas Mueller <lam87@cornell.edu> - based on previous SGN Perl code.
  36
  37 =cut
  38
  39 </%doc>
  40
  41 <%args>
  42 $object_id
  43 $object_type
  44 $referer
  45 </%args>
  46
  47 <& /util/import_javascript.mas, classes=>[ 'CXGN.Page.Comments', 'MochiKit.Async' ] &>
  48
  49 <%perl>
  50
  51 our %urlencode;
  52 use Tie::UrlEncoder;
  53 use CXGN::Page::FormattingHelpers qw / info_section_html / ;
  54
  55 if ($object_id!~/^\d+$/) { return; }
  56
  57
  58     # object_type would be something like "marker" or "bac"
  59     # object_id would be the marker_id or the clone_id
  60
  61     my $placeholder = info_section_html(
  62         title=>"User comments",
  63         contents=>qq{<!-- check for comments only shows up when AJAX is not enabled
  64      (old browsers, buggy ajax) -->
  65 Please wait, checking for comments.  (If comments do not show up, access them <a href="/forum/return_comments.pl?type=$object_type&amp;id=$object_id">here</a>)}
  66     );
  67
  68 my $encoded_referer = $urlencode{ $referer || '' };
  69
  70
  71
  72 </%perl>
  73
  74
  75 <span class="noshow" id="referer"><% $encoded_referer %></span>
  76 <span class="noshow" id="commentstype"><% $object_type %></span>
  77 <span class="noshow" id="commentsid"><% $object_id %></span>
  78 <div id="commentsarea">
  79   <% $placeholder %>
  80 </div>
  81
  82
  83