package SGN::View::Mason::Commands;
use strict;
use vars qw($m $c);
#line 45 "/home/production/cxgn/sgn/mason/genomes/index.mas"

  use List::AllUtils 'uniq';
HTML::Mason::Component::FileBased->new(
'code' => sub {
use utf8; local $SGN::View::Mason::Commands::m = $HTML::Mason::Commands::m;
HTML::Mason::Exception::Params->throw
    ( error =>
      "Odd number of parameters passed to component expecting name/value pairs"
    ) if @_ % 2;
my ( $genome_organisms );
{
    my %pos;
    for ( my $x = 0; $x < @_; $x += 2 )
    {
        $pos{ $_[$x] } = $x + 1;
    }
#line 2 "/home/production/cxgn/sgn/mason/genomes/index.mas"
     $genome_organisms = exists $pos{'genome_organisms'} ? $_[ $pos{'genome_organisms'} ] :  [];
}
$m->debug_hook( $m->current_comp->path ) if ( HTML::Mason::Compiler::IN_PERL_DB() );

#line 32 "/home/production/cxgn/sgn/mason/genomes/index.mas"


  my @links =
     sort
     uniq
     map {
         my $species = $_->species;
         my $oid     = $_->organism_id;
         qq|<a href="/organism/$oid/genome" style="font-style: italic; display: block">$species</a>\n|
     }
     @$genome_organisms;

#line 23 "/home/production/cxgn/sgn/mason/genomes/index.mas"
$m->print( '
' );
#line 24 "/home/production/cxgn/sgn/mason/genomes/index.mas"
$m->comp(   '/page/page_title.mas', title=> "Genome Projects"   
); #line 24 "/home/production/cxgn/sgn/mason/genomes/index.mas"
$m->print( '

<div style="width: 30em; margin: 0 auto">

  ' );
#line 28 "/home/production/cxgn/sgn/mason/genomes/index.mas"
$m->print(  @links ? @links : '<div class="ghosted" style="text-align: center">none found</div>'  );
#line 28 "/home/production/cxgn/sgn/mason/genomes/index.mas"
$m->print( '

</div>

' );
;return;
},
'declared_args' => {
  '$genome_organisms' => { default => ' []' }
},
'load_time' => 1763159579,

)
;