cgi-bin/forum/return_comments.pl

   1 #!/usr/bin/perl
   2 use strict;
   3
   4 # this script is for ajax use. It just returns the comment html, nothing else.
   5
   6 print "Content-type: text/html\n\n";
   7
   8
   9
  10 use CXGN::Page;
  11 use CXGN::DB::Connection;
  12
  13 my $page = CXGN::Page->new();
  14 my $dbh = CXGN::DB::Connection->new();
  15
  16 my %things = $page->get_all_encoded_arguments();
  17
  18
  19 use CXGN::People::PageComment;
  20 my $referer = $things{referer} ||=  $page->{request}->uri()."?".$page->{request}->args();
  21 my $pg = CXGN::People::PageComment->new($dbh, $things{type},$things{id});
  22 $pg->set_refering_page($referer);
  23 my $ch = $pg->get_html();
  24
  25 print $ch;
  26