mason/markers/unigene_match.mas

   1
   2 <%doc>
   3
   4 =head1 NAME
   5
   6 /markers/unigene_match.mas - a Mason component displaying the unigene matches associated with a marker
   7
   8 =head1 DESCRIPTION
   9
  10 parameters
  11
  12 =over 5
  13
  14 =item *
  15
  16 $marker - a CXGN::Marker object.
  17
  18 =back
  19
  20 =head1 AUTHOR
  21
  22 Lukas Mueller <lam87@cornell.edu>
  23
  24 =cut
  25
  26 </%doc>
  27
  28 <%args>
  29 $marker
  30 </%args>
  31
  32 <%perl>
  33
  34 my $marker_id = $marker->marker_id();
  35 my $html='';
  36
  37 my $unigene_matches = $marker->primer_unigene_matches(); #$dbh->selectcol_arrayref("SELECT DISTINCT unigene_id FROM primer_unigene_match WHERE marker_id=$marker_id");
  38
  39 foreach my $ug (@$unigene_matches){
  40
  41   $html .= qq{<a href="/search/unigene.pl?unigene_id=SGN-U$ug">SGN-U$ug</a><br>};
  42
  43 }
  44
  45 # don't show anything if there is no data...
  46 #
  47 if (!$html) { return; }
  48
  49 </%perl>
  50
  51 <&| /page/info_section.mas, title=>'Unigene blast matches for primers' &>
  52   <% $html %>
  53 </&>