cgi-bin/tools/networkbrowser/ajax_relationship_request.pl

   1
   2 use strict;
   3
   4 use JSON;
   5 use CXGN::DB::Connection;
   6 use CXGN::Sunshine::Browser;
   7
   8 my $dbh = CXGN::DB::Connection->new();
   9
  10 my $b = CXGN::Sunshine::Browser->new($dbh);
  11
  12 #my $json = JSON->new();
  13
  14 my $r = $b->get_relationship_menu_info();
  15
  16 #print STDERR "GOT THE FOLLOWING RESPONSE: $r\n";
  17 print "Content-Type: text/plain\n\n";
  18 print "$r\n";
  19
  20
  21
  22