mason/gbrowse/list_sources.mas

   1 <%args>
   2   $organism    => undef
   3   $description => undef
   4 </%args>
   5
   6 % for my $src (@sources) {
   7       <& /gbrowse/source.mas, source => $src &>
   8 % }
   9
  10 <%init>
  11
  12   my $species = $organism ? lc $organism->species : undef;
  13
  14   # find the data sources, filtering if necessary
  15   my @sources =
  16      sort { $a->description cmp $b->description }
  17      grep $_->databases,
  18      grep !$description || index( lc $_->description, lc $description ) != -1,
  19      grep !$organism    || index( lc $_->organism,    lc $species     ) != -1,
  20      map  $_->data_sources,
  21      $c->enabled_feature('gbrowse2');
  22
  23 </%init>