package SGN::View::Mason::Commands;
use strict;
use vars qw($m $c);
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 ( $locus_id, $synonyms );
{
    my %pos;
    for ( my $x = 0; $x < @_; $x += 2 )
    {
        $pos{ $_[$x] } = $x + 1;
    }

    foreach my $arg ( qw( locus_id ) )
    {
        HTML::Mason::Exception::Params->throw
            ( error => "no value sent for required parameter '$arg'" )
                unless exists $pos{$arg};
    }
#line 38 "/home/production/cxgn/sgn/mason/locus/synonym.mas"
    $locus_id = $_[ $pos{'locus_id'} ];
#line 39 "/home/production/cxgn/sgn/mason/locus/synonym.mas"
     $synonyms = exists $pos{'synonyms'} ? $_[ $pos{'synonyms'} ] : undef;
}
$m->debug_hook( $m->current_comp->path ) if ( HTML::Mason::Compiler::IN_PERL_DB() );

#line 1 "/home/production/cxgn/sgn/mason/locus/synonym.mas"
$m->print( '

' );
#line 34 "/home/production/cxgn/sgn/mason/locus/synonym.mas"
$m->print( '
' );
#line 43 "/home/production/cxgn/sgn/mason/locus/synonym.mas"
$m->print( '
' );
#line 44 "/home/production/cxgn/sgn/mason/locus/synonym.mas"

  my $count = scalar(@$synonyms);
#line 47 "/home/production/cxgn/sgn/mason/locus/synonym.mas"
$m->print( '
<br /><br /><b>Locus synonyms</b> <b>' );
#line 48 "/home/production/cxgn/sgn/mason/locus/synonym.mas"
$m->print(  $count  );
#line 48 "/home/production/cxgn/sgn/mason/locus/synonym.mas"
$m->print( ': </b>

' );
#line 50 "/home/production/cxgn/sgn/mason/locus/synonym.mas"
 print join(' ' ,  map( $_->get_locus_alias(), @$synonyms )) ;
$m->print( '
' );
#line 52 "/home/production/cxgn/sgn/mason/locus/synonym.mas"
 if ($locus_id) {
$m->print( '<a href="/phenome/locus_synonym.pl?locus_id=' );
#line 53 "/home/production/cxgn/sgn/mason/locus/synonym.mas"
$m->print(  $locus_id  );
#line 53 "/home/production/cxgn/sgn/mason/locus/synonym.mas"
$m->print( '&amp;action=new"> [Add/Remove]</a><br />

' );
#line 55 "/home/production/cxgn/sgn/mason/locus/synonym.mas"
 }
;return;
},
'declared_args' => {
  '$locus_id' => { default => undef },
  '$synonyms' => { default => undef }
},
'load_time' => 1763528903,

)
;