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 $schema = $c->dbic_schema('Bio::Chado::Schema', 'sgn_chado');
  17
  18 my $org_rs = $schema->resultset("Organism::Organism")->search({species=>{'ilike'=>'%'.$species.'%'}});
  19
  20 my %species;
  21
  22 while (my $org = $org_rs->next){
  23     $species{$org->organism_id()}=$org->species();
  24 }
  25
  26 my $jobj = $json->encode(\%species);
  27 print "$jobj";