cgi-bin/phenome/allele_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 ($locus_id, $individual_id) = $doc->get_encoded_arguments("locus_id", "individual_id");
   9
  10 my $dbh = CXGN::DB::Connection->new();
  11
  12 my $allele_query = $dbh->prepare("SELECT DISTINCT(allele.allele_id), allele.allele_symbol, allele.allele_name, is_default FROM phenome.allele LEFT JOIN phenome.individual_allele USING(allele_id) WHERE allele.obsolete = 'false' AND locus_id=? AND allele_id NOT IN (SELECT allele_id from phenome.individual_allele WHERE individual_id = ? AND obsolete = 'f' ) ORDER BY is_default DESC");
  13 $allele_query->execute($locus_id, $individual_id);
  14
  15 my ($allele_id, $allele_symbol, $allele_name) = $allele_query->fetchrow_array();
  16 my $available_alleles;
  17
  18 while($allele_id){
  19     if($allele_symbol eq ""){
  20         $allele_symbol = 'default';
  21     }
  22     $available_alleles .= "$allele_id*$allele_symbol|";
  23     ($allele_id, $allele_symbol, $allele_name) = $allele_query->fetchrow_array();
  24 }
  25
  26 print "$available_alleles";