cgi-bin/phenome/registry_browser.pl

   1 use strict;
   2 use warnings;
   3
   4 use CXGN::Scrap::AjaxPage;
   5
   6 my $doc = CXGN::Scrap::AjaxPage->new();
   7 $doc->send_http_header();
   8 my ($registry_name) = $doc->get_encoded_arguments("registry_name");
   9
  10 my $dbh = CXGN::DB::Connection->new();
  11
  12 my $registry_query = $dbh->prepare("SELECT registry_id, symbol, name FROM phenome.registry WHERE symbol ilike '$registry_name%' OR name ilike '%$registry_name%'");
  13 $registry_query->execute();
  14
  15 my ($registry_id, $symbol, $name) = $registry_query->fetchrow_array();
  16 my $available_registers;
  17
  18 while($symbol){
  19     $available_registers .= "$registry_id*$symbol--$name|";
  20     ($registry_id, $symbol, $name) = $registry_query->fetchrow_array();
  21 }
  22
  23 print "$available_registers";