lib/SGN/Feature/FeaturePages.pm

   1 =head1 NAME
   2
   3 SGN::Feature::FeaturePages - site feature for genomic feature pages
   4 (SGN::Controller::Feature, SGN::View::Feature, mason/features)
   5
   6 =head1 SYNOPSIS
   7
   8 Subclass of L<SGN::Feature>, just does all the things expected of a
   9 site feature.
  10
  11 =cut
  12
  13 package SGN::Feature::FeaturePages;
  14 use Moose;
  15
  16 use URI;
  17
  18 extends 'SGN::Feature';
  19
  20 has '+description' => (
  21     default    => 'Genomic details',
  22    );
  23
  24 sub xrefs {
  25     my ( $self, $query ) = @_;
  26
  27     return if ref $query;
  28     $query = lc $query;
  29
  30     my $feats = $self->context->dbic_schema('Bio::Chado::Schema','sgn_chado')
  31                      ->resultset('Sequence::Feature')
  32                      ->search({},{ prefetch => 'type' });
  33
  34     my @exact =
  35         map { $self->_make_xref( $_ ) }
  36             ( $feats->search({
  37                 -or => [ { 'lower(me.uniquename)' => $query },
  38                          { 'lower(me.name)'       => $query },
  39                        ],
  40                }),
  41                $feats->search(
  42                    { 'lower(synonym.name)' => $query },
  43                    { join => { feature_synonyms => 'synonym' } },
  44                ),
  45              );
  46
  47     return @exact;
  48 }
  49
  50 sub _make_xref {
  51     my ( $self, $feature ) = @_;
  52
  53     return SGN::SiteFeatures::CrossReference->new({
  54         feature      => $self,
  55
  56         text => $feature->name.' '.$feature->type->name.' feature details',
  57
  58         url => URI->new('/feature/'.$feature->feature_id.'/details'),
  59
  60     });
  61 }
  62
  63 __PACKAGE__->meta->make_immutable;
  64 1;