mason/feature/dhandler

   1 <%args>
   2     $feature
   3     $blast_url => undef
   4     $children  => undef
   5     $parents   => undef
   6     $xrefs     => []
   7 </%args>
   8
   9 <%once>
  10     use SGN::View::Feature qw/get_reference/;
  11 </%once>
  12
  13 <& /page/page_title.mas, title => 'Feature Viewer: '. $feature->id &>
  14
  15 <& /util/import_javascript.mas,
  16     classes => [qw(Text.Markup CXGN.Effects CXGN.Phenome.Locus MochiKit.DOM)]
  17 &>
  18 <%perl>
  19     my $organism = $feature->organism;
  20     my $species  = $organism->species;
  21     my $reference = get_reference($feature);
  22 </%perl>
  23
  24 <& /feature/feature_data.mas,
  25     feature => $feature,
  26     species => $species
  27 &>
  28
  29 <& /feature/related_features.mas,
  30     children  => $children,
  31     parents   => $parents,
  32     feature   => $feature,
  33 &>
  34
  35 <& /feature/properties.mas,
  36     feature => $feature,
  37 &>
  38
  39 <& /feature/sequence.mas,
  40         feature   => $feature,
  41         blast_url => $blast_url,
  42 &>
  43
  44 <&| /page/info_section.mas,
  45      title => 'Related views',
  46  &>
  47      <& /sitefeatures/mixed/xref_set/link.mas,
  48         xrefs => $xrefs,
  49       &>
  50 </&>