mason/feature/gbrowse_exact_match.mas

   1 <%args>
   2     $feature
   3     $xrefs
   4 </%args>
   5
   6 % if( $gbrowse_xref ) {
   7
   8 <& /sitefeatures/gbrowse2/xref/rich.mas, xref => $gbrowse_xref &>
   9
  10 % }
  11
  12 <%init>
  13     # in our xrefs, find the gbrowse2 xref that has only our feature
  14     # in it, and use its gbrowse_img and a link to gbrowse as our exon
  15     # structure diagram
  16     my ( $gbrowse_xref ) =
  17          grep {     $_->feature->feature_name eq 'gbrowse2'
  18                  && @{$_->seqfeatures} == 1
  19                  && $_->seqfeatures->[0]->display_name eq $feature->name
  20               } @$xrefs;
  21 </%init>