cgi-bin/chado/organism_query.pl

   1 use Bio::Chado::Schema;
   2 use strict;
   3 use warnings;
   4 use JSON;
   5 use CXGN::Scrap::AjaxPage;
   6
   7 use CatalystX::GlobalContext '$c';
   8
   9 my $doc = CXGN::Scrap::AjaxPage->new();
  10 $doc->send_http_header();
  11
  12 my ($species) = $doc->get_encoded_arguments("species");
  13
  14 my $json = JSON->new();
  15
  16 my $sp_person_id = $c->user() ? $c->user->get_object()->get_sp_person_id() : undef;
  17 my $schema = $c->dbic_schema('Bio::Chado::Schema', 'sgn_chado', $sp_person_id);
  18
  19 my $org_rs = $schema->resultset("Organism::Organism")->search({species=>{'ilike'=>'%'.$species.'%'}});
  20
  21 my %species;
  22
  23 while (my $org = $org_rs->next){
  24     $species{$org->organism_id()}=$org->species();
  25 }
  26
  27 my $jobj = $json->encode(\%species);
  28 print "$jobj";